管理文件名中有问题的格式化国际字符

Question

我在VBA中访问它们时，文件夹中的某些文件似乎以奇怪的方式格式化。

以下代码是一个简单的测试。它扫描文件夹中的Excel文件，然后再次打开和关闭它们（只是为了测试问题）。即使文件名包含瑞典字符，例如å，ä，ö。

，它也能正常工作

Sub ScanFiles()
    Dim ExcelFile As String
    Dim WB As Workbook

    ExcelFile = Dir("c:\Somepath\*.xlsx")
    Do While ExcelFile <> ""
        Set WB = Workbooks.Open(ExcelFile)
        WB.Close False
    Loop
    ExcelFile = Dir()
End Sub

这很好...... 直到 ......这种情况发生了：

• 一个文件名列为“Sömething.xlsx”。即使我仔细查看文件属性。 真的是“Sömething.xlsx”！
• 但变量ExcelFile存储“So¨mething.xlsx”。 Workbooks.Open命令失败，因为找不到具有该名称的文件

似乎特定文件已保存在Apple环境中。

为什么会发生这种情况？如何管理？