Office 2013 and later

弹出消息

MsgBox "xxx"
MsgBox "xxx", vbOKOnly + vbInformation, "智能Excel"

选择文件