ник: AlexSyr
'Для использования FileDialog должна быть подключена Microsoft Office 14.0 Object Library
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Title = "Выберите файл для гиперссылки"
.InitialFileName = Application.CurrentProject.Path & "\"
.Filters.Clear
.Filters.Add "Excel files", "*.xls*"
.Filters.Add "All Files", "*.*"
If .Show Then 'Выбран файл
Me.Справка = "#" & .SelectedItems(1) & "#"
Else 'Нажата Cancel
'
End If
End With
|
Это все применительно к MSA2010, в других версиях не тестировал.