为何这段VBA代码在PC上可运行，在Mac（Ventura/Office365）上无响应？

核心问题：Mac下Scripting.FileSystemObject兼容性 #

Mac版Office 365的VBA对Scripting.FileSystemObject（FSO）支持有限，这大概率是代码完全不运行的根本原因，建议改用Mac原生的文件操作方法。

具体修复步骤 #

1. 替换FSO为Mac兼容的文件遍历方式 #

用Dir函数替代FSO来遍历目录，Mac下Dir支持斜杠路径，修复后的代码如下：

Sub ExtractDataToDifferentSheets()
    On Error GoTo HandleError
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    Dim totalpath As String
    Dim fileName As String
    Dim counter As Integer
    
    ' 检查工作簿是否已保存（未保存则Path为空）
    If ActiveWorkbook.Path = "" Then
        MsgBox "请先保存当前工作簿再运行宏！", vbExclamation
        GoTo Cleanup
    End If
    
    totalpath = ActiveWorkbook.Path & "/files/"
    fileName = Dir(totalpath & "*.*") ' 获取目录下第一个文件
    
    counter = 1
    
    Do While fileName <> ""
        Dim sourceFiles As Workbook
        Dim worksheetName As String
        Dim sourceSheet As Worksheet
        Dim targetSheet As Worksheet
        
        ' 去掉文件扩展名作为工作表名（避免名称过长或含特殊字符）
        worksheetName = Left(fileName, InStrRev(fileName, ".") - 1)
        
        ' 创建新工作表并命名
        Set targetSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        targetSheet.Name = worksheetName
        
        ' 打开源文件（只读）
        Set sourceFiles = Workbooks.Open(totalpath & fileName, ReadOnly:=True)
        Set sourceSheet = sourceFiles.Worksheets("Sheet1")
        
        ' 直接复制UsedRange，比循环单元格高效
        sourceSheet.UsedRange.Copy Destination:=targetSheet.Range("A1")
        
        ' 关闭源文件，不保存
        sourceFiles.Close SaveChanges:=False
        Set sourceFiles = Nothing
        
        counter = counter + 1
        fileName = Dir ' 获取下一个文件
    Loop
    
Cleanup:
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Exit Sub
    
HandleError:
    MsgBox "运行出错：" & Err.Description & vbCrLf & "错误代码：" & Err.Number, vbCritical
    Resume Cleanup
End Sub

2. 关键优化点 #

• 新增未保存工作簿检查：如果当前工作簿没保存，ActiveWorkbook.Path为空，直接提示用户保存，避免路径错误。
• 替换FSO为Dir函数：Mac VBA对Dir支持更稳定，无需依赖Scripting库。
• 直接复制UsedRange：替代嵌套循环赋值，既高效又避免单元格遍历的潜在问题。
• 增强错误处理：捕获错误并显示具体信息，方便排查问题。
• 简化工作表命名：去掉文件扩展名，避免因名称过长或含特殊字符导致的命名失败。

3. 额外注意事项 #

• 确保/files子目录存在：如果目录不存在，代码会直接进入错误分支，可在开头添加目录检查（用Dir(totalpath, vbDirectory)判断）。
• 源文件必须包含Sheet1：如果源文件的工作表名称不一致，需要调整代码中的Worksheets("Sheet1")为实际名称。
• 启用宏权限：确保Mac版Excel已启用宏，可在「偏好设置」-「安全性与隐私」中设置。

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