我的第一个 WPS JSA代码

不废话,上代码:

function 创建工作簿(){

for (var city of ['深圳','惠州','东莞']){

Application.DisplayAlerts = false;

Workbooks.Add();

ActiveWorkbook.ActiveSheet.Range('A1:B10').Value2=city

alert(Range('A1').Value2);

ActiveWorkbook.ActiveSheet.UsedRange.Select();

debugger;

ActiveWorkbook.SaveAs('/home/kimhoo400/桌面/'+city);

ActiveWorkbook.Close();

}

}

与VBA还是有一点差距的,没有‘STOP’方法,用debugger代替了。

欢迎各位JSA大神拍砖^_^

广东省
浏览 125
收藏
2
分享
2 +1
2
+1
全部评论 2
 
补充一下VBA的写法 Sub 创建工作簿() Dim arr As Variant, wb As Workbook, sht As Worksheet arr = Array("深圳", "东莞", "惠州") For i = LBound(arr) To UBound(arr) Workbooks.Add Set wb = ActiveWorkbook Set sht = wb.ActiveSheet sht.Range("A1") = arr(i) wb.SaveAs ThisWorkbook.Path + "\" + arr(i) wb.Close Next End Sub
· 广东省
回复
 
南平
· 福建省
回复