扩展一下wps js宏在com对象上的操作。

fxl447098457

用exceldna封装了一个Eval函数，调用的是ms的jscript,没有什么ribbon界面,就一个函数.主要用于在wps的js宏里面在com对象操作上做一个补充吧。在网络和本地操作方面束手无策的时候可以换条路试试。下面展示一下运用。

会vba的一看就知道,上图是看excel的版本号。下图是scricontrol的操作.比较简单，就不多说了


wps没有64位版本。excel本身就是com操作，所以我就不发了。32位版本的xll压缩附件：

jsEvaluator-AddIn-packed.zip (273.95 KB, 下载次数: 67)

2022-9-4 22:37 上传

点击文件名下载附件

fxl447098457

1. function 剪切板数据(){
   
2.         let ss= '"WPS JSA"'
   
3.         var s=`var html=new ActiveXObject('htmlfile');
   
4.                 var owin= html.parentWindow;
   
5.                 var a=owin.clipboardData.setData("text",${ss});
   
6.                 a`;
   
7.                 //console.log(s)
   
8.         var r=Application.Run("Eval",s);
   
9.         Range("A1").PasteSpecial(xlPasteAll)
   
10. }

复制代码

1. function 网抓(){
   
2.         var s=`var http=new ActiveXObject('MSXML2.XMLHTTP');
   
3.                    http.Open('HEAD','https://www.baidu.com',false);
   
4.                    http.Send();
   
5.                    var txt=http.getResponseHeader('Date');
   
6.                         txt`;
   
7.                         var r= Application.Run("Eval",s).split(',')[1].replace("GMT","").trim()
   
8.                         var d=new Date(r)
   
9.                         var d1=d.setSeconds(d.getSeconds()+8*60*60)
   
10.                         d1=new Date(d1).toLocaleString()
    
11.                         console.log(d1)       
    
12. }

复制代码

Again123456

真正的好东西啊

LIUZHU

复制了第一段代码，报错了

LIUZHU

这个是什么意思？

wodewan

LIUZHU 发表于 2022-9-13 10:15
这个是什么意思？

如果是卸载插件时发生，这个基本可以忽略，没啥太大关系，EXCELDNA在调用C-API时释放的问题，楼主没屏蔽而已，我猜的。

fxl447098457

wodewan 发表于 2022-9-13 12:37
如果是卸载插件时发生，这个基本可以忽略，没啥太大关系，EXCELDNA在调用C-API时释放的问题，楼主没屏蔽 ...

使用你那个registerwps模块就可以了，偷懒没弄上去。

iiyumewo

大佬牛逼，谢谢分享

仙女配凡人

大佬牛逼。这个插件帮我解决了WPS JS网络请求的难题

云端果冻

为什么用下面代码，启动了vlc播放器，但是没有播放指定的文件？感谢！

1. 
   
2.            let s=`var xl=new ActiveXObject('WScript.Shell');
   
3.                     var b=xl.Run("vlc D:\\path\\file.MP4",1);
   
4.                             xl.Quit();
   
5.                                     b`;
   
6.             let result=Application.Run("Eval", s);
   
7.             console.log(result);

复制代码