012 Ruby Excel写入Word多表
这期，为你讲解如何将Excel数据依次写入Word多表。
001 需求分析
以下是两张表，1张源表，1张模板表。
Excel有效数据一共41行（不含标题）。
即，生成41个Word表。
002 思路解析
第一步，初始化。对各种对象变量进行赋值，主要有Word应用、Word文档、Excel应用、Excel工作簿、Excel有效行、Word表格数、数组arr、数组自增量i。
第二步，读入数组。我们通过这行代码，可以直接把工作表区域读入数组arr。
arr=Ebk.worksheets(1).usedrange.value第三步，写入表格。我们通过这行代码，可以直接遍历数组依次写入Word表格。
Wdc.tables(i).cell(1,2).range.text=arr[i][0]第四步，我们检查一下是否存在错误，保存即可。
003 代码展示
# 初始化
require "win32ole"
Pth=File.dirname(__FILE__)
Eap=WIN32OLE::new("Excel.Application");Eap.visible=true
Ebk=Eap.workbooks.open(Pth+'/火影.xls')
Wap=WIN32OLE::new("word.Application");Wap.visible=true
Wdc=Wap.documents.open(Pth+'/火影信息卡.doc')
n=Ebk.worksheets(1).usedrange.rows.count-2;i=1
arr = Array;arr=Ebk.worksheets(1).usedrange.value
# 创建表格
Wap.selection.wholeStory
Wap.selection.copy
n.times{
Wap.selection.endKey
Wap.selection.insertbreak(2)
Wap.selection.paste
}
t=Wdc.tables.count;
# 写入Word表
(1..t).each{|i|
Wdc.tables(i).cell(1,2).range.text=arr[i][0]
Wdc.tables(i).cell(2,2).range.text=arr[i][1]
Wdc.tables(i).cell(3,2).range.text=arr[i][2]
Wdc.tables(i).cell(4,2).range.text=arr[i][3]
Wdc.tables(i).cell(1,4).range.text=arr[i][4]
Wdc.tables(i).cell(2,4).range.text=arr[i][5]
Wdc.tables(i).cell(3,4).range.text=arr[i][6]
Wdc.tables(i).cell(4,4).range.text=arr[i][7]
i+=1
}举报
腾讯云开发者
