vba - 循环浏览单元格时另存为 PDF

Question

我正在尝试创建向下移动列表的 VBA 代码，获取每个单元格并将它们的值输入到 B2(这个值是辅导服务的名称)。然后其他单元格使用 B2 中的值来查找引用值。我想要 i 的每次迭代(1 到 91) 将新信息保存为 PDF，以便我可以轻松地将这些文档发送出去。

我的问题是我无法保存文件，我收到运行时错误 9 下标超出范围。循环完全按照我的意愿工作。

如何在循环遍历一系列值时另存为 PDF？

Sub moveselection()
Dim i As Integer

For i = 1 To 91

Range("B2").Value = Range("H2").Offset(i, 0).Value
  ThisFile = Range("B2").Value
    Sheets("Parents").Ranges("A1:F16").ExportAsFixedFormat Type:=xlTypePDF,                           
Filename:= _
"H:\Projects\Nathan\ProviderPDF\ & ThisFile.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Next i

End Sub

Answer 1

几个变化:

Sub moveselection()
Dim i As Integer

For i = 1 To 91

    Range("B2").Value = Range("H2").Offset(i, 0).Value
    ThisFile = Range("B2").Value

    Sheets("Parents").Range("A1:F16").ExportAsFixedFormat _
           Type:=xlTypePDF, _                         
           Filename:= "H:\Projects\Nathan\ProviderPDF\" & ThisFile & ".pdf", _
           Quality:= xlQualityStandard, IncludeDocProperties:=True, _
           IgnorePrintAreas:=False, OpenAfterPublish:=False

Next i

End Sub

如果仍然错误，请指出哪一行给出了错误