VBA多条EXCEL记录写入到WORD文档中

要点提示：

1、EXCEL记录

2、WORD表格模板（一个WORD表格）

3、为第一条记录生成一个独立的WORD表格

Sub Excel2Word()
Application.ScreenUpdating = False

p = ThisWorkbook.Path & "/" '根目录路径

Dim myWS As Worksheet

Set myWS = ThisWorkbook.Sheets(1) '存有数据的表格

Const Loct As Integer = 10000 '定义常量

Dim iCount(Loct) As String, numCount(Loct) As String, nameCount(Loct) As String, postCount(Loct) As String

Dim strColum As String, fDate As String, fMonth As String, fDay As String

Dim modeFilse As String

Dim j As Integer, i As Integer, Ct As Integer, postLen As Integer

strColum = ""

Ct = 0

For j = 0 To Loct '统计数据记录总条数

iCount(j) = Sheets("Sheet1").Range("B5").Offset(j, 0)

If (Trim(iCount(j)) <> "") Then '检查B列数据是否为空，非空即统计
numCount(j) = Sheets("Sheet1").Range("A5").Offset(j, 0)
Ct = Ct + 1
strColum = strColum & iCount(j) & ","
End If

Next j

'MsgBox strColum & Ct

'fDate = Format(Now(), "yyyy-mm-dd")

modeFilse = p & "公司代表大会人员登记表.doc" 'WORD文档表格模板

f = modeFilse '选择模板文件

If (Ct > 0) Then

For i = 5 To (Ct + 4) '遍历数据行数，EXCEL记录从第5行开始

FileCopy f, p & "生成的文件/" & myWS.Cells(i, 1).Text & myWS.Cells(i, 2).Text & ".doc" '复制空模板并以某列数据为名命名新产生的文档

Set wd = CreateObject("word.application")

Set d = wd.documents.Open(p & "生成的文件/" & myWS.Cells(i, 1).Text & myWS.Cells(i, 2).Text & ".doc") '打开新文档


d.tables(1).Cell(1, 2) = myWS.Cells(i, 2).Text '写入姓名
d.tables(1).Cell(1, 4) = myWS.Cells(i, 3).Text '性别
d.tables(1).Cell(1, 6) = myWS.Cells(i, 4).Text '出生年月

d.tables(1).Cell(2, 2) = myWS.Cells(i, 5).Text '民族
d.tables(1).Cell(2, 4) = myWS.Cells(i, 6).Text '籍贯
d.tables(1).Cell(2, 6) = myWS.Cells(i, 8).Text '党派

d.tables(1).Cell(3, 2) = myWS.Cells(i, 17).Text
d.tables(1).Cell(3, 4) = "广州"

d.tables(1).Cell(4, 2) = "组织提名"
d.tables(1).Cell(4, 4) = "健康"
d.tables(1).Cell(4, 6) = myWS.Cells(i, 9).Text '参加工作时间

d.tables(1).Cell(5, 2) = myWS.Cells(i, 11).Text '职称
d.tables(1).Cell(5, 4) = myWS.Cells(i, 13).Text '学历学位
d.tables(1).Cell(5, 6) = "" '所学专业
d.tables(1).Cell(5, 8) = myWS.Cells(i, 12).Text '个人特长

d.tables(1).Cell(6, 2) = myWS.Cells(i, 16).Text '毕业院校
d.tables(1).Cell(6, 4) = myWS.Cells(i, 18).Text '身份证号码

d.tables(1).Cell(7, 2) = myWS.Cells(i, 19).Text '所属结构

d.tables(1).Cell(8, 2) = myWS.Cells(i, 22).Text '电子信箱
d.tables(1).Cell(8, 4) = "" '微信号
d.tables(1).Cell(9, 2) = myWS.Cells(i, 20).Text '通讯地址
d.tables(1).Cell(9, 4) = myWS.Cells(i, 26).Text '手机

d.tables(1).Cell(10, 2) = myWS.Cells(i, 21).Text '邮编
d.tables(1).Cell(10, 4) = myWS.Cells(i, 23).Text '传真
d.tables(1).Cell(10, 6) = myWS.Cells(i, 24).Text '办公电话

d.tables(1).Cell(11, 2) = myWS.Cells(i, 27).Text '工作单位及现任（或原任）职务

d.tables(1).Cell(12, 2) = myWS.Cells(i, 28).Text '简历
d.tables(1).Cell(13, 2) = myWS.Cells(i, 29).Text '主要表现

d.tables(1).Cell(14, 2) = myWS.Cells(i, 67).Text + myWS.Cells(i, 68).Text + myWS.Cells(i, 69).Text '选举结果

d.tables(1).Cell(22, 2) = myWS.Cells(i, 30).Text '现任或历任职务情况（地方、届次、任期起止时间）

d.tables(1).Cell(23, 2) = "" '备注


'***************家庭主要成员*******************

d.tables(1).Cell(16, 2) = myWS.Cells(i, 31).Text '称谓
d.tables(1).Cell(16, 3) = myWS.Cells(i, 32).Text '姓名
d.tables(1).Cell(16, 4) = myWS.Cells(i, 33).Text '出生年月
d.tables(1).Cell(16, 5) = myWS.Cells(i, 34).Text '政治面貌
d.tables(1).Cell(16, 6) = myWS.Cells(i, 35).Text '工作单位及职务
d.tables(1).Cell(16, 7) = myWS.Cells(i, 35).Text '是否取得外国国籍

