时间戳

首页 > 解决方案 > 打开现有 Excel 文件并通过 MS Project 在该文件中运行宏

excel - 打开现有 Excel 文件并通过 MS Project 在该文件中运行宏

问题描述

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

我能够打开 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 文件中运行宏。

标签： excelvbams-project

解决方案

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

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

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

推荐阅读