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=trueEbk=Eap.workbooks.open(Pth+'/火影.xls')Wap=WIN32OLE::new('word.Application');Wap.visible=trueWdc=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}