excel - 将 1 行保存为 PDF，文件名从每行的单元格中保存（~1800 行）

Question

我是 VBA 和这个网站询问问题的新手。我正在尝试让 VBA 自动将 1 行项目（即单元格 A1 和 B1）保存到 pdf 文档中，并将单元格 A1 作为文档 filename.pdf 捕获到我在桌面上选择的文件夹中。大约有 1800 行，因此将允许 1800 个具有不同名称的不同 pdf，因为名称将从 A1-A1800 更改。

我有一个自动保存为 pdf 的代码，但是它是用户为命名定义的，并询问您要为下面显示的每个文件命名什么，请记住，这是在移动到 1800 个项目之前为小文件进行测试的设置：

Sub TESTLOOPPRINT()

ActiveSheet.PageSetup.PrintArea = "$1:$2"
Rows("1:2").EntireRow.Hidden = True

For i = 1 to 2

Rows(i).EntireRow.Hidden = False
ChDir "C:\Users\ABB6632\Test\"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Rows(i).EntireRow.Hidden = True

Next i
Rows("1:2").EntireRow.Hidden = False

End Sub

标签： excelvbapdfsave-as