精华内容
下载资源
问答
  • oracle学习文档 笔记 全面 深刻 详细 通俗易懂 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(&quot;I1&quot;).Text '设置的输出word文件路径
        
        arrTableName(1) = &quot;Brief&quot; ' 首页简表
        arrTableName(2) = &quot;BS&quot; ' 资产
        arrTableName(3) = &quot;BSS&quot; ' 负债及所有者权益
        arrTableName(4) = &quot;IS&quot; ' 利润表
        arrTableName(5) = &quot;CF&quot; ' 现金流量表
        arrTableName(6) = &quot;CFF&quot; ' 现金流量表补充材料
        arrTableName(7) = &quot;Main&quot; ' 主要财务指标


        arrReplaceText(1) = &quot;#DIV/0!&quot;
        arrReplaceText(2) = &quot;#NUM!&quot;
        
        ' 需要在Tools - References... 找到Microsoft Word 14.0 Object Library并选中。否则会提示“书签不存在”
        Set mWord = CreateObject(&quot;Word.Application&quot;)
       
        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产生的无效字符,如&quot;#DIV/0!&quot;
            For j = LBound(arrReplaceText) To UBound(arrReplaceText)
                .Selection.Find.ClearFormatting
                With .Selection.Find
                    .Text = arrReplaceText(j)
                    .Replacement.Text = &quot;&quot;
                    .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 />
    展开全文
  • 实例083 将多个Word文档合并为一个Word文档 实例084 批量替换Word文档中指定的字符串 3.2 读取外部数据到Word中 196 实例085 读取文本文件到Word中 实例086 读取多个文本文件到同一Word文档中 实例087 读取...
  • Excel VBA实用技巧大全 附书源码

    热门讨论 2010-10-08 18:59:24
    01036设置按【Enter】键单元格的移动方向 01037设置最近使用的文件清单中的最多文件数 01038设置新工作簿中的工作表个数 01039设置文件的默认位置 01040设置保存自动恢复文件的时间间隔和保存位置 01041停止屏幕...
  • Phoenix-award workstation BIOS V6.00PC,An Energy star Ally copyright(c) 1984-2003,Phoenix Technologies,LTD 这句英语的意思是:Phoenix-award这两家COMS芯片开发公司合并后共同开发第6号BIOS版本,采用美国...
  •  静态编译的易语言可执行程序(exe)和动态链接库(dll),运行时不再依赖任何支持库文件,文件尺寸更小(相对以前的独立编译),PE结构更合理(取消了“易格式体”),加载速度更快,而且有效解决了“病毒误报”和...
  • python-docx:读取,查询以及修改 Microsoft Word 2007/2008 docx 文件。 python-pptx:可用于创建和修改 ppt 文件的 Python 库。 relatorio:模板化 OpenDocument 文件。 unoconv:在 LibreOffice/OpenOffice ...
  • + 基于深度学习的中文语音识别系统、笑声检测器、Microsoft多语言数字/单位/如日期时间识别包、中华新华字典数据库及api(包括常用歇语、成语、词语和汉字)、文档图谱自动生成、SpaCy 中文模型、Common Voice语音...
  • 实例170 验证电子邮件地址 275 实例171 验证网址输入格式 276 实例172 验证电话号码 277 实例173 验证邮政编码 278 6.2 文本与数值验证 279 实例174 验证文本框中是否输入数据 279 实例175 验证两次输入的密码是否...
  • 实例170 验证电子邮件地址 275 实例171 验证网址输入格式 276 实例172 验证电话号码 277 实例173 验证邮政编码 278 6.2 文本与数值验证 279 实例174 验证文本框中是否输入数据 279 实例175 验证两次输入的密码是否...
  • 实例170 验证电子邮件地址 275 实例171 验证网址输入格式 276 实例172 验证电话号码 277 实例173 验证邮政编码 278 6.2 文本与数值验证 279 实例174 验证文本框中是否输入数据 279 实例175 验证两次输入的密码是否...
  • (Torvalds@kruuna.helsinki.fi)写了 Linux核心程序的 0.02 版开始的,但其的发展却几乎都 是由互联网上的 Linux社团(Linux Community)互通交流而完成的。Linux 不属于任何一 家公司或个人,任何人都可以免费取得...
  • Java zip压缩包查看程序源码 1个目标文件 摘要:Java源码,文件操作,压缩包查看 Java zip压缩包查看程序,应用弹出文件选择框,选择ZIP格式的压缩文件,可以像Winrar软件一样查看压缩文件内部的文件及文件夹,源码...
  • JAVA上百实例源码以及开源项目

    千次下载 热门讨论 2016-01-03 17:37:40
     util实现Java图片水印添加功能,有添加图片水印和文字水印,可以设置水印位置,透明度、设置对线段锯齿状边缘处理、水印图片的路径,水印一般格式是gif,png,这种图片可以设置透明度、水印旋转等,可以参考代码...
  • 他在一家快速成长的计算机公司担任了12年的财务分析师,在此期间其Excel技能得出神入化。只需凭借一个电子表格,他就能够在最短的时间内将数千行的交易数据变成有意义的摘要报告。Bill Jelen是一名卓有成就的Excel...
  • 程序开发范例宝典>>

    2012-10-24 10:41:28
    内容提要  本书紧密围绕程序开发人员在编程中遇到的实际问题和开发中应该掌握的技术,...实例256 获取系统启动经过的时间 351 实例257 系统已经安装的打印机信息 352 7.8 鼠标操作 353 实例258 切换鼠标...
  • 实例256 获取系统启动经过的时间 351 实例257 系统已经安装的打印机信息 352 7.8 鼠标操作 353 实例258 切换鼠标左右键 353 实例259 限制鼠标活动区域 354 实例260 获取鼠标在任意点的颜色值 355 实例...
  • 实例256 获取系统启动经过的时间 351 实例257 系统已经安装的打印机信息 352 7.8 鼠标操作 353 实例258 切换鼠标左右键 353 实例259 限制鼠标活动区域 354 实例260 获取鼠标在任意点的颜色值 355 实例...
  • 实例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 ...
  • 实例256 获取系统启动经过的时间 351 实例257 系统已经安装的打印机信息 352 7.8 鼠标操作 353 实例258 切换鼠标左右键 353 实例259 限制鼠标活动区域 354 实例260 获取鼠标在任意点的颜色值 355 实例261 ...
  • 实例256 获取系统启动经过的时间 351 实例257 系统已经安装的打印机信息 352 7.8 鼠标操作 353 实例258 切换鼠标左右键 353 实例259 限制鼠标活动区域 354 实例260 获取鼠标在任意点的颜色值 355 实例261 ...
  • C#全能速查宝典

    热门讨论 2014-04-26 16:16:27
    1.4.38 StringBuilder类——可字符串 82 1.4.39 Substring方法——截取字符串 83 1.4.40 TimeSpan对象——表示时间间隔或持续时间 84 1.4.41 ToInt32方法——转换为32位有符号整数 85 1.4.42 ToLongDateString ...

空空如也

空空如也

1 2
收藏数 25
精华内容 10
关键字:

word邮件合并后格式变了