стандартное окно выбора файла
Подскажите как можо в VBA вызвать стандартное окно выбора файла. Такое обычно используется в меню "Файл" >> "Открыть".
Цитата:
Originally posted by Maks555
Подскажите как можо в VBA вызвать стандартное окно выбора файла. Такое обычно используется в меню "Файл" >> "Открыть".
Подскажите как можо в VBA вызвать стандартное окно выбора файла. Такое обычно используется в меню "Файл" >> "Открыть".
Для Office версией не ниже 2000 смотрите описание коллекции Dialogs.
Пример для Excel 2000: Application.Dialogs(xlDialogOpen).Show
Семейство Dialogs появилось задолго до появления MS Excel 2000, так что пример, который прдставил Dmitrii будет работать и в более ранних версиях.
Вариант II.
Вариант III.
Вариант IV. Макроязык Excel4.0
Вариант V.
Примечание :
При использовании двух последних вариантов Вы получите полное имя файла, так что для его открытия нужно применить метод .Open
Вариант II.
Код:
Application.FindFile
Вариант III.
Код:
Application.CommandBars("File").Controls("&Открыть...").Execute
Вариант IV. Макроязык Excel4.0
Код:
iFullName = ExecuteExcel4Macro("OPEN.DIALOG()")
If iFullName = False Then MsgBox "Вы не выбрали нужный файл", , ""
If iFullName = False Then MsgBox "Вы не выбрали нужный файл", , ""
Вариант V.
Код:
iFullName = Application.GetOpenFilename()
If iFullName = False Then MsgBox "Вы не выбрали нужный файл", , ""
If iFullName = False Then MsgBox "Вы не выбрали нужный файл", , ""
Примечание :
При использовании двух последних вариантов Вы получите полное имя файла, так что для его открытия нужно применить метод .Open
к сожалению, виновник не уточнил название офисного приложения, поэтому IMHO универсальным вариантом (из представленных)можно считать только Application.CommandBars...
Последние вопросы автора топика были напрямую связаны с MS Excel, так что весьма вероятно, что и эта тема не является исключением.
Вариант VI. (только для MS Excel XP and >>>)
Код:
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Show
If .SelectedItems.Count = 0 Then
MsgBox "Вы не выбрали нужный файл", , ""
End If
End With
.AllowMultiSelect = False
.Show
If .SelectedItems.Count = 0 Then
MsgBox "Вы не выбрали нужный файл", , ""
End If
End With