如何使用vba在另一个应用程序上运行宏

Question

我有一个access 2007数据库，我需要在窗体上创建一个按钮，当我单击它时，它将在另一个office应用程序上运行宏，比如visio和ms project。

下面的链接显示了如何为word和excel等其他应用程序制作它，但它没有说明如何在visio或ms项目应用程序中制作它。

https://support.microsoft.com/en-us/kb/177760

运行现有Microsoft 的子程序

下面的Sub过程假设工作簿ExcelFile.xls包含一个名为“TestMacro”的宏。

 Sub XLTest()
  Dim XL as Object

  Set XL = CreateObject("Excel.Application")

  XL.Workbooks.Open "C:\My Documents\ExcelFile.xls"

  ' If there is more than one macro called TestMacro,
  ' the module name would be required as in
  '
  ' XL.Run "Module1.TestMacro"
  '
  ' to differentiate which routine is being called.
  '
  XL.Run "TestMacro"

 End Sub

运行现有Microsoft PowerPoint宏的PowerPoint子程序

下面的子过程假设表示PPTAutomation.ppt包含一个名为“AutomationTest”的宏。

 Sub PPTTest()
  Dim PPT as Object

  Set PPT = CreateObject("PowerPoint.Application")

  PPT.Presentations.Open "C:\My Documents\PPTAutomation.ppt", , ,False

  ' Note that the file name and the module
  ' name are required to path the macro correctly.
  PPT.Run "PPTAutomation.ppt!Module1.AutomationTest"

 End Sub

运行现有Microsoft宏的子过程

下面的子过程假设文档WordDoc.Doc包含一个名为“WordMacro”的宏。

  Sub WDTest()
  Dim WD as Object

  Set WD = CreateObject("Word.Application")

  WD.Documents.Open "C:\My Documents\WordDoc.Doc"

  ' Note that the project name and module name are required to
  ' path the macro correctly.
  WD.Run "Project.Module1.WordMacro"

 End Sub

有什么建议吗？

Answer 1

Visio:

Sub VISTest()
    Dim VIS as Object

    Set VIS= CreateObject("Visio.Application")

    VIS.Documents.Open "PATH"

    ' Note that the project name and module name are required to
    ' path the macro correctly.
    VIS.Run "MARCRONAME"

End Sub

项目：

我不能测试项目，没有它，但是看看这里https://msdn.microsoft.com/en-us/library/bb223292%28v=office.12%29.aspx说

Dim pj As Object

Set pj = CreateObject("MSProject.Project")
pj.Application.FileOpen "My Project.mpp"

小心在Office应用程序的信任中心启用宏