专栏首页完美Excel[网友投稿] Excel数据批量写入Word

[网友投稿] Excel数据批量写入Word

前言:这是 VBA说 微信公众号借助我的这个平台给大家分享的一篇关于Excel与Word交互的文章,希望对大家有帮助。在这里,欢迎大家投稿,与更多的人分享有用的知识。

之前有两篇文章讲过Excel和Word数据交互的基础知识Excel和Word数据交互读取(一)Excel和Word数据交互读取(二),这里说个实际遇到的综合案例,基本上将之前的知识点结合起来了。

一、实际案例引入

这次遇到的案例需求:将Excel数据批量写入Word。需要写入的内容如下图所示,红色框里的内容是需要写入word的。

我这里有很多个excel文件,每一个都需要打开把数据写入word。

写入之后的效果如下:

二、思路及代码

思路:循环打开Excel,先写订单号、厂款号、客款号。第二步需要通过find函数确定长款号表格的具体大小(为了将数据循环写入Word)。最后保存并关闭word。

具体代码如下:

Sub 提取数据()
    Application.ScreenUpdating = False
    Set doc = CreateObject("word.application")
    doc.Visible = True
    Set wd = doc.Documents.Add
    pth = Application.GetOpenFilename("文件(*.*),*.*", , "请选择文件", , True)
    For i = 1 To UBound(pth) '循环打开选择的工作簿
        Set wb = Workbooks.Open(pth(i)) '把打开的工作簿赋值给对象变量wb
        strr = "订单号码" & wb.Worksheets(1).[b3] & vbTab & "客款号 " & wb.Worksheets(1).[b5] & vbTab & "厂款号" & wb.Worksheets(1).[b6] '将需要写入的数据连接起来赋值给变量strr
         doc.ActiveDocument.Content.InsertAfter Chr$(13) & strr '将订单编号、客款号、厂款号写入word
        With wb.Worksheets(1)
            col1 = .Columns(1).Find("厂款号", , xlValues, xlWhole, xlByColumns, xlNext, True, True).Row '定位厂款号跟合计字符,为了确定需要插入word文档中表格的大小
            col2 = .Columns(1).Find("合计", , xlValues, xlWhole, xlByColumns, xlNext, True, True).Row
            Set myrange = doc.ActiveDocument.Content
            myrange.Collapse Direction:=wdCollapseEnd '折叠已经写入的内容
            doc.Documents(1).Tables.Add myrange, col2 - col1, 11 '在word中插入新的表
            doc.Documents(1).Tables(i).Style = "网格型" '表格类型是网格型
            For r = col1 To col2 - 1
                arr = .Range("a" & r).EntireRow.Range("a1:k1") '循环将excel表中的数据写入word表格中
                For Each ar In arr
                    n = n + 1 '将所在行的单元格值循环写入word表的单元格中
                    doc.Documents(1).Tables(i).Range.Cells(n).Range = ar
                Next
            Next
            n = 0
        End With
        wb.Close False '数据写入完毕,关闭打开的工作簿'接着打开后面一个工作簿
    Next
  doc.Documents(1).SaveAs ThisWorkbook.Path & "\数据.docx" '将所有的工作簿循环打开,写入数据完毕,保存打开的word文档到代码工作簿路径下
    doc.Quit '退出程序
    Application.ScreenUpdating = True
End Sub

三、知识点

新建表格

代码中涉及到新建表格并写入数据的地方,这里给一个简单的例子作为参考。(这个代码直接在Word VBA中运行,如果需要在Excel中操作Word插入表格,需要新建Word程序对象,这属于前面的基础知识)

Sub 新建表格写入数据()
    ActiveDocument.Tables(1).Delete
    Set tb = ActiveDocument.Tables.Add(Selection.Range, 1, 3)
    With tb
        .Style = "网格型"
        .Cell(1, 1).Range = "编号"
        .Cell(1, 2).Range = "文件名"
        .Cell(1, 3).Range = "扩展名" 
        .Rows.Last.Select
        Selection.InsertRowsBelow 1
        With .Rows.Last
            .Cells(1).Range = 1
            .Cells(2).Range = 2
            .Cells(3).Range = 3
        End With
    End With
End Sub

代码运行效果如下:

Excel VBA Find方法和GetOpenFileName方法

这里有我之前总结的这两个方法的具体使用,我觉得已经很详细了,供大家阅读参考。

代码打开workbook的两种方法

不得不说的高效Boy:Find方法

本文分享自微信公众号 - 完美Excel(excelperfect),作者:fanjy

原文出处及转载信息见文内详细说明,如有侵权,请联系 yunjia_community@tencent.com 删除。

原始发表时间:2019-10-08

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

我来说两句

0 条评论
登录 后参与评论

相关文章

  • Excel应用实践04:分页单独打印Excel表中的数据

    在实际工作中,我们经常会遇到想将工作表中的数据(如下图1所示的“数据”工作表)导入到固定的表格(如下图2所示)中并打印。

    fanjy
  • Excel应用实践03:使用Excel进行个人计划执行记录与统计分析

    一转眼,2019年已至4月,自从年初立下flag后,便努力朝着实现它的方向奔跑。有些执行得很好,比如每天更新完美Excel微信公众号,坚持每天学习,而有些则还没...

    fanjy
  • Excel应用实践24: 实现完美Excel公众号文章推送记录

    研究和分享Excel知识和技术是自已的一项业余爱好,自已平时主要花的时间还是在工作上,毕竟这是自已的饭碗。说实在的,工作确实很忙,想要上班时“偷”点时间来写Ex...

    fanjy
  • 数学速算法

    用户1127987
  • scrapy - Request 中的回调函数不执行or只执行一次

    调试的时候,发现回调函数 parse 没有被调用,这可能就是被过滤掉了,查看 scrapy 的输出日志 offsite/filtered 会显示过滤的数目。这个...

    周小董
  • redis持久化快速回忆手册

      1). RDB持久化:该机制是指在指定的时间间隔内将内存中的数据集快照写入磁盘。

    intsmaze-刘洋
  • 自动驾驶的地图生成定位、物体识别、路径规划跟随使用手册(基于autoware)

    doc:https://github.com/CPFL/Autoware-Manuals

    用户1908973
  • 在vc vs2017 ide中加入QT UI.

    首先vs要安装QT 插件。QT VS Tools 然后右键工程目录里面需要建立UI文件的文件夹,添加-》新建项,选择QT,出现QT UI模板,选择需要的。

    xiny120
  • 【翻译】在Mac上使用VSCode创建你的第一个Asp.Net Core应用

    Setting Up Your Development Environment 设置你的开发环境 To setup your development machi...

    脑洞的蜂蜜
  • JVM系列十(虚拟机性能监控神器 - BTrace).

    BTrace 是一个动态安全的 Java 追踪工具,它通过向运行中的 Java 程序植入字节码文件,来对运行中的 Java 程序热更新,方便的获取程序运行时的数...

    JMCui

扫码关注云+社区

领取腾讯云代金券