另存为独立的工作簿

XXZSP2 · 发表于 2024-8-2 21:55

附件中的代码运行到客户71的时候会报错，请大佬帮忙看看，万分感激。具体实现需求如下：
附件的【汇总】表中的客户名称列的客户名称依次填入【模板】的C3单元格中，然后将模板的内容另存为独立的PDF并以客户名称命名，并保存到新建的【拆分文件夹】下面以【汇总】表中区域列的名称命名的对应的文件夹中。

lcluck2002 · 发表于 2024-8-2 23:15

arr = .Range("a4:av" & r)
r的值是77
所以当rowIndex到75时会越界。

abc123281 · 发表于 2024-8-2 23:51

      arr = .Range("a1:av" & r)
      For x = 5 To UBound(arr)
         dic(arr(x, 8)) = ""
         dic2(arr(x, 3)) = ""
      Next x

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

[已解决] 另存为独立的工作簿