运行时错误'91'：VBA宏Windows正常Mac失效，请求代码调试

Run-time Error '91'（对象变量或With块变量未设置）的核心原因是代码中存在未正确赋值的对象，结合Mac与Windows VBA的兼容性差异，问题主要集中在以下几点，对应修复方案如下：

问题点与修复步骤 #

• FileDialog兼容性问题：Mac上msoFileDialogOpen的行为与Windows不一致，改用跨平台兼容的Application.GetOpenFilename替代。
• 未限定Range所属工作表：原代码中Range("A:A").Find未指定工作表，Mac环境下可能指向错误的工作表，导致Fnd为Nothing。必须明确指定为源工作簿的目标工作表。
• 未检查Find方法的返回值：如果未找到"report output"文本，Fnd会是Nothing，直接调用Fnd.Offset(1)会触发错误，需先判断Fnd是否存在。
• 未限定Sheet引用：Sheet2、Sheets(1)这类未限定的引用，在Mac上可能因工作表索引/名称变化导致对象找不到，需明确归属到对应的工作簿。

修改后的完整代码 #

Sub ImportRooms()
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Dim wkbCrntWorkBook As Workbook
    Dim wkbSourceBook As Workbook
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim Fnd As Range
    Dim filePath As Variant
    
    Set wkbCrntWorkBook = ActiveWorkbook
    ' 明确指定目标工作表，建议用工作表名称或CodeName
    Set wsTarget = wkbCrntWorkBook.Sheets("Sheet2")
    
    ' 改用跨平台的GetOpenFilename
    filePath = Application.GetOpenFilename( _
        FileFilter:="Excel 2007-13, *.xlsx; *.xls; *.xlsm; *.xlsa; *.csv", _
        Title:="选择要导入的文件", _
        MultiSelect:=False)
    
    If filePath <> False Then
        Set wkbSourceBook = Workbooks.Open(filePath)
        ' 明确指定源工作表
        Set wsSource = wkbSourceBook.Sheets(1)
        
        ' 限定Range到源工作表，并检查Find结果
        Set Fnd = wsSource.Range("A:A").Find("report output", LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
        
        wsTarget.Range("A1:AN112").ClearContents
        
        If Not Fnd Is Nothing Then
            With wsSource
                ' 复制第一部分内容，注意限定Range到当前工作表
                .Range(.Range("A1"), Fnd.Offset(1)).Copy wsTarget.Range("A1")
                ' 复制第二部分内容，注意限定Range到当前工作表
                .Range(Fnd.Offset(1), .Range("AO500")).Copy wsTarget.Range("A20")
            End With
        Else
            MsgBox "未找到'report output'文本，请检查源文件。"
        End If
        
        wkbSourceBook.Close SaveChanges:=False
    End If
    
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

额外说明 #

• 建议给工作表设置CodeName（在VBA编辑器的属性窗口中修改(Name)属性），这样即使工作表名称被修改，代码仍能正确引用。
• Mac上Excel的文件路径格式与Windows不同，GetOpenFilename会自动处理路径兼容性，无需手动转换。

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