Найдите файл из Excel VBA

Как я могу создать диалоговое окно "Открыть файл" из некоторого VBA, работающего в Excel?

Я использую Excel 2003.

2 3
excel vba excel-vba excel-2003

2 ответа:

Вам нужна функция Application.GetOpenFilename. Копирование из Обозревателя объектов VBA:

Функция GetOpenFilename([FileFilter], [FilterIndex], [Title], [ButtonText], [MultiSelect])
Член Excel.Применение

9

Добавьте ссылку на ComDLG32.А потом что-то вроде того...

Sub PromptForFile()
Dim d As New MSComDlg.CommonDialog

d.Filter = "xls"
d.Filename = "*.xls"
d.ShowOpen

Excel.Workbooks.Open d.Filename

Set d = Nothing
End Sub
2