从外部 VBScript 错误运行 Excel 宏

Question

我有两个文件。

1. example.wsf：自动化脚本
2. example.xlsm：带有宏的 excel 模板，宏包含对外部服务器的 API 调用以检索数据。

我正在尝试调用 example.wsf 中的宏。

example.wsf 代码：

<package>

  <job id="example">
    <script language="vbscript">

        Set objApp = CreateObject("Excel.Application")

        Set objExcel = objApp.Workbooks.Open("example.xlsm",0,FALSE)    
        objApp.Visible = True
        objApp.DisplayAlerts = False

        objApp.Run("RefreshData")   

        msgbox "closing"

        objExcel.Close
        objApp.Quit

        Set objExcel = Nothing
        Set objApp = Nothing

        set objShell = Nothing

    </script>
  </job>

</package>

example.xlsm 中的 Excel 宏代码：

Public Sub RefreshData()
  Dim API As New EXTERNAL_API
  Dim varResult As Variant
  Dim vSheet As String
  Dim LastRow, LastCol, vResult
  vSheet = "D"

  ActiveWorkbook.Sheets(vSheet).Select
  Range("A6").Select
  Selection.Copy
  Range(Selection, Selection.End(xlDown)).Select
  LastRow = ActiveWorkbook.Sheets(vSheet).Cells(8, 1).End(xlDown).Row
  LastCol = 18

  API.ActivateAPI
  varResult = API.RunApplication("OfficeAPI", "application=excel,method=RefreshAll")
  MsgBox (varResult)

End Sub

如果宏在 Excel 工作簿中触发，则它本身运行良好。

但是当从 VBScript 调用宏时，EXTERNAL_API 无法执行，即以下行没有执行：

varResult = API.RunApplication("OfficeAPI", "application=excel,method=RefreshAll")

我怀疑这可能与早期绑定有关，但基本上不知道出了什么问题。

Answer 1

看起来你快到了。只是一些格式问题。请参阅下面的 sn-p。请注意我的 cmets 关于文件路径以及宏在 excel 文件中的位置。让我知道它是否适合你。

Set objApp = CreateObject("Excel.Application")
Set objExcel = objApp.Workbooks.Open("example.xlsm", 0, False) ''make sure you have valid path, such as a full UNC path
objApp.Visible = True
objApp.DisplayAlerts = False
objApp.Run "example.xlsm!RefreshData" ' this is if the Macro is in a Module.  Use "example.xlsm!sheet1.RefreshData" if it's on 
                                      '  sheet1, for example