d.tables(1).Cell(17, 2) = myWS.Cells(i, 37).Text '称谓
d.tables(1).Cell(17, 3) = myWS.Cells(i, 38).Text '姓名
d.tables(1).Cell(17, 4) = myWS.Cells(i, 39).Text '出生年月
d.tables(1).Cell(17, 5) = myWS.Cells(i, 40).Text '政治面貌
d.tables(1).Cell(17, 6) = myWS.Cells(i, 41).Text '工作单位及职务
d.tables(1).Cell(17, 7) = myWS.Cells(i, 42).Text '是否取得外国国籍

d.tables(1).Cell(18, 2) = myWS.Cells(i, 43).Text '称谓
d.tables(1).Cell(18, 3) = myWS.Cells(i, 44).Text '姓名
d.tables(1).Cell(18, 4) = myWS.Cells(i, 45).Text '出生年月
d.tables(1).Cell(18, 5) = myWS.Cells(i, 46).Text '政治面貌
d.tables(1).Cell(18, 6) = myWS.Cells(i, 47).Text '工作单位及职务
d.tables(1).Cell(18, 7) = myWS.Cells(i, 48).Text '是否取得外国国籍


d.tables(1).Cell(19, 2) = myWS.Cells(i, 49).Text '称谓
d.tables(1).Cell(19, 3) = myWS.Cells(i, 50).Text '姓名
d.tables(1).Cell(19, 4) = myWS.Cells(i, 51).Text '出生年月
d.tables(1).Cell(19, 5) = myWS.Cells(i, 52).Text '政治面貌
d.tables(1).Cell(19, 6) = myWS.Cells(i, 53).Text '工作单位及职务
d.tables(1).Cell(19, 7) = myWS.Cells(i, 54).Text '是否取得外国国籍


d.tables(1).Cell(20, 2) = myWS.Cells(i, 55).Text '称谓
d.tables(1).Cell(20, 3) = myWS.Cells(i, 56).Text '姓名
d.tables(1).Cell(20, 4) = myWS.Cells(i, 57).Text '出生年月
d.tables(1).Cell(20, 5) = myWS.Cells(i, 58).Text '政治面貌
d.tables(1).Cell(20, 6) = myWS.Cells(i, 59).Text '工作单位及职务
d.tables(1).Cell(20, 7) = myWS.Cells(i, 60).Text '是否取得外国国籍


'***************家庭主要成员*******************

d.Close

wd.Quit

Set wd = Nothing

Next i

Application.ScreenUpdating = True

Else

MsgBox "没有数据！"

End If


End Sub

VBA多条EXCEL记录写入到WORD文档中相关推荐

读取excel表格内容，并写入到word文档中
import pandas as pd import docx from docx.shared import RGBColor ''' 该代码段适合,将excel题库转换成word格式的题库,写入的 ...
java使用爬虫工具jsoup实现抓取网页的内容及图片并写入到word文档中
背景: 有个朋友最近让帮忙写个小功能,需求大概是,1万个链接,让爬每个链接中的某一段文章并附一张图片,每五个链接写入到一个word文档中. 基本思路,就是先去找个爬虫框架把链接网页中内容和图片写到wo ...
easypoi导出word表格_拒绝加班，批量将word文档中的信息高效率提取出来存储到Excel中...
最近,有小伙伴跟我提了一个需求,小伙伴是做扶贫工作的,从扶贫系统里面可以批量的导出每一户的信息到一个word文档中,导出的内容是在word中是以表格的形式存在的.小伙伴的需求是如何批量的将每个word ...
用VBA在Word文档中每页页眉插入返回文档目录中相应位置的超链接
[说明]此文中在页眉插入跳转到目录项的超链接的代码几经改进,但改进后并未删除改进之前的代码,是为了有个对比利于学习.如果想节约时间,该步骤可直接查看该部分最后一个代码块. 对于Word长文档,标准做法 ...
Python 将excel中的选择题导入到word文档中
Python 将excel中的选择题导入到word文档中 0x00 昨天,我的老师给我们一个包含600道关于比赛的选择题和判断题的excel文档,要我们整理成指定格式的word文档以后交给他.我看着 ...
小菜鸟的Python笔记001：将Word文档中数据汇总到Excel表格
将Word文档中数据汇总到Excel表格前言一.应用场景二.程序思路及准备工作思路如下: 准备工作: 三.程序代码 1.主程序 2.获取Word文档列表 3.提取文档内数据 4.导入到Exce ...
从多个Word文档中批量取值，整理到Excel表中。
针对多个内部是表格,并且格式相同的文档,例如:一些Word表格简历.一些调查表.技术交底等.可以一键提取所有文档中固定位置的数据. 按位置提取word文档内容到excel 通常我们要重复提取每个文档中 ...
(转) 如何在Excel和Word文档中插入GIF动画
Office Excel 和Word文档中插入图片很容易做到,但是要插入GIF动画,并且还要能让这个动画动起来,就不能依照普通的"插入 → 图片 → 来自文件"的方法了,否则的话即 ...
怎么将excel表格转换成word文档
怎么将excel表格转换成word文档?有时候为了工作需要将excel转换成word文档,但是却不知道使用什么工具,下面就简单说一下将excel表格转换成word文档的方法. 1.进行文件之间的转换首 ...

VBA多条EXCEL记录写入到WORD文档中

VBA多条EXCEL记录写入到WORD文档中相关推荐

最新文章

热门文章