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

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

基本編程思路

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

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

打開(kāi)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表格\幾何拓?fù)錂z查項(xiàng).xlsx")For rowNum = 1 To 63CheckName = wkBook.Worksheets(1).Cells(rowNum, 3)meaning = wkBook.Worksheets(1).Cells(rowNum, 4)CheckName = CheckName & "項(xiàng)"paraCount = doc.Paragraphs.Countdoc.Paragraphs(paraCount).Range.Text = CheckName & vbCrLf '寫(xiě)標(biāo)題paraCount = doc.Paragraphs.Countdoc.Paragraphs(paraCount).Range.Text = CheckName & "詳細(xì)定義見(jiàn)表" & rowNum + 75 & "所示" & vbCrLf '寫(xiě)標(biāo)題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表格中的数据的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

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