Dim fileOpenName
fileOpenName= Application.GetOpenFilename("Excel文件(*.xls),*.xls")
If fileOpenName<> False Then
    MsgBox "Open " & fileOpenName
End If