Mac系统下VBA宏创建Positive.cube文本文件失败求助

问题根源 #

1. VBA不识别~路径简写，~/Desktop无法被解析为有效路径
2. 原代码创建的新工作簿包含默认空白工作表，可能干扰文本格式保存
3. xlText通用格式适配性差，结合.cube后缀易触发权限或格式错误

修正后的完整代码 #

Sub save_Click()
    Dim wb As Workbook
    Dim desktopPath As String
    Dim fn As String
    
    ' 获取Windows系统桌面的绝对路径
    desktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
    fn = desktopPath & "\Positive.cube"
    
    ' 直接将目标工作表复制为独立工作簿，避免多余空白表
    ThisWorkbook.Sheets("Positive LUT").Copy
    Set wb = ActiveWorkbook
    
    ' 使用Windows专用文本格式保存，避免编码或格式冲突
    wb.SaveAs Filename:=fn, FileFormat:=xlTextWindows
    wb.Close SaveChanges:=False
End Sub

关键调整说明 #

• 路径修复：通过WScript.Shell的SpecialFolders获取系统桌面的真实路径，彻底解决路径识别问题
• 工作簿优化：直接复制工作表生成新工作簿，省去默认空白工作表，减少保存时的格式干扰
• 格式替换：用xlTextWindows（对应文件格式代码20）替代xlText，适配Windows系统的文本编码和换行格式，避免格式不兼容报错
• 权限排查：若仍报错，检查桌面文件夹是否设为只读，或当前用户是否拥有桌面写入权限

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