macOS下使用VBA创建含西里尔字符文件名的文件报错求助

问题根源 #

macOS环境下，VBA原生的Open语句依赖旧版POSIX文件API，无法正确解析包含西里尔字符等非ASCII编码的文件名路径，这就是导致"Run-time error '75': Path/File access error"的核心原因——纯英文文件名能正常运行，是因为ASCII编码在旧API中无兼容问题。

可行解决方案：调用AppleScript处理Unicode路径 #

macOS的AppleScript原生支持Unicode文件路径，我们可以在VBA中通过MacScript函数调用AppleScript来完成文件创建与写入操作，完美绕过Open语句的局限性。以下是完整的修改代码：

Sub CreateCyrillicNamedFile()
    Dim db_path As String
    Dim fullFileName As String
    Dim appleScriptCode As String
    
    ' 替换为你的实际存储路径，注意末尾需带斜杠/
    db_path = "/Users/yourname/Documents/"
    fullFileName = db_path & "кириллица-test123.txt"
    
    ' 构建AppleScript代码：创建文件并写入指定内容
    appleScriptCode = _
        "set targetFile to """ & fullFileName & """ as POSIX file" & vbCrLf & _
        "try" & vbCrLf & _
            "close access targetFile" & vbCrLf & _
        "end try" & vbCrLf & _
        "set fileHandle to open for access targetFile with write permission" & vbCrLf & _
        "write ""Hello!"" & linefeed & ""Привет!"" to fileHandle" & vbCrLf & _
        "close access fileHandle"
    
    ' 执行AppleScript
    MacScript(appleScriptCode)
End Sub

代码细节说明 #

• MacScript是macOS版Office VBA专属函数，用于执行AppleScript脚本。
• AppleScript的POSIX file转换能正确识别包含西里尔字符的路径，不会出现编码解析错误。
• 加入try...end try块是为了避免目标文件已被占用时的报错，确保文件能正常写入。

额外注意事项 #

• 务必保证db_path末尾带有路径分隔符/，否则路径与文件名会拼接错误，引发新的路径问题。
• 如果需要覆盖已存在的同名文件，可以在set fileHandle to ...之前添加以下AppleScript代码段：

  try
      delete targetFile
  end try
  

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