VBA错误53：文件名含非拉丁字符致文件未找到的解决咨询

你的问题根源在于VBA原生的Dir和GetAttr函数是基于ANSI代码页设计的，对非本地区域的Unicode字符（比如丹麦语特殊字符）支持有限，当路径包含这类字符时，这些函数无法正确解析路径，就会触发“文件未找到”的错误53。

下面给你两种实用的解决方案：

方案一：使用FileSystemObject（FSO）处理Unicode路径 #

FileSystemObject是VBA中专门用于文件系统操作的对象，原生支持Unicode路径，能完美兼容含特殊字符的文件和文件夹，代码也更简洁易维护。

修改后的代码如下：

Option Explicit
Public OutCollection As New Collection
Public MainPath As String

Sub test()
    Set OutCollection = Nothing
    MainPath = "C:\Users\Me\Desktop\test folder\"
    TraversePathWithFSO MainPath
End Sub

Sub TraversePathWithFSO(path As String)
    Dim fso As Object
    Dim parentFolder As Object
    Dim subFolder As Object
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set parentFolder = fso.GetFolder(path)
    
    ' 添加当前文件夹到集合
    OutCollection.Add parentFolder.Path
    
    ' 遍历子文件夹并递归处理
    For Each subFolder In parentFolder.SubFolders
        TraversePathWithFSO subFolder.Path
    Next subFolder
    
    ' 释放对象
    Set subFolder = Nothing
    Set parentFolder = Nothing
    Set fso = Nothing
End Sub

方案优势： #

• 无需手动处理Dir的循环逻辑，代码结构更直观
• 原生支持Unicode路径，彻底解决非拉丁字符的识别问题
• 提供丰富的文件系统操作方法，后续扩展功能更方便

方案二：使用Windows API宽字符版本函数 #

如果你需要更底层的控制或追求更高性能，可以调用Windows API的FindFirstFileW和FindNextFileW函数，这些是专门处理Unicode路径的宽字符版本接口。

示例代码如下：

Option Explicit
Public OutCollection As New Collection
Public MainPath As String

' Windows API声明（适配32/64位Office）
Private Type WIN32_FIND_DATAW
    dwFileAttributes As Long
    ftCreationTime As Currency
    ftLastAccessTime As Currency
    ftLastWriteTime As Currency
    nFileSizeHigh As Long
    nFileSizeLow As Long
    dwReserved0 As Long
    dwReserved1 As Long
    cFileName As String * 260
    cAlternateFileName As String * 14
End Type

Private Declare PtrSafe Function FindFirstFileW Lib "kernel32" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATAW) As LongPtr
Private Declare PtrSafe Function FindNextFileW Lib "kernel32" (ByVal hFindFile As LongPtr, lpFindFileData As WIN32_FIND_DATAW) As Long
Private Declare PtrSafe Function FindClose Lib "kernel32" (ByVal hFindFile As LongPtr) As Long
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Const INVALID_HANDLE_VALUE = -1

Sub test()
    Set OutCollection = Nothing
    MainPath = "C:\Users\Me\Desktop\test folder\"
    TraversePathWithAPI MainPath
End Sub

Sub TraversePathWithAPI(path As String)
    Dim hFind As LongPtr
    Dim findData As WIN32_FIND_DATAW
    Dim subPath As String
    Dim folderName As String
    
    ' 添加当前文件夹到集合
    OutCollection.Add path
    
    ' 构造搜索路径（需以\*结尾）
    subPath = path & IIf(Right(path, 1) = "\", "", "\") & "*"
    
    hFind = FindFirstFileW(subPath, findData)
    If hFind = INVALID_HANDLE_VALUE Then Exit Sub
    
    Do
        ' 截断固定长度字符串到有效内容（跳过空字符）
        folderName = Left(findData.cFileName, InStr(findData.cFileName, vbNullChar) - 1)
        ' 跳过当前目录(.)和上级目录(..)
        If folderName <> "." And folderName <> ".." Then
            ' 判断是否为文件夹
            If (findData.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY Then
                ' 递归处理子文件夹
                TraversePathWithAPI path & IIf(Right(path, 1) = "\", "", "\") & folderName
            End If
        End If
    Loop While FindNextFileW(hFind, findData) <> 0
    
    ' 关闭搜索句柄，释放资源
    FindClose hFind
End Sub

方案优势： #

• 基于底层API实现，遍历大量文件/文件夹时性能更优
• 可精准控制搜索逻辑，适合复杂的自定义需求

注意事项： #

• API声明中的PtrSafe关键字必须保留，确保兼容32位和64位Office版本
• 处理WIN32_FIND_DATAW结构中的文件名时，需要截断到第一个空字符，避免无效内容干扰

如果没有特殊的性能或自定义需求，优先推荐方案一，代码可读性和维护性都更强。

内容的提问来源于stack exchange，提问作者Ryszard Jędraszyk