另存为PDF，同时在单元格中循环

我试图创buildVBA代码，向下移动一个列表，取出每个单元格，并将其值input到B2（此值为辅导服务的名称）。 B2中的值然后被其他单元用来查找参考值。 我希望每次迭代（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 

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