使用excel VBA输出多个pdf文件

编程问答 2022-06-14

问题描述

简化数据如下：

Client  Order   Product PRICE
A       1       XXX       100   
B       2       XXX       101      
A       3       XXX       103
...
C       30      XXX       100  
A       31      XXX        99

我尝试将PDF文件中的10个订单的客户端输出为PDF。因此，如果一个客户有21个订单，则将输出3个PDF文件，其中2个PDF包含10个订单，最后一个仅包含一个订单。现在，代码使用如下：

a = 1
b = 3  
w = Worksheets("Daily").Cells(Rows.Count,1).End(xlUp).Row
Worksheets("Client_pdf").Cells(1,1) = "A Client"
Worksheets("Client_pdf").Cells(2,1) = "Address of A Client"

For i = 1 To w
  If Worksheets("Daily").Cells(i,1).Value = "A" Then
        Worksheets("Client_pdf").Cells(b,1) = a
        Worksheets("Daily").Range("A" & i & ":" & "D" & i).copy
        Worksheets("Client_pdf").Range("A" & b & ":" & "D" & b).PasteSpecial Paste:=xlPasteFormats
        Worksheets("Client_pdf").Range("A" & b & ":" & "D" & b).PasteSpecial Paste:=xlPasteValues
                   
        a = a + 1
        b = b + 1
    End If
Next

通过使用上面的代码，它将为一个客户一起输出一个包含21个订单的pdf文件。 但是，我希望第二个PDF在前2行中包含“ A Client”和“ A Client Address”，并在随后的行中包含11 -20。在第三个PDF中，前两行以及第21位也包括“ A Client”和“ A Client Address”。

赞赏！

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

loopspdfpdfpdfvba