VBA打开文件对话框 2014/11/12 16113 Dim fileOpenName fileOpenName= Application.GetOpenFilename("Excel文件(*.xls),*.xls") If fileOpenName<> False Then MsgBox "Open " & fileOpenName End If