Excel宏保存两个工作表为CSV文件遇只读权限问题求助

原代码存在的问题 #

• 路径分隔符错误：Mac系统使用正斜杠/，但代码中错误拼接了反斜杠\，导致路径无效，可能触发只读权限提示。
• 保存逻辑错误：用ActiveWorkbook.SaveAs会将整个工作簿转为CSV格式，而非单独保存目标工作表，后续循环会因文件格式变更出错。
• 未处理文件占用：若目标CSV文件已被打开，会直接触发“无法访问只读文档”提示。

修正后的代码（实现「工作簿名称 - 工作表名称」命名格式） #

Sub SaveSheetsAsCSV()
    Dim savePath As String
    Dim xWs As Worksheet
    Dim newWB As Workbook
    Dim fileName As String
    
    ' 确认路径末尾带正斜杠（Mac系统路径格式）
    savePath = "/Users/****/Library/CloudStorage/Dropbox/Assets/Create Import File/"
    
    For Each xWs In ThisWorkbook.Sheets
        Select Case xWs.Name
            Case "List", "Evolutions"
                ' 创建新工作簿，复制目标工作表到新簿
                Set newWB = Workbooks.Add
                xWs.Copy Before:=newWB.Sheets(1)
                
                ' 删除新工作簿默认的空白工作表
                Application.DisplayAlerts = False
                newWB.Sheets(2).Delete
                Application.DisplayAlerts = True
                
                ' 生成指定格式的文件名，移除原工作簿的后缀
                fileName = savePath & ThisWorkbook.Name & " - " & xWs.Name & ".csv"
                fileName = Replace(fileName, ".xlsx", "")
                fileName = Replace(fileName, ".xls", "")
                
                ' 保存并关闭新工作簿
                newWB.SaveAs fileName:=fileName, FileFormat:=xlCSV
                newWB.Close SaveChanges:=False
        End Select
    Next xWs
End Sub

关键改进说明 #

• 路径适配：统一使用Mac系统的正斜杠路径分隔符，避免路径解析错误。
• 独立保存工作表：通过新建工作簿复制目标工作表的方式，不会修改原工作簿的格式和内容。
• 文件名格式化：自动拼接工作簿名称与工作表名称，同时移除原工作簿的.xlsx/.xls后缀。
• 静默操作：关闭Excel的交互提示，自动完成空白表删除、新簿关闭等操作，无需手动确认。

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