使用VB脚本打开excel文件时缺少插件错误

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