打开一个现有的Excel文件并通过MS Project在该文件中运行宏

Question

我想打开一个名为Open_Yard_Scheduling_tool_V8.xlsm的Excel文件，在同一个名为formulcopy的Excel文件中运行宏，然后从Excel文件中复制数据并通过编写代码将其粘贴到MS Project文件中在MS Project应用程序的VBA中。

我能够打开Excel文件并将其数据复制并粘贴到所需的项目文件中，但是我无法通过MS Project中的VBA在Excel中运行宏文件。

我正在使用下面提到的代码。

Sub ex_mac()   
    Dim xlApp As Object
    Dim xlWkb As Object

    Set xlApp = CreateObject("Excel.Application")
    Set xlWkb = xlApp.Workbooks.Open("C:\Users\DHRUV.HEMIL.MANOJ\Documents\Open_Yard_Scheduling_tool_V8.xlsm")

    xlApp.Visible = True

    Application.Run ("'C:\Users\DHRUV.HEMIL.MANOJ\Documents\Open_Yard_Scheduling_tool_V8.xlsm'!formulcopy") 
End Sub

它仅打开所需的Excel文件，但无法在同一Excel文件中运行宏。

Answer 1

这里的问题是Application.Run指向MS Project应用程序，但是您尝试在Excel应用程序中运行代码。因此，您需要改用xlApp.Run（这是指您用Set xlApp = CreateObject("Excel.Application")创建的Excel应用程序：

xlApp.Run("'Open_Yard_Scheduling_tool_V8.xlsm'!formulcopy")

请注意，此处不需要完整路径。