vbscript

Posted 2020-08-12 beiank

Dim abc,obj
Set abc = wscript.createobject("wscript.shell")

Set obj.exec("D:\Program Files\Thunder Network\Thunder\Program\Thunder.exe") 

WScript.Echo "you are good boy"

on error resume next
Set objXL = GetObject(,"Excel.Application")
if objXL is nothing then 
Set objXL =  CreateObject("Excel.Application")
end if
objXL.Workbooks.open  "C:\test.xls" , , true
objXL.Visible = True
Set objXL = Nothing

on error resume Next
Set objXL = GetObject(,"Excel.Application")
‘msgbox err.number ‘
if err.number=429 Then
Set objXL =  CreateObject("Excel.Application")
end If
objXL.Workbooks.open  "C:\test1.xls"  , , True
objXL.Visible = True
Set objXL = Nothing



请看附上的附件，我再把我的困惑细述一下。
WScript.CreateObject("Excel.Application") 这一定要用这个，是因为它能视EXCEL的宏安全级别为无物而运行宏。

当我当前已打开多个EXCEL文件，但不方便关掉。（前题是已有EXCEL文件在打开）

另外，我想判断如果有EXCEL文件在用，就用GetObject。没EXCEL在用就用CreateObject. 应该怎样写呀？？

我运行RunMacro.vbs就会打开test.xls,workbook.open事件就会触发，新增一个workbook,sheet(1)名为"test"
问题就出现了，为什么新增的workbook的格式与我在运行宏之前开着的文件不能兼容（就是格式刷，条件格式...等等都不能兼容）

但我不用RunMacro.vbs,而是直接打开test.xls，文件格式又可以兼容了！！
为什么呀？？？

是不是因为这玩意呀？ CreateObject("Excel.Application")  它把test.xls作为一个新的Application打开了？

在这一定要用VBS（也就是要绕开宏的安全级别）的前题下，这个格式不能兼容的问题能解决吗？？
谢谢，请高手指点！！
（不知这样解释能否清楚？呵呵）