分享至
朋友圈
微信
qq空间
qq
微博
复制
Dim fileOpenName fileOpenName= Application.GetOpenFilename("Excel文件(*.xls),*.xls") If fileOpenName<> False Then MsgBox "Open " & fileOpenName End If