ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 2718|回复: 2

[求助] 求助各位大神!将excel表格中信息根据word名称匹配到多个word文档中

[复制链接]

TA的精华主题

TA的得分主题

发表于 2017-2-18 14:12 | 显示全部楼层 |阅读模式
人员信息excel表格中有多个人的姓名、性别、出生年月等,在word文档中每个文档也有姓名、性别、出生年月等项目,但每个人是单独一个word文档,文档名称已确定为每个人的姓名。现在希望实现根据word文档名称到excel中匹配相关列次的信息并填充到word中,比如在名为张三word文档中,根据文档名称张三到人员信息表格中查找到张三,然后将张三的姓名、性别、出生年月分别填充到名为张三的word文档中。如果不能一次实现,也可以每次填充一项比如只给所有文档填充姓名,下一次再给所有文档填充性别……大概有500份word文档,手动粘贴工程量浩大,小白一只,希望大神不吝赐教!

将excel表格中信息根据word名称匹配到多个word文档中.rar

39.1 KB, 下载次数: 23

TA的精华主题

TA的得分主题

发表于 2017-2-19 15:44 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
  1. Private Sub CommandButton1_Click()
  2. Dim Word对象 As New Word.Application, 当前路径, 导出文件名, 导出路径文件名, i, j
  3.    Dim Str1, Str2
  4.    当前路径 = ThisWorkbook.Path
  5.    最后行号 = Sheets("Sheet1").Range("B65536").End(xlUp).Row
  6.    判断 = 0
  7.    For i = 2 To 最后行号
  8.       导出文件名 = "简历"
  9.       FileCopy 当前路径 & "\简历.docx", 当前路径 & "" & 导出文件名 & "(" & Sheets("Sheet1").Range("a" & i) & ").docx"
  10.       导出路径文件名 = 当前路径 & "" & 导出文件名 & "(" & Sheets("Sheet1").Range("a" & i) & ").docx"
  11.       With Word对象
  12.         .Documents.Open 导出路径文件名
  13.         .Visible = False
  14.         For j = 1 To 3 '填写表格数据
  15.            .ActiveDocument.Tables(1).Cell(1, 2 * j).Range = Sheets("Sheet1").Cells(i, j)
  16.         Next j
  17.       End With
  18.       Word对象.Documents.Save
  19.       Word对象.Quit
  20.       Set Word对象 = Nothing
  21.    Next i
  22.    If 判断 = 0 Then
  23.       i = MsgBox("已输出到 Word 文件!", 0 + 48 + 256 + 0, "提示:")
  24.    End If
  25. End Sub
复制代码

TA的精华主题

TA的得分主题

发表于 2017-2-19 15:45 | 显示全部楼层
。。。。。。。。。。

将excel表格中信息根据word名称匹配到多个word文档中.zip

117.12 KB, 下载次数: 35

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

本版积分规则

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

GMT+8, 2024-3-29 01:33 , Processed in 0.058634 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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