Excel VBA字符串拼接触发运行时错误：两段PDF导出代码差异排查

这个问题的核心原因其实很简单——你踩了Windows文件命名规则的坑！

触发错误的直接原因 #

Windows文件系统不允许文件名包含冒号（:），而你定义的时间戳格式：

sTimeStamp = Format(Now(), "yyyymmdd-hh:nn")

会生成带冒号的字符串（比如20240520-14:30），当你把它拼接到PDF文件名时，生成的路径会包含非法字符，系统无法创建文件，因此触发运行时错误。

另外你的代码里还有一个小的变量错误：

sSuffix = "_1Sheet_" & sDateTimeNow

这里的sDateTimeNow变量根本没有定义，不过这不是当前触发错误的主要原因，但也是需要修正的问题。

验证对比 #

你能正常运行的代码里，直接写死了_1Sheet_，没有引入带冒号的时间戳，因此文件名符合Windows规则，能顺利生成PDF。

修正方案 #

1. 替换时间戳里的非法字符：把冒号换成Windows允许的字符（比如下划线_、连字符-或点.）
2. 修正未定义的变量：把sDateTimeNow替换为你实际定义的sTimeStamp
3. 优化路径拼接：在桌面路径末尾加个斜杠，避免路径拼接时出现格式问题

修正后的完整代码：

Sub ExportActiveSheetToPDF()
    Dim sDesktopPath As String
    Dim sTimeStamp As String
    Dim sFullFileName As String
    
    ' 获取桌面路径，末尾添加斜杠确保路径格式正确
    sDesktopPath = Environ("USERPROFILE") & "\Desktop\"
    ' 生成合法的时间戳（用下划线替代冒号）
    sTimeStamp = Format(Now(), "yyyymmdd-hh_nn")
    ' 拼接完整文件名
    sFullFileName = ActiveSheet.Range("E3").Value & "_1Sheet_" & sTimeStamp & ".pdf"
    
    ' 导出PDF
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=sDesktopPath & sFullFileName, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub

额外提示 #

Windows文件名的非法字符包括：<, >, :, ", /, \, |, ?, *，以后生成动态文件名时一定要避开这些字符。

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