在 Excel 中打开嵌入的 mpp 文件

Question

我确实在我的 excel 文件中嵌入了项目文件 (mpp) 作为对象。我下面的 vba 脚本将打开嵌入的文件。但是在这一行卡住并收到运行时错误 --> oEmbFile.Verb Verb:=xlPrimary .

提前谢谢你

Private Sub Project_Click()
Dim x As MSProject.Application
Dim oEmbFile As Object
 
 
'// Opens object
 
 
Application.DisplayAlerts = False
Set oEmbFile = ThisWorkbook.Sheets("Execution_plan").OLEObjects("Object 1")
oEmbFile.Verb Verb:=xlPrimary
Application.DisplayAlerts = True
'Look for existing instance
On Error Resume Next
Set x = GetObject("Project.Application")

 
AppActivate ("Microsoft Project")
Set x = Nothing
Set oEmbFile = Nothing

End Sub

Answer 1

尝试改用Activate 方法。您可以这样做，首先尝试 Verb 方法，如果失败，请尝试 Activate 方法：

Private Sub Project_Click()
Dim x As MSProject.Application
Dim oEmbFile As OLEObject
 
Application.DisplayAlerts = False
Set oEmbFile = ThisWorkbook.Sheets("Execution_plan").OLEObjects("Object 1")
On Error Resume Next
oEmbFile.Verb Verb:=xlPrimary
If Err.Number <> 0 Then
    oEmbFile.Activate
End If

Application.DisplayAlerts = True
'Look for existing instance
Set x = GetObject("Project.Application")

AppActivate ("Microsoft Project")
Set x = Nothing
Set oEmbFile = Nothing

End Sub