在Excel中打开嵌入式mpp文件

问题描述

我确实将项目文件（mpp）嵌入为Excel文件中的对象。我下面的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

解决方法

尝试改用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