lcg823 当前离线
列兵
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复制代码
TOP
乱码 当前离线
一级士官
Set oExcel = CreateObject("Excel.Application") strRegKey = "HKCU\Software\Microsoft\Office\"&oExcel.Version&"\Excel\Security\AccessVBOM" CreateObject("wscript.Shell").RegWrite strRegKey, 1, "REG_DWORD"复制代码