用exceldna封装了一个Eval函数，调用的是ms的jscript,没有什么ribbon界面,就一个函数.主要用于在wps的js宏里面在com对象操作上做一个补充吧。在网络和本地操作方面束手无策的时候可以换条路试试。下面展示一下运用。
function comobject(){
var s=`var xl=new ActiveXObject('Excel.Application');
var b=xl.Version;
xl.Quit();
b`;
var result= Application.Run("Eval",s)
console.log(result)
}
function scriptcontroluseexample(){
var s=`var sc=new ActiveXObject('Scriptcontrol');
sc.Language='Jscript';
sc.AddCode('var a={"范生":15,"张三":12};');
var b=sc.eval('a["张三"]');b`
var result= Application.Run("Eval",s)
console.log(result)
}
function 剪切板数据(){
let ss= '"WPS JSA"'
var s=`var html=new ActiveXObject('htmlfile');
var owin= html.parentWindow;
var a=owin.clipboardData.setData("text",${ss});
a`;
//console.log(s)
var r=Application.Run("Eval",s);
Range("A1").PasteSpecial(xlPasteAll)
}
增加了文本读写追加函数、使用方法如下：
fso文件操作：
function test(){
let str =`var fso = new ActiveXObject("Scripting.FileSystemObject");
var f1 = fso.CreateTextFile("D:/file.txt", true);
f1.WriteLine("This is a test.");
f1.Close();`;
Application.Run('Eval', str);
}
连接access数据库(wps依赖32位的access database engine),返回数组:
function 连接数据库(){
var s=`var cnstr="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\\mytest.mdb;";
var cn = new ActiveXObject("ADODB.Connection");
cn.Open(cnstr);
var rs=cn.Execute("select * from 考试成绩")
var c=rs.GetRows();
cn.Close();c`;
let x=Application.Run("Eval",s);
Console.log(''+x)
}
fso获取文件的创建日期：
function 获取文件创建日期(){
let strFile=ThisWorkbook.Path.replace(/\\/g,"/")+'/1.png'
var s=`var fso=new ActiveXObject("Scripting.FileSystemObject");
var f=fso.GetFile("${strFile}");
var r=f.DateCreated;r`;
console.log(s)
let x =WorksheetFunction.Text(Application.Run("Eval",s),"yyyy-MM-dd HH:mm:ss")
console.log(x)
}
wps没有64位版本。excel本身就是com操作，所以64位的我就不发了。32位版本的xll压缩附件：点击下载
