使用VBA批量转换Excel为PDF，首次迭代后报错

你的问题根源在于自定义FileExists函数使用的Dir函数破坏了遍历文件的全局状态。Dir函数是带有全局上下文的，当你在循环中调用FileExists里的Dir(NewFilePath)时，会重置Dir的搜索上下文，导致后续循环里的FileName = Dir无法继续遍历原本的*.xlsx文件列表，反而可能重复获取已处理过的文件（甚至刚生成的PDF文件），最终触发「同名文件已存在」的错误提示。

替换FileExists的实现，改用不会干扰Dir状态的方法，以下是两种可行方案：

方案1：使用FileSystemObject（推荐） #

通过后期绑定创建FileSystemObject，它的文件存在性判断不会影响Dir的遍历状态：

Sub ConvertExcelToPDF()
    On Error GoTo ErrorHandler
    
    Dim FolderPath As String
    Dim FileName As String
    Dim FilePath As String
    Dim NewFilePath As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim ProcessedFiles As Integer
    Dim fso As Object ' 后期绑定FileSystemObject
    
    ' 初始化文件系统对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    FolderPath = "C:\path\to\file\"
    FileName = Dir(FolderPath & "*.xlsx")
    ProcessedFiles = 0
    
    Do While FileName <> ""
        FilePath = FolderPath & FileName
        NewFilePath = Replace(FilePath, ".xlsx", ".pdf", , , vbTextCompare)
        
        ' 用FileSystemObject判断文件存在性，不干扰Dir遍历
        If fso.FileExists(NewFilePath) Then
            MsgBox "同名PDF已存在：" & NewFilePath & "，跳过转换。"
        Else
            Set wb = Workbooks.Open(FilePath, ReadOnly:=True) ' 只读打开避免权限问题
            If wb.Sheets.Count > 0 Then
                Set ws = wb.Sheets(1)
                ws.ExportAsFixedFormat Type:=xlTypePDF, FileName:=NewFilePath
                wb.Close SaveChanges:=False
                ProcessedFiles = ProcessedFiles + 1
                MsgBox "已生成PDF：" & FileName
            Else
                MsgBox "该工作簿无工作表，跳过转换。"
                wb.Close SaveChanges:=False
            End If
            Set wb = Nothing
        End If
        
        FileName = Dir
    Loop
    
    ' 释放对象
    Set fso = Nothing
    Exit Sub
    
ErrorHandler:
    MsgBox "发生错误：" & Err.Description
    If Not wb Is Nothing Then
        wb.Close SaveChanges:=False
    End If
    Set wb = Nothing
    Set fso = Nothing
    Resume Next
End Sub

方案2：使用GetAttr函数 #

如果不想依赖FileSystemObject，可以通过尝试获取文件属性来判断存在性，完全避开Dir函数：

Function FileExists(FilePath As String) As Boolean
    On Error Resume Next
    GetAttr FilePath ' 尝试获取文件属性，不存在则触发错误
    FileExists = (Err.Number = 0) ' 无错误则文件存在
    On Error GoTo 0 ' 恢复默认错误处理
End Function

替换原有的FileExists函数后，循环中的Dir遍历状态就不会被破坏了。

• 批量处理时可以去掉单个文件的MsgBox提示，改为循环结束后输出总处理结果，提升效率。
• 若需要处理.xlsm等其他Excel格式，可将Dir的匹配模式改为*.xls*。

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