Запуск из CMD и проблемы с использованием SaveAs

Question

Я могу подключиться к нашему SAP BW (Business Warehouse), который находится на сервере, чтобы открывать определенные запросы, но в конце концов я не могу сохранить его. Я пытался искать на разных форумах, но все они используют ту же логику, что и я. Я использую CMD для запуска этого скрипта.

Шахта, с другой стороны, выдает ошибку:

Объект не поддерживает это свойство или метод: 'SaveAs'
Код: 800A01B6

' Setup the global variables
Dim xl
Dim myConnection
Dim xlBook

' Launch Excel
Set xl = CreateObject("Excel.Application")

' Make it visible otherwise things just don't work well
xl.Visible = True

' Now that Excel is open, open the BEX Analyzer Addin xla file
xl.Workbooks.Open ("C:\Program Files (x86)\Common Files\SAP Shared\BW\BExAnalyzer.xla")

' Run the SetStart macro that comes with BEX so it pays attention to you
xl.Run ("BExAnalyzer.xla!SetStart")

' Logon directly to BW using the sapBEXgetConnection macro
Set myConnection = xl.Run("BExAnalyzer.xla!sapBEXgetConnection")
With myConnection
    .client = "100"
    .User = "user"
    .Password = "pass"
    .Language = "EN"
    .systemnumber = 00
    .ApplicationServer = "xxxyyy"
    .SAProuter = "xxxyyyyy"
    .Logon 0, True
End With

' Now initialize the connection to make it actually usable
xl.Run ("BExAnalyzer.xla!sapBEXinitConnection")

' Open query
xl.Run "BExAnalyzer.xla!runQuery","00O2TPBVULP4LPJ4LBZRIFQN3" 

' Initiate saving, turn off showing allerts
Application.DisplayAlerts = False
xl.SaveAs "C:\Output\NAME.xlsm"
'xl.SaveAs "C:\Output\NAME", 52 ' 52 should be the format for XLSM
Application.DisplayAlerts = True

'' Close Excel
'xl.Quit

Я хотел бы сохранить XLSM в определенной папке.

Answer 1

Ваш xl объект ссылается на Application объект. SaveAs является членом объекта Workbook. Установите ссылку на рабочую книгу и используйте ее для выполнения действия сохранения

' Setup the global variables
Dim xl
Dim myConnection
Dim xlBook

' Launch Excel
Set xl = CreateObject("Excel.Application")

' Make it visible otherwise things just don't work well
xl.Visible = True

' Now that Excel is open, open the BEX Analyzer Addin xla file
Set xlBook = xl.Workbooks.Open ("C:\Program Files (x86)\Common Files\SAP Shared\BW\BExAnalyzer.xla")

' Run the SetStart macro that comes with BEX so it pays attention to you
xl.Run ("BExAnalyzer.xla!SetStart")

' Logon directly to BW using the sapBEXgetConnection macro
Set myConnection = xl.Run("BExAnalyzer.xla!sapBEXgetConnection")
With myConnection
    .client = "100"
    .User = "user"
    .Password = "pass"
    .Language = "EN"
    .systemnumber = 00
    .ApplicationServer = "xxxyyy"
    .SAProuter = "xxxyyyyy"
    .Logon 0, True
End With


' Now initialize the connection to make it actually usable
xl.Run ("BExAnalyzer.xla!sapBEXinitConnection")

' Open query
xl.Run "BExAnalyzer.xla!runQuery","00O2TPBVULP4LPJ4LBZRIFQN3" 

' Initiate saving, turn off showing allerts
Application.DisplayAlerts = False
xlBook.SaveAs "C:\Output\NAME.xlsm"
'xl.SaveAs "C:\Output\NAME", 52 ' 52 should be the format for XLSM
Application.DisplayAlerts = True


'' Close Excel
'xl.Quit