J9九游会AG

专业电脑培训(xun)(xun)机构,为北京(jing)、上(shang)海(hai)、广州、深圳、长沙(sha)、武(wu)汉(han)、福州、厦门等城市提(ti)供EXCEL培训(xun)(xun)、PPT培训(xun)(xun)、WORD培训(xun)(xun)、ACCESS培训(xun)(xun)、PROJECT培训(xun)(xun)、MCSE培训(xun)(xun)、MCITP培训(xun)(xun)、OFFICE培训(xun)(xun)等高级培训(xun)(xun)及(ji)相(xiang)关技术服务。

0592-2962798 2963798
2966798 2968798
厦门湖滨南路皇达大厦5楼

最新文章列表

日报表这样做,快速填写,自动汇总,不..

J9九游会AG工具箱系列教程之快速分栏

J9九游会AG财务收支预测工具

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

不允许EXCEL出现系统的提示对话框

高效办公:自动汇总数据有多难?J9九游会AG..

热门文章列表

【J9九游会AG下载】J9九游会AG工具箱

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

厦门J9九游会AGEXCEL数据管理平台

金牌EXCEL老师刘凌峰教你如何在文本..

【J9九游会AG下载】J9九游会AG分发汇总工具

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

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

关键字:EXCEL云平台,EXCEL开发    发布时间:2020/11/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报告的问题。以后碰到要很辛苦制作报表的事情,别忘记来找J9九游会AG 。
本文关键词:EXCEL云平台   EXCEL开发   

厦(sha)门J9九游会AG是一家微(wei)软认证培训(xun)机构,是专业的EXCEL培训(xun)、PPT培训(xun)、ACCESS培训(xun)、OFFICE培训(xun)、微(wei)软培训(xun)、微(wei)软考试及其他IT服务供(gong)应商(shang) ©2014 厦(sha)门J9九游会AG微(wei)软高(gao)级技(ji)术教育(yu)中心 技(ji)术支持: