需求
现要求将一个 Excel 数据表中的每行数据导成一个 Word 文档，即有多少行数据就生成多少个 Word 文档，Excel 每列与 Word 文档中的表格项一一对应。
实现
前置工作：将 Word 文档空表格当作模板文档做好，与 Excel 数据源文件置于同一路径下。
Sub 分离()
Application.ScreenUpdating = False
p = ThisWorkbook.Path & "/"
f = p & "空白模板.doc"
Dim myWS As Worksheet
Set myWS = ThisWorkbook.Sheets(1) '存有数据的表格
For i = 3 To 54 '遍历数据行
FileCopy f, p & "test/" & myWS.Cells(i, 2).Text & ".doc" '复制空模板并以某列数据为名命名新产生的文档
Set wd = CreateObject("word.application")
Set d = wd.documents.Open(p & "test/" & myWS.Cells(i, 2).Text & ".doc") '打开新文档
d.tables(1).Cell(1, 2) = myWS.Cells(i, 2).Text '###
'复制表格每列内容到文档，有多少项就有多少条
d.tables(1).Cell(5, 4) = myWS.Cells(i, 20).Text '###
d.Close
wd.Quit
Set wd = Nothing
Next
Application.ScreenUpdating = True
End Sub
文档信息
- 本文作者：AlwaysZmx
- 本文链接：https://weblab.top/2011/05/25/export-data-from-excel-to-word-by-vba/
- 版权声明：自由转载-非商用-非衍生-保持署名（创意共享3.0许可证）