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

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

在循环遍历单元格时另存为PDF

1 个答案: