отсутствует ошибка плагина при открытии файла Excel с помощью скрипта VB

Question

Я пытаюсь написать фрагмент кода с помощью VB-скрипта, чтобы открыть файл Excel, взять экран печати и отправить его по электронной почте.

Это на моем профессиональном ноутбуке, и у меня установлено несколько плагинов в Excel. В рассматриваемом файле excel есть макрос, который запускается при каждом открытии, но ничего особенного (в основном форматирование данных).

Когда я открываю книгу нормально, все отлично работает. Когда я запускаю скрипт VB, у меня возникает ошибка с отсутствующим xla-файлом (см. Вложенный файл)

Код довольно прост:

 Dim Xl 'as Excel.Application\par
 Dim wk 'as Excel.workbook\par
 set Xl = createobject("Excel.application")
 Xl.Visible = True
 Xl.enableevents = True
 set Wk = Xl.workbooks.open("XXX")

Answer 1

Попробуйте открыть книгу через оболочку:

Option Explicit

Dim oExcelApp, oWorkbook

CreateObject("Shell.Application").ShellExecute "C:\Test\Test.xlsm"
Do
    On Error Resume Next
    Set oExcelApp = GetObject(, "Excel.Application")
    WScript.Sleep 5
Loop While Err
On Error Goto 0
Set oWorkbook = oExcelApp.Workbooks("Test.xlsm")
oWorkbook.Sheets(1).Cells(1, 1).Value = Now()