VBA把快表明细表写入到word表格中

适用版本：企业版V989

说明：放到对应事件/按钮下执行Sub InsertTableRows()；

1.                   Sub InsertTableRows()
   
2.                         Dim _word As Object = AutomationFactory.CreateObject("Word.Application")
   
3.                         _word.visible = True
   
4.                         _word.Documents.open("d:\word\demo.docx")'ActiveDocument
   
5.                         ActiveWorkbook.WorkbookSet.GetLock()
   
6.                         _Word.ActiveDocument.bookmarks("BT").Range.Text = Range("F_62861").Cells(0, 0).Text
   
7. 
   
8.                         Dim tb = _word.ActiveDocument.Tables(1)
   
9.                         Dim AB2 As Integer
   
10.                         Dim y2 As Integer
    
11.                         AB2 = Range("F_62855").Rows.Count -2
    
12. '------循环插入表格行数-----
    
13.                         For y2 = 1 To AB2
    
14.                                 tb.rows.add()
    
15.                         Next
    
16. '------循环表格内容-----               
    
17.                         Dim ii As Integer
    
18.                         For ii = 1 To tb.rows.count
    
19.                                 
    
20.                                 tb.Cell(ii, 1).Range.Text = Range("F_62855").Cells(ii -2, 0).Text
    
21.                                 tb.Cell(ii, 2).Range.Text = Range("F_62856").Cells(ii -2 , 0).Text
    
22.                                 tb.Cell(ii, 3).Range.Text = Range("F_62857").Cells(ii -2, 0).Text
    
23.                                 tb.Cell(ii, 4).Range.Text = Range("F_62858").Cells(ii -2, 0).Text
    
24.                                 tb.Cell(ii, 5).Range.Text = Range("F_62859").Cells(ii -2, 0).Text
    
25.                                 tb.Cell(ii, 6).Range.Text = Range("F_62860").Cells(ii -2, 0).Text
    
26.                         Next
    
27.                         ActiveWorkbook.WorkbookSet.ReleaseLock()
    
28. 
    
29.                 End Sub

复制代码

VBA把快表明细表写入到word表格中

适用版本：企业版V989

说明：放到对应事件/按钮下执行Sub InsertTableRows()；

1.                   Sub InsertTableRows()
   
2.                         Dim _word As Object = AutomationFactory.CreateObject("Word.Application")
   
3.                         _word.visible = True
   
4.                         _word.Documents.open("d:\word\demo.docx")'ActiveDocument
   
5.                         ActiveWorkbook.WorkbookSet.GetLock()
   
6.                         _Word.ActiveDocument.bookmarks("BT").Range.Text = Range("F_62861").Cells(0, 0).Text
   
7. 
   
8.                         Dim tb = _word.ActiveDocument.Tables(1)
   
9.                         Dim AB2 As Integer
   
10.                         Dim y2 As Integer
    
11.                         AB2 = Range("F_62855").Rows.Count -2
    
12. '------循环插入表格行数-----
    
13.                         For y2 = 1 To AB2
    
14.                                 tb.rows.add()
    
15.                         Next
    
16. '------循环表格内容-----               
    
17.                         Dim ii As Integer
    
18.                         For ii = 1 To tb.rows.count
    
19.                                 
    
20.                                 tb.Cell(ii, 1).Range.Text = Range("F_62855").Cells(ii -2, 0).Text
    
21.                                 tb.Cell(ii, 2).Range.Text = Range("F_62856").Cells(ii -2 , 0).Text
    
22.                                 tb.Cell(ii, 3).Range.Text = Range("F_62857").Cells(ii -2, 0).Text
    
23.                                 tb.Cell(ii, 4).Range.Text = Range("F_62858").Cells(ii -2, 0).Text
    
24.                                 tb.Cell(ii, 5).Range.Text = Range("F_62859").Cells(ii -2, 0).Text
    
25.                                 tb.Cell(ii, 6).Range.Text = Range("F_62860").Cells(ii -2, 0).Text
    
26.                         Next
    
27.                         ActiveWorkbook.WorkbookSet.ReleaseLock()
    
28. 
    
29.                 End Sub

复制代码