ник: sCandal
может поможет по пункту 6:
Public Function DBname() As String
Dim fd As FileDialog
Dim vrtSelectedItem As Variant
Dim sDBname As String
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.Title = "Выберите файл БД"
With fd
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
DBname = vrtSelectedItem
Next vrtSelectedItem
Else
DBname = ""
End If
End With
Set fd = Nothing
End Function
|