Attribute VB_Name = "testbooknew4"
Sub テスト()
    
    Dim fname As String

    fname = Application.GetOpenFilename( _
        FileFilter:="Excelファイル,*.xls,全てのファイル,*.*", _
        FilterIndex:=1)
    
End Sub