跳到主要内容

写入区域

命令说明

将二维数组写入到工作表中指定的区域,当二维数组里的元素个数不一致时,会影响性能

命令原型

Excel.WriteRange(objExcelWorkBook,sheet,strCell,data,bSave)

命令参数

参数必选类型默认值说明
objExcelWorkBookTrueexpressionobjExcelWorkBook使用 "打开Excel工作簿"命令(Excel.OpenExcel) 或 "绑定Excel工作簿" 命令(Excel.BindBook)返回的工作簿对象
sheetTruestring"Sheet1"如果使用字符串,则表示指定工作表的名字;使用数字,则表示指定工作表的顺序(从0开始)
strCellTruestring"A1"指定的单元格,支持单元格名如"A1"与行列数组如[行号,列号]两种形式,当使用单元格名时不区分大小写
dataTrueexpression[[1,'壹'],[2,'贰'],[3,'叁']]要写入的二维数组,如使用的数组元素没有对齐,会自动使用空值对齐元素之后进行写入,请注意影响以免发生值覆盖
bSaveTruebooleanFalse操作完成立即保存

运行实例

/*********************************写入区域***************************************
命令原型:
Excel.WriteRange(objExcelWorkBook,"Sheet1","A1",[[1,'壹'],[2,'贰'],[3,'叁']],false)
入参:
objExcelWorkBook--Excel工作簿对象(使用 "打开Excel"命令(Excel.OpenExcel) 打开的工作簿或使用"绑定Excel"命令(Excel.BindBook)绑定的工作簿对象)。
sheet--如果使用字符串,则表示指定工作表的名字;使用数字,则表示指定工作表的顺序(从0开始)。
strCell--指定的单元格,支持单元格名如"A1"与行列数组如[行号,列号]两种形式,当使用单元格名时不区分大小写。
data--要写入的二维数组,如使用的数组元素没有对齐,会自动使用空值对齐元素之后进行写入,请注意影响以免发生值覆盖。
bSave--操作完成立即保存。(布尔值true/false)
注意事项:
该命令不能单独使用,需配合 "打开Excel"命令(Excel.OpenExcel) 或"绑定Excel"命令(Excel.BindBook)一起使用才能正常使用,单独使用则会报错。
**********************************************************************************/
Dim objExcelWorkBook = ""
objExcelWorkBook = Excel.OpenExcel(@res"测试.xlsx",True,"Excel","","")
Excel.WriteRange(objExcelWorkBook,"Sheet1","A15",[["a",1],["b",2],["c",3]],False)
TracePrint "写入区域:Excel对象Sheet1工作表的A15开始写入了一组数据"&'[["a",1],["b",2],["c",3]]'
Excel.CloseExcel(objExcelWorkBook,True)

可视化样例