-
oracle学习文档 笔记 全面 深刻 详细 通俗易懂 doc word格式 清晰 连接字符串
2017-05-06 20:26:52oracle学习文档 笔记 全面 深刻 详细 通俗易懂 doc word格式 清晰 第一章 Oracle入门 一、 数据库概述 数据库(Database)是按照数据结构来组织、存储和管理数据的仓库,它产生于距今五十年前。简单来说是本身可视... -
excel表格输出到word中的一种方法
2012-05-07 12:49:32目前的应用场景,经常需要把excel里头的几张财务报表,作为附表拷贝到word报告中,每次复制粘贴后,格式都变了,用“仅保留文本”的粘贴方式也不奏效,文字大小、数字对齐都不合要求,需要手动调一遍,费时且易出错...网上搜了一些方法介绍,其中一种是用邮件合并功能,没看明白。目前的应用场景,经常需要把excel里头的几张财务报表,作为附表拷贝到word报告中,每次复制粘贴后,格式都变了,用“仅保留文本”的粘贴方式也不奏效,文字大小、数字对齐都不合要求,需要手动调一遍,费时且易出错,很痛苦。
以下过程的思路如下:由于每张表格的行列及表头内容都是一样的(财务报表嘛,标准格式),因而只需将完整的表格放在word文档中作为模板,然后拷贝数值部分的行列填充到word中的对应表格中即可。
实施要点:
1、在excel中用名称管理器定义数值区域,不要写死区域(如B3:E80),避免未来修改
2、在word表格中,定义书签以便快速定位,但标签要放在表头单元格中,如果放在数据单元格中,excel数据覆盖过来后就会丢失该书签
3、在excel中,要勾选对word的object library的引用(见代码注释),否则无法正常执行
4、在excel工作表里,放置一个按钮,关联到btn3_click()过程
操作非常简单:点击按钮,一键搞定。原来要几个小时,弄完后眼花头痛非常累,现在只需几秒钟,瞬间搞定!最重要的是,准确率100%,而原来再细心的人也难保在N次拷贝粘贴中不出错一次。
代码一个小问题留待读者扩展:点击按钮后,偶尔会报错抛异常,提示剪贴板为空,这时需要手动关闭word文件,重新再执行一次。所以代码中应该再加个异常捕获,抛异常后,自动关闭word文档,并提示用户重新执行一遍,就比较理想了。
希望对经常需要从excel中拷贝粘贴财务报表到word中的朋友有帮助。
<pre name="code" class="vb">Sub btn3_click()
'On Error GoTo ret ' 错误处理(关闭文件句柄,避免内存泄露)
'Dim mWord As New Word.Application
'Dim mDoc As Document
Set srcSheet = ActiveSheet
Dim i, j, ret, dstFileName, arrTableName(1 To 7), arrReplaceText(1 To 2)
dstFileName = srcSheet.Range("I1").Text '设置的输出word文件路径
arrTableName(1) = "Brief" ' 首页简表
arrTableName(2) = "BS" ' 资产
arrTableName(3) = "BSS" ' 负债及所有者权益
arrTableName(4) = "IS" ' 利润表
arrTableName(5) = "CF" ' 现金流量表
arrTableName(6) = "CFF" ' 现金流量表补充材料
arrTableName(7) = "Main" ' 主要财务指标
arrReplaceText(1) = "#DIV/0!"
arrReplaceText(2) = "#NUM!"
' 需要在Tools - References... 找到Microsoft Word 14.0 Object Library并选中。否则会提示“书签不存在”
Set mWord = CreateObject("Word.Application")
With mWord
.Visible = True ' word窗口可见
'.Activate
.Documents.Open Filename:=dstFileName
For i = LBound(arrTableName) To UBound(arrTableName)
'Application.Goto Reference:=arrTableName(i)
'Selection.Copy
srcSheet.Range(srcSheet.Names(arrTableName(i))).Copy
.Selection.Goto What:=wdGoToBookmark, Name:=arrTableName(i)
.Selection.MoveDown Unit:=wdLine, Count:=1
.Selection.Paste
Next
' 最后清空excel产生的无效字符,如"#DIV/0!"
For j = LBound(arrReplaceText) To UBound(arrReplaceText)
.Selection.Find.ClearFormatting
With .Selection.Find
.Text = arrReplaceText(j)
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchWholeWord = True
End With
.Selection.Find.Execute Replace:=wdReplaceAll
Next
End With
ret:
Set mWord = Nothing
End Sub</pre>
<br /> -
ASP.NET开发实战1200例(第2卷).(清华出版.房大伟.吕双).part1
2016-06-12 09:54:23实例083 将多个Word文档合并为一个Word文档 实例084 批量替换Word文档中指定的字符串 3.2 读取外部数据到Word中 196 实例085 读取文本文件到Word中 实例086 读取多个文本文件到同一Word文档中 实例087 读取... -
Excel VBA实用技巧大全 附书源码
2010-10-08 18:59:2401036设置按【Enter】键后单元格的移动方向 01037设置最近使用的文件清单中的最多文件数 01038设置新工作簿中的工作表个数 01039设置文件的默认位置 01040设置保存自动恢复文件的时间间隔和保存位置 01041停止屏幕... -
计算机应用技术(实用手册)
2011-07-29 16:32:16Phoenix-award workstation BIOS V6.00PC,An Energy star Ally copyright(c) 1984-2003,Phoenix Technologies,LTD 这句英语的意思是:Phoenix-award这两家COMS芯片开发公司合并后共同开发第6号BIOS版本,采用美国... -
易语言程序免安装版下载
2011-04-07 09:28:50静态编译后的易语言可执行程序(exe)和动态链接库(dll),运行时不再依赖任何支持库文件,文件尺寸更小(相对以前的独立编译),PE结构更合理(取消了“易格式体”),加载速度更快,而且有效解决了“病毒误报”和... -
python-docx:读取,查询以及修改 Microsoft Word 2007/2008 docx 文件。 python-pptx:可用于创建和修改 ppt 文件的 Python 库。 relatorio:模板化 OpenDocument 文件。 unoconv:在 LibreOffice/OpenOffice ...
-
+ 基于深度学习的中文语音识别系统、笑声检测器、Microsoft多语言数字/单位/如日期时间识别包、中华新华字典数据库及api(包括常用歇后语、成语、词语和汉字)、文档图谱自动生成、SpaCy 中文模型、Common Voice语音...
-
ASP.NET开发实战1200例(第1卷).part2
2016-06-11 20:12:37实例170 验证电子邮件地址 275 实例171 验证网址输入格式 276 实例172 验证电话号码 277 实例173 验证邮政编码 278 6.2 文本与数值验证 279 实例174 验证文本框中是否输入数据 279 实例175 验证两次输入的密码是否... -
ASP.NET开发实战1200例(第1卷).part1
2016-06-11 20:07:19实例170 验证电子邮件地址 275 实例171 验证网址输入格式 276 实例172 验证电话号码 277 实例173 验证邮政编码 278 6.2 文本与数值验证 279 实例174 验证文本框中是否输入数据 279 实例175 验证两次输入的密码是否... -
ASP.NET开发实战1200例(第1卷).part3
2016-06-11 20:19:00实例170 验证电子邮件地址 275 实例171 验证网址输入格式 276 实例172 验证电话号码 277 实例173 验证邮政编码 278 6.2 文本与数值验证 279 实例174 验证文本框中是否输入数据 279 实例175 验证两次输入的密码是否... -
Linux操作系统基础教程
2013-04-08 21:34:26(Torvalds@kruuna.helsinki.fi)写了 Linux核心程序的 0.02 版开始的,但其后的发展却几乎都 是由互联网上的 Linux社团(Linux Community)互通交流而完成的。Linux 不属于任何一 家公司或个人,任何人都可以免费取得... -
JAVA上百实例源码以及开源项目源代码
2018-12-11 17:07:42Java zip压缩包查看程序源码 1个目标文件 摘要:Java源码,文件操作,压缩包查看 Java zip压缩包查看程序,应用弹出文件选择框,选择ZIP格式的压缩文件,可以像Winrar软件一样查看压缩文件内部的文件及文件夹,源码... -
JAVA上百实例源码以及开源项目
2016-01-03 17:37:40util实现Java图片水印添加功能,有添加图片水印和文字水印,可以设置水印位置,透明度、设置对线段锯齿状边缘处理、水印图片的路径,水印一般格式是gif,png,这种图片可以设置透明度、水印旋转等,可以参考代码... -
EXCEL2007VBA与宏完全剖析 1/4
2012-03-31 14:42:03他在一家快速成长的计算机公司担任了12年的财务分析师,在此期间其Excel技能变得出神入化。只需凭借一个电子表格,他就能够在最短的时间内将数千行的交易数据变成有意义的摘要报告。Bill Jelen是一名卓有成就的Excel... -
程序开发范例宝典>>
2012-10-24 10:41:28内容提要 本书紧密围绕程序开发人员在编程中遇到的实际问题和开发中应该掌握的技术,...实例256 获取系统启动后经过的时间 351 实例257 系统已经安装的打印机信息 352 7.8 鼠标操作 353 实例258 切换鼠标... -
书 名:程序开发范例宝典>>【中卷】(分三卷上传完本书案例)
2010-04-05 21:59:37实例256 获取系统启动后经过的时间 351 实例257 系统已经安装的打印机信息 352 7.8 鼠标操作 353 实例258 切换鼠标左右键 353 实例259 限制鼠标活动区域 354 实例260 获取鼠标在任意点的颜色值 355 实例... -
书 名:程序开发范例宝典>>【下卷】(分三卷上传完本书案例)
2010-04-05 03:24:09实例256 获取系统启动后经过的时间 351 实例257 系统已经安装的打印机信息 352 7.8 鼠标操作 353 实例258 切换鼠标左右键 353 实例259 限制鼠标活动区域 354 实例260 获取鼠标在任意点的颜色值 355 实例... -
软件工程师典藏:C#程序开发范例宝典(第2版).part01
2012-11-11 20:05:51实例256 获取系统启动后经过的时间 351 实例257 系统已经安装的打印机信息 352 7.8 鼠标操作 353 实例258 切换鼠标左右键 353 实例259 限制鼠标活动区域 354 实例260 获取鼠标在任意点的颜色值 355 实例261 设置鼠标... -
C#程序开发范例宝典(第2版).part02
2012-11-12 07:55:11实例256 获取系统启动后经过的时间 351 实例257 系统已经安装的打印机信息 352 7.8 鼠标操作 353 实例258 切换鼠标左右键 353 实例259 限制鼠标活动区域 354 实例260 获取鼠标在任意点的颜色值 355 实例261 ... -
C#程序开发范例宝典(第2版).part13
2012-11-12 20:17:14实例256 获取系统启动后经过的时间 351 实例257 系统已经安装的打印机信息 352 7.8 鼠标操作 353 实例258 切换鼠标左右键 353 实例259 限制鼠标活动区域 354 实例260 获取鼠标在任意点的颜色值 355 实例261 ... -
C#程序开发范例宝典(第2版).part08
2012-11-12 08:04:21实例256 获取系统启动后经过的时间 351 实例257 系统已经安装的打印机信息 352 7.8 鼠标操作 353 实例258 切换鼠标左右键 353 实例259 限制鼠标活动区域 354 实例260 获取鼠标在任意点的颜色值 355 实例261 ... -
C#程序开发范例宝典(第2版).part03
2012-11-12 07:56:38实例256 获取系统启动后经过的时间 351 实例257 系统已经安装的打印机信息 352 7.8 鼠标操作 353 实例258 切换鼠标左右键 353 实例259 限制鼠标活动区域 354 实例260 获取鼠标在任意点的颜色值 355 实例261 ... -
C#全能速查宝典
2014-04-26 16:16:271.4.38 StringBuilder类——可变字符串 82 1.4.39 Substring方法——截取字符串 83 1.4.40 TimeSpan对象——表示时间间隔或持续时间 84 1.4.41 ToInt32方法——转换为32位有符号整数 85 1.4.42 ToLongDateString ...
收藏数
25
精华内容
10
-
4.1 网络层提供的两种服务
-
2021年 系统分析师 系列课
-
js 实现拖拽(面向对象方式实现)
-
织梦磨矿球磨机类机械设备网站织梦模板(带手机端)
-
使用vue搭建微信H5公众号项目
-
织梦响应式环保新材料类网站织梦模板(自适应手机端)
-
PPT大神之路高清教程
-
Android消息推送MQTT实战
-
Docker从入门到精通
-
投标方法论
-
数据排序处理(排序的处理使用Comparable接口完成,同时利用Arrays类处理)
-
织梦响应式日化食品零食类网站织梦模板(自适应手机端)
-
IOC容器概述
-
织梦响应式健身俱乐部类网站织梦模板(自适应手机端)
-
MySQL NDB Cluster 负载均衡和高可用集群
-
多方安全计算(MPC)原理简介
-
织梦工程建筑职业院校学校类织梦模板(带手机端)
-
tarotace:使用CodeSandbox创建-源码
-
基于Flink+Hudi构建企业亿级云上实时数据湖教程(PC、移动、小
-
MSCPLAYER.rar