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

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