Excel VBA多指定工作表复制至新工作簿问题（Mac兼容）

针对你遇到的多工作表复制异常、Mac环境兼容问题，以下是调整后的VBA代码和关键说明：

核心问题分析 #

1. 原代码依赖ActiveSheet/ActiveWorkbook这类活动对象，Mac Excel中活动对象的行为与Windows存在差异，容易导致对象引用混乱
2. 直接遍历单张表重复执行复制+转值操作，效率低且易触发异常
3. 部分Windows Excel支持的批量复制语法，在Mac环境下需要调整写法

适配Mac的完整代码 #

Sub CopyMultipleSheetsToNewWorkbook()
    Dim Sourcewb As Workbook
    Dim Destwb As Workbook
    Dim sheetNames As Variant
    Dim ws As Worksheet
    Dim FileExtStr As String
    Dim FileFormatNum As Integer
    
    ' 设置要处理的工作表名称数组
    sheetNames = Array("Daily Summary", "Daily Report")
    
    ' 定义源工作簿（避免依赖ActiveWorkbook）
    Set Sourcewb = ThisWorkbook
    
    ' 复制指定多张工作表到新工作簿（Mac兼容写法）
    Sourcewb.Sheets(sheetNames).Copy
    Set Destwb = ActiveWorkbook ' 此时新工作簿为活动状态，可安全引用
    
    ' 批量将所有工作表的公式转为实际值（高效替代复制粘贴）
    For Each ws In Destwb.Sheets
        ' 仅处理有数据的单元格区域，避免空单元格操作
        With ws.UsedRange
            .Value = .Value
        End With
    Next ws
    
    ' 确定文件格式（适配不同Excel版本与Mac环境）
    With Destwb
        If Val(Application.Version) < 12 Then
            ' Excel 2000-2003
            FileExtStr = ".xls": FileFormatNum = -4143
        Else
            Select Case Sourcewb.FileFormat
                Case 51: ' .xlsx
                    FileExtStr = ".xlsx": FileFormatNum = 51
                Case 52: ' .xlsm
                    If .HasVBProject Then
                        FileExtStr = ".xlsm": FileFormatNum = 52
                    Else
                        FileExtStr = ".xlsx": FileFormatNum = 51
                    End If
                Case 56: ' .xls
                    FileExtStr = ".xls": FileFormatNum = 56
                Case Else: ' .xlsb
                    FileExtStr = ".xlsb": FileFormatNum = 50
            End Select
        End If
        
        ' 可选：自动保存文件（示例路径，可自行修改）
        ' .SaveAs Filename:=Application.DefaultFilePath & "/DailyReports" & FileExtStr, FileFormat:=FileFormatNum
    End With
    
    ' 清理剪贴板状态
    Application.CutCopyMode = False
    
    MsgBox "多工作表复制转值完成！", vbInformation
End Sub

关键优化点说明 #

• 明确对象引用：用ThisWorkbook定义源工作簿，避免ActiveWorkbook的不确定性，Mac环境下更稳定
• 批量复制工作表：Sourcewb.Sheets(sheetNames).Copy直接批量复制指定工作表到新工作簿，Mac Excel完全支持该语法
• 高效转值方式：使用.Value = .Value替代复制粘贴操作，避免剪贴板依赖，同时提升执行效率，适配Mac环境
• 兼容文件格式：保留原代码的版本判断逻辑，确保生成的文件格式与源文件匹配，避免Mac/Windows兼容性问题

常见问题排查 #

如果仍出现异常，可检查以下几点：

• 确认工作表名称"Daily Summary"、"Daily Report"与源工作簿中的表名完全一致（注意大小写，Mac Excel对文件名/表名大小写敏感）
• 确保源工作簿未被保护，工作表处于可编辑状态
• 关闭Excel的宏安全限制（Mac路径：Excel > 设置 > 安全性与隐私 > 宏安全性）

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