Excel 使用VBA打开Microsoft Project文件

我正在尝试通过VBA打开Microsoft Project文件，然后将一些范围复制到excel工作簿。但我的代码中有一个错误：

运行时错误“13”：类型不匹配

在该命令上：

Set-mpp=myMPP.Application.FileOpen（FilenameMPP）

---

之所以出现错误，是因为函数的返回值是一个

布尔值

。您正在尝试将布尔值指定给对象。因此，类型不匹配

我强烈建议你这样做。这将有助于避免变量出现一些错误

另外，您应该考虑使用（至少在开发过程中的设计和调试阶段）来包括MS项目库引用。

Option Explicit

Sub project2xCell()
    Dim myMPP As MSProject.Application
    Set myMPP = CreateObject("Msproject.Application")
    myMPP.Visible = True

    Dim filenameMPP As String
    filenameMPP = OpenFileDialogMPP() 'Function to browse to a Microsoft Project file

    myMPP.FileOpenEx Name:=filenameMPP, ReadOnly:=True
    Set mpp = myMPP.ActiveProject

    '--- now you can work with your project

    myMPP.Quit
End Sub

Option Explicit

Sub project2xCell()
    Dim myMPP As MSProject.Application
    Set myMPP = CreateObject("Msproject.Application")
    myMPP.Visible = True

    Dim filenameMPP As String
    filenameMPP = OpenFileDialogMPP() 'Function to browse to a Microsoft Project file

    myMPP.FileOpenEx Name:=filenameMPP, ReadOnly:=True
    Set mpp = myMPP.ActiveProject

    '--- now you can work with your project

    myMPP.Quit
End Sub