将工作簿文件夹批量另存为PDF的VBA宏运行异常求助

以下是针对问题的排查和解决步骤：

1. 先定位真实错误原因 #

你的代码里的On Error GoTo FireExit会把打开文件时的错误直接跳转到处理块，导致看不到具体报错。先临时注释掉这行，重新运行就能看到问题所在：

' On Error GoTo FireExit  ' 先注释此行，查看具体错误提示

2. 处理打开文件时的隐藏弹窗 #

代码卡住常因为Excel弹出后台不可见的提示框（如受保护视图、宏启用提示、密码要求等），可以补充以下设置禁用弹窗：

Sub PrintFolderToPDF()
'Functions
    Dim wbktoExport As Workbook
    Dim strSourceExcelLocation As String
    Dim fso As Object ' 文件系统对象，避免路径拼接出错
    
    DefineVars
    TurnOffFunctions
    ' 补充禁用各类弹窗的设置
    Application.DisplayAlerts = False
    Application.EnableEvents = False ' 禁用工作簿打开时的事件触发
    Application.AskToUpdateLinks = False ' 关闭链接更新提示
    Application.AutomationSecurity = msoAutomationSecurityForceDisable ' 禁用宏提示
    Application.ProtectedViewWindowOpen = False ' 关闭受保护视图
    
    ' 用FileSystemObject处理路径，避免手动加\出错
    Set fso = CreateObject("Scripting.FileSystemObject")
    strSourceExcelLocation = fso.GetAbsolutePathName(Path)

    ' 遍历目录下的xlsx文件
    FileName = Dir(fso.BuildPath(strSourceExcelLocation, "*.xlsx"))

    Do While Len(FileName) > 0
        ' 打开工作簿，补充参数避免各类弹窗
        Set wbktoExport = Workbooks.Open( _
            Filename:=fso.BuildPath(strSourceExcelLocation, FileName), _
            UpdateLinks:=xlUpdateLinksNever, _
            ReadOnly:=False, _
            IgnoreReadOnlyRecommended:=True, _
            Password:="", _
            WriteResPassword:="" _
        )

        ' 导出为PDF（去掉括号，避免按值传递问题）
         Export_Excel_as_PDF wbktoExport

        ' 获取下一个文件
        FileName = Dir

        ' 关闭工作簿不保存
        wbktoExport.Close SaveChanges:=False
    Loop

FireExit:
    ' 恢复所有系统设置
    Application.EnableEvents = True
    Application.AskToUpdateLinks = True
    Application.AutomationSecurity = msoAutomationSecurityByUI
    TurnOnFunctions
    Application.DisplayAlerts = True
    Set fso = Nothing
End Sub

3. 排查单个文件问题 #

如果注释错误处理后发现是某特定文件打开失败，大概率是文件损坏或有特殊设置（如密码、只读锁定），手动打开该文件查看提示后针对性处理即可。

4. 改用更稳定的文件遍历方式 #

Dir函数偶尔会因文件系统变动失效，改用FileSystemObject遍历更可靠：

' 替换原Dir遍历部分
Dim folderObj As Object, fileObj As Object
Set folderObj = fso.GetFolder(strSourceExcelLocation)
For Each fileObj In folderObj.Files
    If LCase(fso.GetExtensionName(fileObj.Name)) = "xlsx" Then
        Set wbktoExport = Workbooks.Open( _
            Filename:=fileObj.Path, _
            UpdateLinks:=xlUpdateLinksNever, _
            ReadOnly:=False, _
            IgnoreReadOnlyRecommended:=True _
        )
        ' 导出PDF和关闭操作与之前一致
        Export_Excel_as_PDF wbktoExport
        wbktoExport.Close SaveChanges:=False
    End If
Next fileObj

内容的提问来源于stack exchange，提问作者Mark S.