使 ScriptControl 与 Excel 2010 x64 一起使用 [英] Getting ScriptControl to work with Excel 2010 x64
本文介绍了使 ScriptControl 与 Excel 2010 x64 一起使用的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我正在尝试使用给
此外,您还必须在代码末尾通过 CreateObjectx86 Empty
关闭该 HTA 窗口.
更新
您可以使宿主窗口自动关闭:通过创建类实例或 mshta 主动跟踪.
第一种方法假设您创建一个类实例作为包装器,它使用Private Sub Class_Terminate()
来关闭窗口.
注意:如果 Excel 在代码执行时崩溃,则没有类终止,因此窗口将留在后台.
将以下代码放在名为cMSHTAx86Host
的类模块中:
选项显式私有财产作为对象私有子类_Initialize()#如果 Win64 那么设置 oWnd = CreateWindow()oWnd.execScript "Function CreateObjectx86(sProgID): Set CreateObjectx86 = CreateObject(sProgID) End Function", "VBScript"#万一结束子私有函数 CreateWindow()' 来源 http://forum.script-coding.com/viewtopic.php?pid=75356#p75356Dim 签名、oShellWnd、oProc出错时继续下一步直到 Len(sSignature) = 32sSignature = sSignature &十六进制(整数(Rnd * 16))环形CreateObject("WScript.Shell").Run "%systemroot%syswow64mshta.exe about:""