这期,为你解说如何将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}