Excel VBA导出PDF时文件名引用美式日期单元格触发运行时错误

该报错和系统区域设置、PDF导出逻辑无关，核心原因是正斜杠/属于Windows系统的非法文件名字符，该字符被系统强制保留为路径层级分隔符，只要文件名中包含该字符，无论如何调整区域配置，写入文件时都会直接触发运行时错误。
此前使用01.01.2022格式日期时功能正常，正是因为点号不属于非法文件名字符，可正常用于文件命名。

无需调整任何系统配置，只需要在拼接文件名时，将日期值中的斜杠替换为合法命名字符（点、短横杠等均可），也可以直接在代码中指定日期的输出格式，彻底规避单元格显示格式、系统区域带来的兼容问题。

方案1：直接替换非法字符 #

如果需要保留单元格原有日期的显示逻辑，只替换掉会导致报错的斜杠即可，参考代码如下：

Sub SavePDF()
    Dim i As Integer
    Dim saveFileName As String
    For i = 1 To 1
        ' 将日期中的/替换为合法的. 也可以根据需求替换为-等其他合法字符
        saveFileName = "C:\myfile " & Replace(Sheets(i).Range("A1").Value, "/", ".") & ".pdf"
        Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, Filename:=saveFileName, _
                                           Quality:=xlQualityStandard, _
                                           IncludeDocProperties:=True, _
                                           IgnorePrintAreas:=False, _
                                           OpenAfterPublish:=False
    Next
End Sub

方案2：代码指定日期格式（更稳定） #

如果希望不受单元格格式、系统区域设置变动的影响，可以直接通过VBA的Format函数指定文件名中日期的输出格式，参考代码如下：

Sub SavePDF()
    Dim i As Integer
    Dim saveFileName As String
    For i = 1 To 1
        ' 按照需求指定日期格式，例如下方为月.日.年的美式日期格式
        saveFileName = "C:\myfile " & Format(Sheets(i).Range("A1").Value, "mm.dd.yyyy") & ".pdf"
        Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, Filename:=saveFileName, _
                                           Quality:=xlQualityStandard, _
                                           IncludeDocProperties:=True, _
                                           IgnorePrintAreas:=False, _
                                           OpenAfterPublish:=False
    Next
End Sub

补充说明：Windows系统文件名强制禁止使用的字符包括\ / : * ? " < > |，后续拼接动态文件名时注意避开上述字符，即可避免这类命名导致的运行时错误。

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