作者:乔山办公网日期:
返回目录:excel表格制作
貌似没有什么灵活办法,只有一个个复制
如果你的WORD表格可以修改,你可以利用一下文本转换成表格,表格转换成文本这一功能试试。
先复制excel要导入的数据,选择性粘贴选择excel(鼠标要放在指定的表格里才能指定对应位置)。如下图所示:
可以的话采纳一下。。。
word模版编辑,在设置好word模版,把excel文件的数据准备好,它可以自动化地把姓名、职位、部门等你要填的数据,批量导入word模版,然后打印
这个可以在EXCEL中用宏e799bee5baa6e997aee7ad94e4b893e5b19e339命令来完成。
假设Word文件名为表格.doc,与EXCEL文件放在同一个文件夹中。
假设Excel中一条数据需要导入10列单元格,从A列开始。
Word文件中有两个相同表格,但只用导入到一个表格。
Sub text()
Dim wd As New Word.Application, arr
arr = Range("A" & n).CurrentRegion
For i = 1 To UBound(arr)
With GetObject(ThisWorkbook.Path & "\表格.doc")
.tables(1).Cell(i, 1).Range = arr(i, 1)
.tables(1).Cell(i, 2).Range = arr(i, 2)
.tables(1).Cell(i, 3).Range = arr(i, 3)
.tables(1).Cell(i, 4).Range = arr(i, 4)
.tables(1).Cell(i, 5).Range = arr(i, 5)
.tables(1).Cell(i, 6).Range = arr(i, 6)
.tables(1).Cell(i, 7).Range = arr(i, 7)
.tables(1).Cell(i, 8).Range = arr(i, 8)
.tables(1).Cell(i, 9).Range = arr(i, 9)
.tables(1).Cell(i, 10).Range = arr(i, 10)
.Save
End With
Next i
wd.Quit
End Sub