VBA批量导出Excel工作表为PDF出现死循环及重复导出问题求助

问题根因 #

• 嵌套循环逻辑错误：当前代码逻辑为「遍历到每个工作表时，都循环50次导出当前工作表」，相当于每个工作表对应50个不同文件名重复导出，不符合「一个工作表对应一个文件名导出一次」的需求
• 循环变量未显式声明：未定义i变量，若模块开启了Option Explicit会触发编译错误，部分场景下会因为变量值异常导致死循环
• 缺少空白工作表判断逻辑：原代码完全没有跳过空白表的判断分支，不符合需求

修正后完整代码 #

Sub ExportSheetsToPDF()
    Dim Folder_path As String
    Dim sh As Worksheet
    Dim filename As String
    Dim i As Long ' 显式声明循环变量，避免隐式声明导致的异常
    
    ' 选择导出文件夹
    With Application.FileDialog(msoFileDialogFolderPicker)
         .Title = "选择导出文件夹路径"
         .InitialFileName = ThisWorkbook.Path
         If .Show = -1 Then
            Folder_path = .SelectedItems(1)
         Else
          MsgBox "未选择任何文件夹，程序退出"
          Exit Sub
         End If
    End With
    
    ' 循环处理工作表，i从3开始对应Master表的文件名行
    i = 3
    For Each sh In ThisWorkbook.Worksheets
        ' 不需要导出Master表则保留本行，不需要可删除
        If sh.Name = "Master" Then GoTo NextSheet
        
        ' 判断是否为空白工作表：已使用范围只有1个单元格且为空即为空白表
        If sh.UsedRange.Cells.Count = 1 And IsEmpty(sh.UsedRange.Cells(1)) Then
            GoTo NextSheet
        End If
        
        ' 防止Master表文件名行数不足导致报错
        If i > 52 Then
            MsgBox "Master表文件名不足，剩余工作表未导出"
            Exit For
        End If
        filename = ThisWorkbook.Worksheets("Master").Cells(i, 1).Value
        ' 避免Master表对应行空值导致导出失败
        If filename = "" Then filename = "未命名工作表_" & sh.Index
        
        ' 导出PDF
        sh.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=Folder_path & Application.PathSeparator & filename & ".pdf", _
            Quality:=xlQualityStandard
        
        ' 文件名行号自增，对应下一个工作表
        i = i + 1
NextSheet:
    Next sh
    MsgBox "导出完成，共导出" & (i - 3) & "个PDF文件"
End Sub

关键修改说明 #

• 移除了内层嵌套的For i=3 to 52循环，改为单循环遍历工作表，每处理完一个工作表后行号i自增1，保证一个工作表对应一个文件名仅导出一次
• 新增空白工作表判断逻辑，空白工作表直接跳过
• 显式声明所有变量，消除隐式变量导致的异常死循环风险
• 新增文件名非空判断、行号越界判断，避免导出失败

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