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

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

Я использую Эксель 2003.


excel vba excel-2003 fileopendialog
person AJ.    schedule 21.10.2008    source источник

Ответы (2)


arrow_upward
9
arrow_downward

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

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

person tzot    schedule 21.10.2008

arrow_upward
2
arrow_downward

Добавьте ссылку на 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
person Galwegian    schedule 21.10.2008