Sub openFile()
Dim fileName As String
fileName = Application.GetOpenFilename("XMLファイル,*.xml?")
Debug.Print fileName
End Sub
tags
VBA ファイルを開く ダイアログ