如何在vbs文件中调用excel中的sub
发布网友
发布时间：2022-04-21 08:13
共2个回答
热心网友
时间：2023-09-26 14:51
Set a = WScript.CreateObject("Excel.Application")
a.run ("'d:\test.xls'!testmacro")
这个路径 'd:\test.xls'! 很重要，没写文件路径是运行不了的，不过这样还要设置一下 excel 宏安全级别为低 才能顺利运行，要不改 excel 安全级别的话，就得改一下注册表，
不过我有个省事的办法，就是再写一个vbs，里面就写个
WScript.Sleep 1000
CreateObject("wscript.Shell").SendKeys "{LEFT}{Enter}"
在Set a = WScript.CreateObject("Excel.Application")之前调用这个vbs可以了
热心网友
时间：2023-09-26 14:51
其实你把那个语句Msgbox写在宏里面就好了。
比如添加个宏TestMacro
Dim ExcelApp
Set ExcelApp=CreateObject("Excel.Application")
ExcelApp.Run "TestMacro"
ExcelApp.Quit
