需要编写一个vbs脚本在一个excel实例中运行多个xlam文件

Question

任务是编写 vbs 脚本：

1. 第一个 vbs 脚本 (1.vbs) 打开一个 excel 实例并将 1.xlam 文件加载到打开的 excel 实例中。
2. 第二个 vbs 脚本 (2.vbs) 将 2.xlam 文件加载到同一个 excel 实例中。
3. 下一个 (3.vbs) 加载相同的 excel 3.xlam 实例，依此类推。 我尝试了很多，但是我将新的 *.xlam 加载到新的 excel 实例中，而不是之前打开的实例中。 如何解决问题？

我的 loader1.vbs - 用于加载 loader1.xlsm

   Set omExcel = CreateObject("excel.application") 
   omExcel.Visible = True 
   vmAlertXLSM = omExcel.AutomationSecurity 
   omFile.AutomationSecurity = 1
   vmFile = replace(WScript.ScriptFullName, ".vbs",".xlsm") 
   omExcel.Workbooks.Open vmFile 
   omExcel.AutomationSecurity = vmAlertXLSM 

没关系

我需要编写 loader2.vbs，它将我的 loader2.xlsm 加载到同一个 Excel 实例中，以便在 loader1.xlsm 和 loader2.xlsm 中编写的函数可以互相看到

它不是那样工作的 - 一个新的 Excel 实例打开：

    vmFile = replace(WScript.ScriptFullName, ".vbs",".xlsm")
    With GetObject(, "Excel.Application")
     .Visible = True    
     .Workbooks.Open (vmFile)    
    End With

Answer 1

Excel 实例

您可以在Excel 的新实例中打开文件：

With CreateObject("Excel.Application")
    .Visible = True
    .Workbooks.Open ("C:\Test1.xlsx")
End With

您可以在正在运行的实例中打开另一个文件：

With GetObject(, "Excel.Application")
    .Workbooks.Open ("C:\Test2.xlsx")
    ' Prove that your in the same instance:
    ReDim wbNames(.Workbooks.Count - 1)
    For Each wb In .Workbooks
        wbNames(n) = wb.FullName
        n = n + 1
    Next
    MsgBox "Open Workbooks: " & vbLf & vbLf & Join(wbNames, vbLf)
End With