怎么把excel的内容用VBA写入到word的表格中

516593566

怎么把excel的内容用VBA写入到word的表格中，

excel里面的

写入到word里面的

word的行数根据excel内表格行数自动增加或删减
因为数据有时候较多，复制比较耗时。希望可以用
VBA解决下，感谢各位大神

taller

1. Sub Demo()
   
2.     Dim i As Long, j As Long
   
3.     Dim arrData, rngData As Range
   
4.     Dim arrRes, iR As Long, sDoc As String
   
5.     Dim RowCnt As Long, ColCnt As Long
   
6.     Set rngData = ActiveSheet.Range("A1").CurrentRegion
   
7.     arrData = rngData.Value
   
8.     RowCnt = UBound(arrData)
   
9.     ColCnt = UBound(arrData, 2)
   
10.     Dim wdApp As Object, wdDoc, wdTab
    
11.     On Error Resume Next
    
12.     Set wdApp = GetObject(, "word.application")
    
13.     On Error GoTo 0
    
14.     If wdApp Is Nothing Then
    
15.         Set wdApp = CreateObject("word.application")
    
16. '        wdApp.Visible = True
    
17.     End If
    
18.     Set wdDoc = wdApp.Documents.Add
    
19.     Set wdTab = wdDoc.Tables.Add(Range:=wdApp.Selection.Range, _
    
20.         NumRows:=RowCnt, NumColumns:=ColCnt, DefaultTableBehavior:=1)
    
21. 
    
22.     For i = LBound(arrData) To UBound(arrData)
    
23.         For j = LBound(arrData, 2) To UBound(arrData, 2)
    
24.                 wdTab.Cell(i, j).Range.Text = arrData(i, j)
    
25.         Next j
    
26.     Next i
    
27.     sDoc = ThisWorkbook.Path & "\WdTable.docx"
    
28.     Kill sDoc
    
29.     wdDoc.SaveAs sDoc
    
30.     wdDoc.Close
    
31.     ' wdApp.Quit
    
32.     MsgBox "Done"
    
33. End Sub

复制代码

zmj9151

------------

gwjkkkkk

是增加进去还是按照表格数据生成word表格？

taller

516593566

taller 发表于 2024-3-15 02:33

您好，代码怎么无法复制出来？

516593566

taller 发表于 2024-3-16 12:59

版主，你的代码是可以导入数据，但是我前面有不同的表头，怎么操作都是只会现在你的那东西，我那么东西没显示

516593566

taller 发表于 2024-3-16 12:59

版主，您好，我是想在这一块地方插入那些数据上去


恳请版主，帮忙下，谢谢

cai2532

留下脚印。

wang_jg

taller 发表于 2024-3-16 12:59

如果遇到表格列很多，如何保证在word里面显示全呢数据？