解决cscript打开excel时宏互不可见的问题_c# 打开excel,里面的加载宏都不可见-优快云博客

本文链接：https://blog.youkuaiyun.com/cleanfield/article/details/127928472

探讨使用VBS脚本批量打开多个Excel文件时，如何确保后打开的文件能够访问先打开文件中的宏。提供了两种解决方案，并邀请读者分享更深层次的原因。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

今天遇到一个问题，用cscript打开excel文件时，后打开的文件看不到前面打开文件的宏，而手动打开时，后面打开的文件可以看到前面打开文件中定义的宏。

刚开始时脚本如下：

open_res.bat和open_res.vbs如下

CScript //B .\open_res.vbs A.xlsm

CScript //B .\open_res.vbs B.xlsm

CScript //B .\open_res.vbs C.xlsm

Function export_csv(filepath)
  Set oExcel = createobject("Excel.Application")
  oExcel.Visible = true
  Set oWorkbooks1 = oExcel.Workbooks.Open(filepath & "\Army.xlsm")
End Function  

export_csv(WScript.Arguments.Item(0))

出现的问题是 B看不到A的宏，C看不到A和B的宏

后来找到了两种解决办法：

1.在A中定义一个宏：

Sub Batch_Open()
Dim path As String
path = ThisWorkbook.path
Workbooks.Open Filename:=path & "\B.xlsm"
Workbooks.Open Filename:=path & "\C.xlsx"
End Sub

然后open_res.vbs修改为

Function export_csv(filepath)
  Set oExcel = createobject("Excel.Application")
  oExcel.Visible = true
  Set oWorkbooks1 = oExcel.Workbooks.Open(filepath & "\A.xlsm")
  oExcel.Run "Batch_Open"
End Function  

export_csv(WScript.Arguments.Item(0))

2.open_res.vbs中在一个excel object下打开三个文件

Function export_csv(filepath)
  Set oExcel = createobject("Excel.Application")
  oExcel.Visible = true
  Set oWorkbooks1 = oExcel.Workbooks.Open(filepath & "\A.xlsm")
  Set oWorkbooks2 = oExcel.Workbooks.Open(filepath & "\B.xlsm")
  Set oWorkbooks3 = oExcel.Workbooks.Open(filepath & "\C.xlsm")
End Function  

export_csv(WScript.Arguments.Item(0))

具体是什么原因造成的，有待研究，如有知道的朋友请不吝赐教