Sub test()
Call OpenFilenameEnd Sub
Sub OpenFilename()
Dim fName As Variant
fName = Application.GetOpenFilename(fileFilter:="EXCELファイル,*.xls;*.xlsx", Title:="ファイルを開く")
MsgBox (fName)
End Sub
下图为参数的作用
Sub test()
Call OpenFilenameEnd Sub
Sub OpenFilename()
Dim fName As Variant
fName = Application.GetOpenFilename(fileFilter:="EXCELファイル,*.xls;*.xlsx", Title:="ファイルを開く")
MsgBox (fName)
End Sub
下图为参数的作用