vba js二维数组及json写入单元格，htmltable Callbyname

perfect131

                 htmlfile json 解析 一般 Callbyname ，eval 提取装入二维数组，而 wps js不需要这样，直接可以将二维数组写入单元格。

另一种方法：标准 HTMLtable 法 （没想到比 callbyname 慢）HTMLtable写入单元格源格式不会被保留

1. Sub js二维数组写入()
   
2.     Set oDom = CreateObject("htmlfile")
   
3.     Set oW = oDom.parentWindow
   
4.     ''处理 js 二维，转 table 格式
   
5. ''''''    oW.execScript "var ar = [['一月,1', 1,3],['二月', 2],['三月', 3]];var ss='<table><tbody>';for (let i=0;i<ar.length;i++){ss=ss + '<tr>';for (let j=0;j<ar[i].length;j++){if(isNaN(ar[i][j])) { ar[i][j] ='"" ' + ar[i][j]+ '""'}ss = ss + '<td>' + ar[i][j] + '</td>'}ss=ss + '</tr>';};ss=ss + '</tbody></table>'"
   
6.    
   
7.     oW.execScript "var ar = [['一月,1', 1,3],['二月', 2],['三月', 3]];" & _
   
8.                   "var ss='<table><tbody>';for (let i=0;i<ar.length;i++)" & _
   
9.                   "{ss=ss + '<tr>';for (let j=0;j<ar[i].length;j++)" & _
   
10.                   "{ss = ss + '<td>' + ar[i][j] + '</td>'}ss=ss + '</tr>';};ss=ss + '</tbody></table>'"
    
11.    
    
12.     oW.clipboardData.setData "text", oW.ss  '''table 复制
    
13.     ThisWorkbook.Sheets(1).Range("A2").Select  '''粘贴到 A2 单元格
    
14.     ThisWorkbook.Sheets(1).Paste
    
15.     Set oDom = Nothing
    
16.     Set oW = Nothing
    
17. End Sub

复制代码

smsn

1.     oW.execScript "var ar = [['一月', 1], ['二月', 2], ['三月', 3]];for (let i = 0; i < ar.length; i++) {ar[i] = ar[i].join('\t');};var ss=ar.join('\r\n');"
   
2.     oW.execScript "var ar = [['一月', 1], ['二月', 2], ['三月', 3]];var ss = ar.map(function(x) { return x.join('\t');}).join('\r\n')" 'IE10

复制代码

也可以这样