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

Question

Как открыть диалоговое окно «Открытие файла» на каком-то VBA, работающем в Excel?

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

Answer 1

Вы хотите функцию Application.GetOpenFilename. Копирование из VBA Object Browser:

Функция GetOpenFilename ([FileFilter], [FilterIndex], [Title], [ButtonText], [MultiSelect])
Участник Excel.Application

Answer 2

Добавьте ссылку на ComDLG32.OCX, а затем что-то вроде ...

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