将excel表格里的数据写入word表格中

MCXY

1. Sub xlinsetwd()
   
2.     Dim tableNew As Table
   
3.     Dim aRow, Num As Integer
   
4.     Dim arr, i%, xlApp As New Excel.Application
   
5.     Application.ScreenUpdating = False
   
6. xlApp.workbooks.Open ThisDocument.Path & "\报价.xlsx"
   
7.         arr = workbooks("报价.xlsx").worksheets(1).Range("A1").CurrentRegion
   
8.         workbooks("报价.xlsx").Close False
   
9.         xlApp.Quit
   
10.     Set tableNew = Selection.Tables(1)
    
11.     If Selection.Information(wdWithInTable) = True Then    '判断是否选中表格
    
12.         MsgBox "我在表格第 " & .Information(wdStartOfRangeRowNumber) & " 行，第 " & .Information(wdStartOfRangeColumnNumber) & " 列"
    
13.         With tableNew
    
14.             For i = 1 To UBound(arr)
    
15.                 .Cell(i, 8).VerticalAlignment = wdCellAlignVerticalCenter
    
16.                 .Cell(i, 8).Range.Delete
    
17.                 .Cell(i, 8).Range.Text = arr(i, 8)    '将数组中第8列写入指定位置
    
18.                 .Cell(i, 9).Range.Delete
    
19.                 .Cell(i, 9).VerticalAlignment = wdCellAlignVerticalCenter
    
20.                 .Cell(i, 9).Range.InsertAfter "6%"      '将数组中第9列写入指定位置
    
21.             Next
    
22.         End With
    
23.     End If
    
24.     Application.ScreenUpdating = True
    
25. End Sub

复制代码

痛痛痛痛

应该有前因后果吧，应该有个word模板+Excel数据吧。

苏阳湖wzy

建议楼主上传附件