从外部VBScript错误运行Excel宏

Question

I have two files.

1. example.wsf: an automation script
2. example.xlsm: an excel template with Macro, the Macro contains a API call to external server to retrieve data.

I am trying to call the Macro inside the example.wsf.

The example.wsf code:

<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>

The Excel Macro code in example.xlsm:

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

The Macro itself is working well if it is triggered inside the Excel workbook.

But when the Macro is called from the VBScript, the EXTERNAL_API fail to execute, ie, the following line does not execute:

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

I am suspecting that this may be related to early binding but basically have no clue what went wrong.

Answer 1

Looks like you are almost there. Just some formatting issues. See the snippet below. Notice my comments about the file path and where the macro is located within the excel file. Let me know if it works for you.

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