发现这个代码不错,直接绕过安全等级,运行宏。- Set app = WScript.CreateObject( "Excel.Application")
-
- app.visible=true '如果没有此句将在后台运行,不可见
-
- set fso = createobject("scripting.filesystemobject")
-
- set wb = fso.getfile("book1.xls") 'book1.xls为带宏的表格
-
- app.WorkBooks.Open wb
复制代码 '将该vbs文件和带有宏代码的相应Excel工作簿放在同一路径下,运行vbs就能直接运行宏
'win7 winXP下的office2003及2007都测试通过 |