我需要大批量的处理这word文档,引用excel里面的数据,怎么弄啊。

2026年09月27日 13:10
有3个网友回答
网友(1):

使用VBA可以批量获得。"C:\Users\sigmaxu\Desktop\1.xlsx"是excel文档路径。

Sub Test()
Dim my_Object As Object
Set my_Object = GetObject("C:\Users\sigmaxu\Desktop\1.xlsx")


Dim row_Count As Single
row_Count = InputBox("请输入行数", Default:=2)

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=row_Count * 3, NumColumns:= _
        2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
With ThisDocument.Tables(1)
Dim i As Single
For i = 2 To row_Count

.Cell(1 + 3 * (i - 2), 1).Range = "姓名"
.Cell(2 + 3 * (i - 2), 1).Range = "性别"
.Cell(3 + 3 * (i - 2), 1).Range = "年龄"
.Cell(1 + 3 * (i - 2), 2).Range = my_Object.worksheets(1).Cells(2, 1).Value
.Cell(2 + 3 * (i - 2), 2).Range = my_Object.worksheets(1).Cells(2, 2).Value
.Cell(3 + 3 * (i - 2), 2).Range = my_Object.worksheets(1).Cells(i, 3).Value
Next
End With
my_Object.Close
End Sub

网友(2):

为啥需要Word呢?如果是打印输出,在Excel里面也可以。

网友(3):

百度一下
word邮件合并
你就有答案了。