Mac系统使用VBA创建文件提示文件名或编号错误的问题咨询

你遇到的报错有两个核心问题，对应修改方法如下：

1. 文件号参数使用错误 #

代码里的file不是VBA内置关键字，是需要提前赋值的文件号变量，必须先用FreeFile函数获取当前可用的文件号，不能直接写As file。

2. Mac版VBA的路径格式不支持直接用POSIX斜杠路径 #

Mac Office的VBA默认识别的是冒号分隔的HFS路径格式，你直接复制的/Users/user/test.csv是POSIX斜杠路径，VBA无法直接识别，需要做格式转换。

修正后的可运行代码 #

Public Sub task()
    Dim fileNum As Integer
    Dim filePath As String
    ' 将POSIX路径转换为Mac VBA可识别的格式
    filePath = MacScript("return POSIX file ""/Users/user/test.csv"" as string")
    ' 获取可用文件号
    fileNum = FreeFile()
    Open filePath For Output As #fileNum
    ' 此处可添加写入文件的逻辑，例如 Print #fileNum, "列1,列2,列3"
    Close #fileNum
End Sub

额外注意事项 #

• 要确保你对目标路径有读写权限，Mac的安全隐私设置里要给当前使用的Office软件授予文件访问权限，否则也会报同类错误
• 文件操作的Open语句中，文件号前必须加#符号，这是VBA文件操作的标准语法要求

内容的提问来源于stack exchange，提问作者Kristaps Ālmanis