在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