使用Range.Value读取含重音字母Excel单元格导致文件查找失败的问题

这个问题我之前处理过好几次，核心原因很明确：Excel的Range.Value属性在读取文本时，会自动把带重音的Unicode字符（比如Ś、Ć）转换为对应的非重音ASCII字符（S、C），这种"自动规范化"操作直接导致你生成的文件名和系统里的真实文件名不匹配，所以Dir()找不到文件。

看你的测试案例就很典型：A66单元格里的RADOŚĆ被Range.Value读取后变成了RADOSC，拼接出来的文件名自然和实际的Algebraf RADOŚĆOPORANKU.xlsx对不上，返回空值也就不奇怪了。

下面给你几个可行的解决方案：

1. 用Range.Text替代Range.Value读取单元格内容 #

Range.Text会直接读取单元格显示的原始文本内容，完全保留Unicode重音字符，不会做任何自动转换。修改你的测试代码就行：

Sub test()
    Dim str As String, filename As String
    str = Range("A66").Text ' 替换Value为Text
    filename = "D:\Andre\Szarada\For Szarada\Awaiting\Algebraf " & str & ".xlsx"
    MsgBox Dir(filename)
End Sub

这个方法最简单直接，基本能解决绝大多数类似问题。

2. 确认单元格字符的真实性 #

有时候可能会遇到一种情况：单元格看起来显示的是重音字符，但实际存储的是普通字母（比如通过字体特效模拟的重音）。你可以把单元格内容复制到记事本里，如果记事本里显示的是普通字母，那说明单元格本身就没存对字符，这时候需要重新导入或输入正确的Unicode重音字符。

另外，如果是从外部导入文本到Excel，一定要选择正确的编码（比如UTF-8），避免Excel在导入时自动转换字符。

3. 备选方案：用FileSystemObject处理文件 #

如果Dir()函数对Unicode文件名的支持还是有问题，可以试试用Scripting.FileSystemObject来验证文件，它对Unicode的兼容性更好：

Sub testWithFSO()
    Dim str As String, filePath As String
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    str = Range("A66").Text
    filePath = "D:\Andre\Szarada\For Szarada\Awaiting\Algebraf " & str & ".xlsx"
    
    If fso.FileExists(filePath) Then
        MsgBox "文件找到：" & fso.GetFileName(filePath)
    Else
        MsgBox "文件不存在"
    End If
    Set fso = Nothing
End Sub

总的来说，最快速有效的解决办法就是把Range.Value换成Range.Text，这样就能完整获取单元格里的重音字符，和系统里的文件名匹配上了。

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