230问答网 > 我想用word里面的宏（VBA）来实现，将EXCEL表格里指定的数据粘到当前word中，哪位大侠帮我实现一下

我想用word里面的宏（VBA）来实现，将EXCEL表格里指定的数据粘到当前word中，哪位大侠帮我实现一下

2024-12-15 10:30:55

推荐回答（3个）

回答1：

试验一下如下代码：

Sub Test()
Dim my_Object As Object
Set my_Object = GetObject("XX/XX/xx.XLSX")


ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
        2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
With ThisDocument.Tables(1)


ThisDocument.Tables(1).Cell(1, 1).Range = my_Object.Worksheets(1).Cells(1, 1).Value
my_Object.Close
End Sub

回答2：

貌似从Excel里的vba往Word里写方便些

回答3：

excel输出数据帮实现