Excel中利用打开对话框打开另外的程序文,该怎么解决

Excel中利用打开对话框打开另外的程序文
想从一个MPP文件（MS Project）导入数据到excel中

现在在excel中的VBA代码可以直接用fileopen+路径打开所需的MPP文件

想改成用对话框选择要打开的文件
直接调用application.dialogs的话只能打开excel文件的

即使选中MPP文件点打开，实质上也是没有打开的

求解决方法

[解决办法]

VB code

Set xlApp = CreateObject("MSProject.Project")    With CreateObject("MSComDlg.CommonDialog")     .showopen     If .FileName <> "" Then        '在此加上选中文件的处理操作        xlApp.application.fileopen filename: = .FileName     End If    End With
[解决办法]
只需要1行
VB code
    Application.Workbooks.Open Application.GetOpenFilename("Excel 文件 (*.xls),*.xls"): Application.Visible = True
[解决办法]
你要知道，吃现成的是不行的
如果一点天赋没有就改行好了

探讨

引用:
只需要1行

VB code
Application.Workbooks.Open Application.GetOpenFilename("Excel 文件 (*.xls),*.xls"): Application.Visible = True


你要知道 我要打开的是MPP文件
直接用对话框点MPP文件实际是没有打开它的