excel 将多个页面导出为单个PDF文件的VB代码

tjvv9vkg 于 2022-11-26 发布在其他

关注(0)|答案(1)|浏览(188)

这个小的VB Chunk从第一卷迭代到最后一卷（从sheet1收集数据并得到结果。但不幸的是，它只导出最后一个结果，而不是所有迭代的结果。我想要的只是将所有迭代的结果导出到上述路径下的一个pdf文件中。

Sub printPDF()
For n = 5 To 15 
RollNo = Sheets("Sheet1").Cells(n, "A")
StudentName = Sheets("Sheet1").Cells(n, "C")
Sheets("Results").Cells(13, "M") = RollNo
Next n
Sheet7.ExportAsFixedFormat xlTypePDF, "C:\result\" & RollNo & "-" & StudentName & ".pdf", , , False, , , False
End Sub

我认为代码没有将迭代结果保存到队列中，因为它工作正常，但只打印最后一个结果，

excel

来源：https://stackoverflow.com/questions/74533377/vb-code-to-export-multiple-pages-into-a-single-pdf-file

1条答案

按热度按时间

62lalag41#

如果导出10张图纸（每个迭代一张）：

Sub printPDF()
For n = 5 To 15 
RollNo = Sheets("Sheet1").Cells(n, "A")
StudentName = Sheets("Sheet1").Cells(n, "C")
Sheets("Results").Cells(13, "M") = RollNo
Sheet7.ExportAsFixedFormat xlTypePDF, "C:\result\" & RollNo & "-" & StudentName & ".pdf", , , False, , , False
Next n
End Sub

如果要导出一个页面，并将所有迭代值连接到导出的文件名中：

Sub printPDF()
RollNo = ""
StudentName = ""
For n = 5 To 15 
RollNo = RollNo & "-" & Sheets("Sheet1").Cells(n, "A")
StudentName = StudentName & "-" & Sheets("Sheet1").Cells(n, "C")
Sheets("Results").Cells(13, "M") = RollNo
Next n
Sheet7.ExportAsFixedFormat xlTypePDF, "C:\result\" & RollNo & "-" & StudentName & ".pdf", , , False, , , False
End Sub

如果这不是你想做的，请给予更多细节。

赞(0）回复(0）举报 2022-11-26

我来回答

excel 将多个页面导出为单个PDF文件的VB代码

1条答案

相关问题

热门标签

最新问答