利用EXCELVBA向WORD生成表格和图表

发布日期：2022.06.07　　来源：高士达　　作者：高士达　　浏览次数：2420次

 最近在实施的一个项目中碰到客户需要将EXCEL的表格和图表自动传递到WORD标准模板中，并嵌入到指定位置。微软OFFICE中有很强的互用性。几经摸索成功测试！！！现将思路整理如下：
1、建立好标准WORD模板，在需要插入表格或图表的位置设置好书签。
2、在EXCEL中，将表格复制。
3、通过VBA代码调用WORD，并将内容复制到指定位置。
参考代码如下：
Private Sub 生成表格到WORD_Click()
""声明变量
Dim MyRange As Excel.Range
Dim wd As Word.Application
Dim wdDoc As Word.Document
Dim WdRange As Word.Range
""复制区域
Set MyRange = Sheet1.Range("A1:H9")
MyRange.Copy
""打开Word文档
Set wd = New Word.Application
Set wdDoc = wd.Documents.Open("D:TEST.DOT")
wd.Visible = True
""将光标移至书签位置
Set WdRange = wdDoc.Bookmarks("TEST").Range
On Error Resume Next
WdRange.Paste
""内存清理
Set wd = Nothing
Set wdDoc = Nothing
Set WdRange = Nothing