清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>>

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