1234

ExcelHome技术论坛

用户名  找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

帖子
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 21031|回复: 12

[求助] 怎样提取ECXEL指定列的内容自动填到WORD表格指定单元格里面

[复制链接]

TA的精华主题

TA的得分主题

发表于 2013-5-28 21:22 | 显示全部楼层 |阅读模式
我在EXCEL里排好了考场和座位号,想把里面的考场和座位号提取出来自动填到WORD里准考证的考场和座位号里,可以实现吗?(假如WORD里准考证的名字顺序和EXCEL的名字顺序是一样的) 提取考场.rar (29.53 KB, 下载次数: 164)

TA的精华主题

TA的得分主题

发表于 2013-5-28 21:33 | 显示全部楼层
word 中邮件合并 可以实现

TA的精华主题

TA的得分主题

发表于 2013-5-28 21:43 | 显示全部楼层
你首先要制做一个标准WORD模板,你的职业级别和职业类别不一样,故你的数据库也要加入相应内容。同时姓名,准考证号等凡是变动的信息全部要放到数据库中,之后才能一步一步按WORD“邮件合并”制作。把信息完整了可以帮你完成。

TA的精华主题

TA的得分主题

发表于 2013-5-28 21:46 | 显示全部楼层
你的在网上搜楼上的邮件合并,快捷简单,不用宏的。只要一页模板就成。会根据EXCEL自动生成。

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-5-28 21:52 | 显示全部楼层
DAHAI31415 发表于 2013-5-28 21:43
你首先要制做一个标准WORD模板,你的职业级别和职业类别不一样,故你的数据库也要加入相应内容。同时姓名, ...

准考证里其他信息都已经有了,只有考场和座位号是要自已排的,我在工作排好了这两样,只想单独提取这两样!

TA的精华主题

TA的得分主题

发表于 2013-5-28 22:23 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
木鸭 发表于 2013-5-28 21:52
准考证里其他信息都已经有了,只有考场和座位号是要自已排的,我在工作排好了这两样,只想单独提取这两样 ...

如果WORD文档中的表格是新建的话,即准考证里所有信息都是空,要你自己一项项填写的话,还是用邮件合并更方便。
另:你的短信收到,在另一个帖子里回复了,请查看。

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-5-28 22:29 | 显示全部楼层
wx486 发表于 2013-5-28 22:23
如果WORD文档中的表格是新建的话,即准考证里所有信息都是空,要你自己一项项填写的话,还是用邮件合并更 ...

准考证里面的信息除了考场和座位号没有,其它的都 有了。

TA的精华主题

TA的得分主题

发表于 2013-5-29 08:19 | 显示全部楼层
木鸭 发表于 2013-5-28 21:52
准考证里其他信息都已经有了,只有考场和座位号是要自已排的,我在工作排好了这两样,只想单独提取这两样 ...

邮件合并是通过一张模板生成若干张WORD文档,不可能一张一张的填充,固定信息要求统一不变,所以变动信息要求通过数据库提取,不变信息不用提取。我看了你的问题,级别和类别属于变动信息。基础工作一定要完善,否则你一张一张填,费力不说准确性还差。

TA的精华主题

TA的得分主题

发表于 2013-5-29 08:28 | 显示全部楼层
本帖最后由 wx486 于 2013-5-29 13:39 编辑
木鸭 发表于 2013-5-28 22:29
准考证里面的信息除了考场和座位号没有,其它的都 有了。

昨晚已在另一个帖子里回复了,没有看?
Sub wx486()
Dim t As Table, ex As Object, i%, j%, sht, arr
Set ex = CreateObject("excel.application")
ex.workbooks.Open ActiveDocument.Path & "\考场安排.xlsx"
Set sht = ex.workbooks(1).sheets(1)
arr = sht.Range("a1").currentregion
For Each t In ActiveDocument.Tables
    j = j + 1
    For i = 1 To UBound(arr)
        If VBA.Replace(t.Cell(1, 2).Range.Text, Chr(13) + Chr(7), "") = arr(i, UBound(arr, 2)) Then
            t.Cell(9, 2).Range.Text = arr(i, 1)
            t.Cell(9, 4).Range.Text = arr(i, 2)
        End If
    Next
Next
ex.workbooks(1).Close False
ex.Quit
Set ex = Nothing
MsgBox "OK,完成" & j & "个人员的录入!"
End Sub
Desktop.rar (32.06 KB, 下载次数: 393)

评分

2

查看全部评分

TA的精华主题

TA的得分主题

发表于 2013-5-29 09:10 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 DAHAI31415 于 2013-5-29 09:17 编辑
木鸭 发表于 2013-5-28 21:52
准考证里其他信息都已经有了,只有考场和座位号是要自已排的,我在工作排好了这两样,只想单独提取这两样 ...


步骤:以2003版为例。首先建好标准模板。
1、工具—信函与邮件—显示邮件合并工具栏
2、设置文档类型—信函
3、打开数据源,选择EXCEL《考场安排》
4、查看基本信息:收件人,可看到一个二维数据库
5、插入域,可插入各种信息,如姓名、考场、座位号。这里有个注意事项,要先将光标放在WODR文档中的相应位置后才可插入数据。插入完要关闭,再将光标放在另一个位置,要一项一项插入。
6、合并到新文档发(可选合并到打印机),合并记录—全部。OK,生成了全部文档。
打开《测评》文档时提醒“是否运行SQL”,选“是”,书名号不要动那是操作中生成的不是手工填写。《测评1》为生成的准考证文档。请看附件。
合并邮件.rar (24.34 KB, 下载次数: 218)

评分

1

查看全部评分

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

1234

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2025-2-16 05:16 , Processed in 0.028068 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表