Mac版Excel VBA转换单元格区域为CSV时出错求助

问题背景 #

系统：macOS 13.5，Excel版本：Microsoft 365（16.75.2）
使用Ron de Bruin的VBA代码导出指定单元格区域到CSV时触发错误，核心问题出在代码中废弃的MacScript函数。

错误原因 #

从Excel 2016 for Mac开始，MacScript函数被官方废弃，新版本Excel不再支持该函数调用，代码中SaveFolder = MacScript(...)这一行直接导致运行报错。

修正后的代码 #

Sub Save_Range_As_CSV_On_Mac()
    'Ron de Bruin, modified for modern Mac Excel
    Dim Rng As Range
    Dim wb As Workbook
    Dim SaveFolder As String

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    '修改为你需要导出的单元格区域
    Set Rng = Sheets("Sheet1").Range("A1:B3")

    Set wb = Workbooks.Add(1)
    Rng.Copy
    wb.Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteValues

    '直接通过系统环境变量获取桌面路径，替代废弃的MacScript
    SaveFolder = Environ("HOME") & "/Desktop/"
   
    '先保存为xlsx格式（修复Mac Excel的CSV导出bug），再保存为CSV
    wb.SaveAs SaveFolder & "MyCSV2.xlsx", FileFormat:=51  'xlOpenXMLWorkbook
    wb.SaveAs SaveFolder & "MyCSV2.csv", FileFormat:=6  'xlCSV

    wb.Close False

    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

关键修改说明 #

1. 替换路径获取方式：用Environ("HOME") & "/Desktop/"直接获取Mac桌面的POSIX路径，无需依赖AppleScript，避免废弃函数报错。
2. 规范文件后缀：第一次保存为xlsx格式时使用.xlsx后缀，避免文件格式与后缀不匹配引发的潜在问题。

运行步骤 #

1. 打开目标Excel文件，按下Option + F11打开VBA编辑器。
2. 右键点击当前工作簿，选择「插入」→「模块」。
3. 将修正后的代码粘贴到模块中，调整Set Rng = Sheets("Sheet1").Range("A1:B3")为你需要导出的单元格区域。
4. 点击运行按钮（绿色三角）执行宏，CSV文件将保存到桌面。

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