word如何引用excel数据

VBA

用VBA可以批量搞到数据。那个路径C:UserssigmaxuDesktop1.xlsx就是你excel文件的位置。我贴段代码给你参考下：Sub Test()续父风术胡内改销南也知 Dim my_Object As ObjectSet my_Object = GetObject(C:UserssigmaxuDesktop1.xlsx)然后这段是输入框，让你输入行数，默认是2行Dim row_Count As Singlerow_Count = InputBox(请输入行数, Default:=2)下面这段是新建表格，行数是输入的行数乘以3，列数是2列ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=row_Count * 3, NumColumns:= _ 2, DefaultTableBehavior:=wdword9TableBehavior, AutoFitBehavior:= _ wdAutoFitFixedWith ThisDocument.Tables(1)Dim i As SingleFor i = 2 To row_Count必仅渐Cell这部分是给表格填内容，比如姓名、性别、年龄这些字段.Cell(1 + 3 * (i - 2), 1).Range = 姓名.Cell(2 + 3 * (i - 2), 1).Range = 性别.Cell(3 + 3 * (i - 2), 1).Range = 年龄然后从excel里取数据，分别填到表格里.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