专业微软培训机构,为北京、上海、广州、深圳、长沙、武汉、福州、厦门、泉州、漳州等城市提供EXCEL、PPT、WORD、ACCESS、PROJECT、MCSE、MCITP、OFFICE等高级培训及相关技术服务。

0592-2962798 2963798
2966798 2968798
厦门市厦禾路南洋大厦二楼

最新文章列表

高士达平台设计开发的泰欣订单管理系..

EXCEL一键实现报关单据生成

[EXCEL]高手都是这么写公式的

快速将EXCEL表中的内容缩放至一页进..

建发汽车干部考核系统实现方案

金牌OFFICE老师刘凌峰教你利用VBA调..

热门文章列表

如何解决EXCEL运行速度慢的问题

利用EXCEL VBA向WORD生成表格和图表..

【高士达下载】高士达工具箱

瑞声达模具管理系统顺利升级到WINDO..

【课程】深入挖掘EXCEL函数宝藏

利用VLOOKUP提取多个条件的同一结果..

利用EXCEL VBA向WORD生成表格和图表

关键字:EXCEL云平台,EXCEL开发    发布时间:2015-04-10 14:18:41    作者:Excel培训管理员
    最近在实施的一个项目中碰到客户需要将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
End Sub

不足20行的代码,轻松解决制作大量通用WORD报告的问题。以后碰到要很辛苦制作报表的事情,别忘记来找我们。
本文关键词:EXCEL云平台   EXCEL开发   

厦门高士达是一家微软认证培训机构,是专业的EXCEL培训、PPT培训、ACCESS培训、OFFICE培训、微软培训、微软考试及其他IT服务供应商 ©2014 厦门高士达微软高级技术教育中心   闽ICP备14021819号 技术支持:港湾有巢

闽公网安备 35020302001653号