VBA+AirScript 将本地文档数据写入金山文档的数据表

hnsd24

先简单介绍下AirScript，金山文档开发的，用于在线文档自动化的脚本，使用Java Script编程语言。

AirScript提供了一个脚本令牌，用于外部应用读写授权的个人在线文档，官方文档看这里接口说明 | AirScript文档 (wps.cn)
大致思路：用VBA将工作表数据转换成JS数组格式[[],[]]，通过POST方法将数据传给金山文档AirScript脚本，脚本把收到的数据处理后写入金山文档的数据表。
VBA代码，注意替换自己的API Token，方法看上面的文档，很简单

1. Option Explicit
   
2. 
   
3. Sub main()
   
4.     Dim arr
   
5.     Dim t$, postData$, strHtml$
   
6.     Dim http As Object
   
7.     Set http = CreateObject("Msxml2.XMLHTTP")
   
8.     arr = Range("A1:D5").Value
   
9.     t = transArr(arr)
   
10.     postData = "{""Context"":{""argv"":{""js"":" & t & "}}}"
    
11.     http.Open "POST", "https://www.kdocs.cn/api/v3/ide/file/cdGI8YQoHohP/script/V2-7vDppjz7TVABraD2cJH9Kw/sync_task", False
    
12.     http.setRequestHeader "Content-Type", "application/json"
    
13.     http.setRequestHeader "AirScript-Token", "你的令牌"
    
14.     http.send (postData)
    
15.     strHtml = http.responseText
    
16.     Set http = Nothing
    
17. End Sub
    
18. Function transArr(arr) '把VBA数组转化为格式化的JS数组字符串
    
19.     Dim t$, s$
    
20.     Dim i&, k&
    
21.     Dim brr(), crr()
    
22.     ReDim brr(1 To UBound(arr, 2))
    
23.     ReDim crr(1 To UBound(arr, 1))
    
24.     For i = 1 To UBound(arr, 1)
    
25.         For k = 1 To UBound(arr, 2)
    
26.             brr(k) = Chr(34) & IIf(IsDate(arr(i, k)), Format(arr(i, k), "yyyy/mm/dd"), arr(i, k)) & Chr(34)
    
27.         Next
    
28.         s = Join(brr, ",")
    
29.         s = "[" & s & "]"
    
30.         crr(i) = s
    
31.     Next
    
32.     t = Join(crr, ",")
    
33.     transArr = "[" & t & "]"
    
34. End Function

复制代码

AirScript代码

1. const arr=Context.argv.js; //接收
   
2. let resArr=[];
   
3. const dsh1=Application.Sheets('数据表');
   
4. const dsh2=Application.Sheets('写入测试');
   
5. const res=Array.from(fetchAllRecords(dsh1));
   
6. for(let i=1;i<arr.length;i++){
   
7.   let obj={fields:{}};
   
8.   obj.fields[arr[0][0]]=arr[i][0];
   
9.   obj.fields[arr[0][1]]=Number(arr[i][1]);
   
10.   obj.fields[arr[0][2]]=arr[i][2];
    
11.   let t=arr[i][3];
    
12.   let temp=res.find(x=>x.fields.文本==t);
    
13.   obj.fields[arr[0][3]]={recordIds:[temp.id]};
    
14.   resArr.push(obj);
    
15. };
    
16. console.log(resArr)
    
17. dsh2.Record.CreateRecords({
    
18.   Records:resArr
    
19. });
    
20. 
    
21. function fetchAllRecords(dsh) {
    
22.   let all = []
    
23.   let offset = null;
    
24. 
    
25.   while (all.length === 0 || offset) {
    
26.     let records = dsh.Record.GetRecords({
    
27.       Offset: offset
    
28.     })
    
29.     offset = records.offset
    
30.     all = all.concat(records.records)
    
31.   };
    
32.   return all;
    
33. };

复制代码

金山文档链接：【金山文档】 脚本令牌
https://kdocs.cn/l/cdGI8YQoHohP
金山文档我给了所有人编辑权限，但请不要删除表，修改表的字段。否则别人就无法测试了

hnsd24

更新了JSA向在线文档写入。用了https://www.cnblogs.com/FanXiaoLei/p/16657526.html这个里面的加载项。
JSA中需要对请求体(postData)转义,这可能是加载项中Eval的问题。

1. function 写入到轻维表(){
   
2.         let sh=Worksheets('写入测试');
   
3.         let r=sh.Range('A65536').End(xlUp).Row;
   
4.         let arr=sh.Range('A1:D' + r).Value2;
   
5.         arr.forEach(x=>x[2]=WorksheetFunction.Text(x[2],"yyyy/mm/dd"));
   
6.         //WinHttp.WinHttpRequest.5.1   Msxml2.XMLHTTP
   
7.         let postData = {"Context":{"argv":{"js":arr}}};
   
8.         postData = JSON.stringify(postData).replace(/"/g,`\"`);
   
9.         let s=`var http = new ActiveXObject("Msxml2.XMLHTTP");
   
10.                    var postData="`+postData+`";
    
11.                    http.Open("POST","https://www.kdocs.cn/api/v3/ide/file/cdGI8YQoHohP/script/V2-7vDppjz7TVABraD2cJH9Kw/sync_task",false);
    
12.                    http.setRequestHeader("Content-Type", "application/json");
    
13.                    http.setRequestHeader("AirScript-Token", "3oUAwh8JBTigsoxV0OVki7");
    
14.                    http.Send(postData);
    
15.                    var strHtml = http.responseText;
    
16.                    strHtml;`
    
17.    Application.Run('Eval',s);
    
18. };

复制代码

渔君

太强大了。读取金山文档到本地的代码再来一个，就更完美了。

minren118

我做了个模板，可以将xll文件轻松安装，只需要一个xlsm文件，内嵌了xll在里面，用jsa再将它释放出来。
https://club.excelhome.net/thread-1674682-1-1.html

wanghan519

渔君 发表于 2023-9-23 08:54
太强大了。读取金山文档到本地的代码再来一个，就更完美了。

官方文档说js里return的内容会返回给请求
，所以需要读取就加一句return其他都一样

604401678

太强大了。读取金山文档到本地的代码再来一个，就更完美了

guzhiqing007

获取不到数据,是哪里没设置好吗?请老师赐教

大表格1

hnsd24 发表于 2023-9-18 17:00
更新了JSA向在线文档写入。用了https://www.cnblogs.com/FanXiaoLei/p/16657526.html这个里面的加载项。
J ...

大哥，想了解一下怎么获取令牌和文件ID的，想学习下

大表格1

大表格1 发表于 2024-3-14 11:45
大哥，想了解一下怎么获取令牌和文件ID的，想学习下

研究两天，终于可以了，还得是我

jeff_ps2009

这个确实很厉害啊，金山在线文档 读写数据。