Word VBA中讀取Excel表格中的數據

前天有一個項目需要寫詳細設計報告，其中有一塊重要內容是把Excel中的每一行數據做成一個Word中的表格。一共將近100行數據，如果我一行一行地手動去做，估計手就廢了，于是采用Word VBA。

基本編程思路

創建一個空word文檔

word文檔中，編輯好一個示例表格，作為一個母表，后續所有的表格程序都是復制這張表，然后修改復制后的新表格的數據

打開Excel，遍歷每一行數據

取這一行關鍵數據，復制母表，改變復制后的表格數據

代碼片段

Dim wb As Document Set doc = Application.ActiveDocumentSet xlapp = CreateObject("excel.application") Set wkBook = xlapp.Workbooks.Open("C:\Users\shenh\Desktop\VBA處理Excel表格\幾何拓撲檢查項.xlsx")For rowNum = 1 To 63CheckName = wkBook.Worksheets(1).Cells(rowNum, 3)meaning = wkBook.Worksheets(1).Cells(rowNum, 4)CheckName = CheckName & "項"paraCount = doc.Paragraphs.Countdoc.Paragraphs(paraCount).Range.Text = CheckName & vbCrLf '寫標題paraCount = doc.Paragraphs.Countdoc.Paragraphs(paraCount).Range.Text = CheckName & "詳細定義見表" & rowNum + 75 & "所示" & vbCrLf '寫標題paraCount = doc.Paragraphs.Countdoc.Paragraphs(paraCount).Range.Text = "表 " & rowNum + 75 & " " & CheckName & "定義表" & vbCrLfdoc.Tables(1).Range.CopySet endRange = ActiveDocument.ContentendRange.Collapse Direction:=wdCollapseEndendRange.Pastedoc.Tables(rowNum + 1).Cell(1, 3).Range.Text = CheckNamedoc.Tables(rowNum + 1).Cell(1, 3).Range.Text = meaningNext MsgBox wkBook.Sheets(1).Cells(1, 5) wkBook.Close xlapp.Quit

總結

以上是生活随笔為你收集整理的Word VBA中读取Excel表格中的数据的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。