| Чип&Дейл |
|---|
Добрый день, подскажите почему появляется второе окно выбора файла. Файл базы приложил
Модератор: Тема перенесена из форума "Visual Basic". |
Set f = Application.FileDialog(1)
On Error Resume Next
With f
.AllowMultiSelect = True
.Show
.Title = "Выберите файл Excel для зайгрузки"
If f.Show <> -1 Then Exit Function
GetFilePath = .SelectedItems(1)
PS = f.PathSeparator
End With
окно выбора файла появляется, когда у вас в коде вызывается метод .Show файлового диалога
и он у вас вызывается дважды