[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] VBA调用脚本部件

下面是脚本部件文件的代码:
  1. <package>
  2. <?component error="true"?>
  3. <component id="JS">
  4. <registration
  5.     progid="JSComponent.Person"
  6.     description="Person Object">
  7. </registration>
  8. <public>
  9.     <property name="Name" />
  10.     <property name="Age" />
  11.     <method name="sayHello" />
  12.     <method name="init">
  13.         <parameter name="name" />
  14.         <parameter name="age" />
  15.     </method>
  16. </public>
  17. <script language="JScript">
  18. var Name,Age;
  19. function init(name,age){
  20.     Name=name;
  21.     Age=age;
  22. }
  23. function sayHello(){
  24.     return "hello, world";
  25. }
  26. </script>
  27. </component>
  28. </package>
复制代码
现在脚本部件已经注册成功,但生成TLB文件也成功了,但是在VBA中一调用EXCEL就崩溃,求解???
如下是VBA中的调用代码【此前已经引用了生成的TLB文件,在VB对象浏览器中可以查看到类型库成员】
  1. Sub Test()
  2.     Dim objP As ScriptletTypeLib.JS
  3.     CallByName objP, "init", VbMethod, "Tom", 32
  4.     Out.Output objP.Name
  5.     Out.Output objP.sayHello()
  6. End Sub
复制代码

返回列表