WordVBA中读取Excel表格中的数据
WordVBA中读取Excel表格中的数据
Word VBA中读取Excel表格中的数据
前天有⼀个项⽬需要写详细设计报告，其中有⼀块重要内容是把Excel中的每⼀⾏数据做成⼀个Word中的表格。⼀共将近100⾏数据，如果我⼀⾏⼀⾏地⼿动去做，估计⼿就废了，于是采⽤Word VBA。
基本编程思路
1. 创建⼀个空word⽂档
大学英语四级考试技巧2. word⽂档中，编辑好⼀个⽰例表格，作为⼀个母表，后续所有的表格程序都是复制这张表，然后修改复制后的新表格的数据
3. 打开Excel，遍历每⼀⾏数据
4. 取这⼀⾏关键数据，复制母表，改变复制后的表格数据
代码⽚段
Dim wb As Document
喝酒
Set doc = Application.ActiveDocument
Set xlapp = CreateObject("excel.application")
Set wkBook = xlapp.Workbooks.Open("C:\Users\shenh\Desktop\VBA处理Excel表格\⼏何拓扑检查项.xlsx")
For rowNum = 1 To 63
CheckName = wkBook.Worksheets(1).Cells(rowNum, 3)
策划书范文meaning = wkBook.Worksheets(1).Cells(rowNum, 4)
CheckName = CheckName & "项"
paraCount = doc.Paragraphs.Count
doc.Paragraphs(paraCount).Range.Text = CheckName & vbCrLf            '写标题
paraCount = doc.Paragraphs.Count
doc.Paragraphs(paraCount).Range.Text = CheckName & "详细定义见表" & rowNum + 75 & "所⽰" & vbCrLf        '写标题
paraCount = doc.Paragraphs.Count
doc.Paragraphs(paraCount).Range.Text = "表 " & rowNum + 75 & " " & CheckName & "定义表" & vbCrLf
doc.Tables(1).Range.Copy
Set endRange = ActiveDocument.Content
端午节的祝福语短句
endRange.Collapse Direction:=wdCollapseEnd
endRange.Paste
doc.Tables(rowNum + 1).Cell(1, 3).Range.Text = CheckName
奔驰是哪个国家的
doc.Tables(rowNum + 1).Cell(1, 3).Range.Text = meaning
Next
MsgBox wkBook.Sheets(1).Cells(1, 5)
wkBook.Close
理想的名人名言
xlapp.Quit

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。