Word VBA中讀取Excel表格中的數(shù)據(jù)

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

基本編程思路

創(chuàng)建一個空word文檔

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

打開Excel，遍歷每一行數(shù)據(jù)

取這一行關(guān)鍵數(shù)據(jù)，復(fù)制母表，改變復(fù)制后的表格數(shù)據(jù)

代碼片段

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

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。