高手再来解决吧，EXCL表格数据写入WORD文档中的表格中

zjdh · 发表于 2021-12-4 11:11

把这段改写一下
...........
For i = 4 To lastrow
      fname = "三、HS-AQBD-079 事故调查报告 "
      fullname = path & fname & "(" & Sheets("21年").Range("A" & i) & ").doc"
      If Dir(fullname) <> "" Then fullname = path & fname & "(" & Sheets("21年").Range("A" & i) & i & ").doc"
      FileCopy path & "\模板.doc", fullname

      With Wordapp
......................

zjdh · 发表于 2021-12-4 11:12

暂且用重复的行号作区分。

中华美德 · 发表于 2021-12-4 12:25

本帖最后由中华美德于 2021-12-4 12:27 编辑

zjdh 发表于 2021-12-4 11:11
把这段改写一下
...........
For i = 4 To lastrow

谢谢你，老师太优级，我想保存在指定路径的文件夹下面，如何修改？还有相同姓名，不用带行号，给预第二次，第三次标记？

zjdh · 发表于 2021-12-5 13:33

本帖最后由 zjdh 于 2021-12-6 10:53 编辑

借用 493861364 的附件改写
有BUG删了

zjdh · 发表于 2021-12-6 11:03

重新修改

EXCL数据写入WORD模板中.rar (34.99 KB, 下载次数: 5)

		自动登录	找回密码
密码			免费注册