【PB】JS代码嵌入PB中

最新推荐文章于 2022-09-14 16:57:41 发布

qq_39941918

最新推荐文章于 2022-09-14 16:57:41 发布

阅读量395

点赞数 1

分类专栏： PB 文章标签： javascript 前端

本文链接：https://blog.csdn.net/qq_39941918/article/details/125692765

版权

PB 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

这段代码展示了如何在VBA环境中创建一个OleObject并连接到MSScriptControl.ScriptControl对象，然后添加JavaScript代码并执行。主要功能是通过VBA调用JavaScript函数，如code()、data()和message()，对响应文本进行处理。

摘要由CSDN通过智能技术生成

String ls_js,ls_temp,ls_res
any la_1
oleobject lo_jsscript
lo_jsscript = CREATE oleobject //创建lo_jsscript
If lo_jsscript.ConnectToNewObject(“MSScriptControl.ScriptControl”) <> 0 Then
Destroy lo_jsscript
Return
end if
ls_js = 'function code(dd){ return dd.code}; function data(dd){ return dd.data.print_sn}; function message(dd){ return dd.message}; ’
lo_jsscript.language = “JScript”
lo_jsscript.addcode(ls_js) //将JS代码添加到lo_jsscript中

ls_js = ‘code(’+ls_ResponseText+‘)’
la_1 = lo_jsscript.Eval(ls_js) //使用lo_jsscript.Eval 执行JS
ls_temp = String(la_1)

Destroy lo_jsscript