求高手指正，批量生成清单件号后不按批次统计

LOYOTO · 发表于 2022-8-28 08:34

本帖最后由 LOYOTO 于 2022-8-28 11:12 编辑

liulang0808 · 发表于 2022-8-28 08:43

建议楼主上传附件，结合附件描述具体问题

LOYOTO · 发表于 2022-8-28 08:45

本帖最后由 LOYOTO 于 2022-8-28 11:11 编辑

liulang0808 发表于 2022-8-28 08:43
建议楼主上传附件，结合附件描述具体问题

请查看附件

LOYOTO · 发表于 2022-8-28 08:47

LOYOTO 发表于 2022-8-28 08:45
请查看附件

要求：按批次分页生成WORD，件号内容合并不重复

LOYOTO · 发表于 2022-8-28 09:16

liulang0808 发表于 2022-8-28 08:43
建议楼主上传附件，结合附件描述具体问题

已上传，请高手指点，谢谢

chxw68 · 发表于 2022-8-28 09:35

修改好了。

LOYOTO · 发表于 2022-8-28 11:10

chxw68 发表于 2022-8-28 09:35
修改好了。

谢谢老师，解铃还须系铃人，

chxw68 · 发表于 2022-8-28 11:12

LOYOTO 发表于 2022-8-28 11:10
谢谢老师，解铃还须系铃人，

呵呵，我怎么成了系铃人了。

LOYOTO · 发表于 2022-8-28 17:14

本帖最后由 LOYOTO 于 2022-8-28 17:15 编辑

chxw68 发表于 2022-8-28 11:12
呵呵，我怎么成了系铃人了。

   .SaveAs2 Filename:=ThisWorkbook.Path & "\" & aa & ".docx"

   wdDoc.SaveAs "D:\" & Replace(Range("A" & j), "/", "-"), ".docx"

老师，帮我看下，为什么第二种方法保存会出错呢？

chxw68 · 发表于 2022-8-28 17:18

LOYOTO 发表于 2022-8-28 17:14
chxw68 发表于 2022-8-28 11:12
呵呵，我怎么成了系铃人了。

可能j=0了，你查看一下。

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

[求助] 求高手指正，批量生成清单件号后不按批次统计

评分