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

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

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

Источник

2 ответа

Решение

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

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

Источник

Добавьте ссылку на 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
Источник
Другие вопросы по тегам