DialogOpenFile

Sub openFile()

Dim fileName As String

fileName = Application.GetOpenFilename("XMLファイル,*.xml?")

Debug.Print fileName

End Sub

tags

VBA ファイルを開く ダイアログ