Найдите файл из 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