修改Excel VBA现有代码实现逐行循环复制并批量导出PDF

原代码核心问题 #

• 循环结构不完整：需要逐行执行的复制、重算、命名、导出逻辑都必须放在For和Next之间，原代码未将导出逻辑放入循环，且注释了Next语句
• 单元格未指定所属工作表：直接使用Cells()时默认取当前激活工作表的单元格，会出现取值错误，必须明确绑定Summary工作表
• 列索引错误：A列到V列共22列，原代码写为列号21（对应U列），缺了V列内容
• 路径格式错误：本地路径缺少反斜杠分隔符，会导致文件名和路径拼接错误
• 标点错误：动态取值的语句用了中文双引号，VBA无法识别中文标点

修正后完整代码 #

Sub AnnualStatements()
    Dim RI As Workbook
    Set RI = ThisWorkbook
    Dim strpath As String
    Dim strName As String
    Dim strFile As String
    Dim strPathFile As String
    Dim i As Integer ' 必须声明循环变量
    
    ' 提前定义保存路径，不需要放到循环里重复赋值
    strpath = "C:\Users\Documents\" ' 注意末尾加反斜杠，路径分隔符不要漏
    
    ' 循环处理10行，对应Summary表A8到A17
    For i = 1 To 10
        ' 明确指定Summary表的单元格范围，复制A到V列
        RI.Worksheets("Summary").Range(RI.Worksheets("Summary").Cells(7 + i, 1), RI.Worksheets("Summary").Cells(7 + i, 22)).Copy _
            RI.Worksheets("Annual Statement").Range("O3")
        
        Calculate ' 重算工作簿
        
        ' 取当前行A列的值作为文件名前缀
        strName = RI.Worksheets("Summary").Cells(7 + i, 1).Value
        strFile = strName & "_Annual Statement" & ".pdf"
        strPathFile = strpath & strFile
        
        ' 导出PDF
        RI.Worksheets("Annual Statement").ExportAsFixedFormat _
            Type:=xlTypePDF, _
            FileName:=strPathFile, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
    Next i
End Sub

关键修改说明 #

• 补充了循环变量i的声明，所有逐行执行的逻辑都包裹在For和Next之间
• 所有单元格、工作表对象都明确绑定了所属工作簿和工作表，避免取值错误
• 修正了列索引为22，完整复制A到V列内容
• 修正了路径格式，提前把路径定义放到循环外，减少重复赋值
• 文件名前缀改为动态取当前循环行的A列值，使用VBA支持的英文标点

注意事项 #

• 若需要调整处理的行数，直接修改For i = 1 To 10里的结束数值即可，比如要处理20行就改为For i = 1 To 20
• 保存路径可以替换为你实际需要的文件夹地址，注意路径中的反斜杠不要遗漏
• 若Summary表A列存在\/:*?"<>|等Windows文件名不允许的特殊字符，建议提前清理，否则会导致PDF导出失败

内容的提问来源于stack exchange，提问作者Sarah Brickman