如何解决使用excel VBA输出多个pdf文件
简化数据如下:
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 举报,一经查实,本站将立刻删除。