VBA复制指定区域到新工作簿时wsI.Range报对象不支持属性方法错误如何解决

错误原因 #

• 核心问题是SpecialCells方法的调用对象不匹配：你将区域筛选和取可见单元格的代码拆分为两行后，.SpecialCells处于With wbO的作用块内，不带前缀的.默认指向wbO（工作簿对象），而工作簿对象本身没有SpecialCells属性/方法，因此抛出报错。
• 隐含问题：如果用户点击保存弹窗的「取消」按钮，Filename会返回布尔值False，直接调用SaveAs方法也会触发报错。

修正后代码 #

Option Explicit
Sub Export1()
    Dim wbI As Workbook, wbO As Workbook
    Dim wsI As Worksheet, wsO As Worksheet
    Dim Filename As Variant
    Dim filterRange As Range
    
    Set wbI = ThisWorkbook
    Set wsI = wbI.Sheets("SVK stationer")
    Set filterRange = wsI.Range("Y2:AF2882")
    
    ' 弹出保存路径选择，判断用户是否取消
    Filename = Application.GetSaveAsFilename(, "Excelfile (*.xlsx), *.xlsx")
    If Filename = False Then Exit Sub
    
    Set wbO = Workbooks.Add
    With wbO
        ' 兼容不同语言版本Excel的默认工作表名，用索引1更稳妥
        Set wsO = .Sheets(1)
        .SaveAs Filename
        
        ' 筛选并复制可见单元格，明确指定作用对象
        filterRange.AutoFilter Field:=1, Criteria1:="<>"
        filterRange.SpecialCells(xlCellTypeVisible).Copy
       
        wsO.Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
        ' 清除剪贴板
        Application.CutCopyMode = False
        ' 还原原表筛选状态
        If wsI.AutoFilterMode Then wsI.AutoFilterMode = False
    End With
End Sub

优化说明 #

• 明确指定了筛选区域的对象归属，避免With块作用域导致的对象指向错误
• 增加了保存弹窗取消逻辑，避免用户主动取消操作时触发异常
• 用工作表索引代替硬编码的工作表名Ark1，兼容不同语言版本的Excel环境
• 新增了原表筛选状态还原逻辑，避免代码运行后原表残留筛选条件
• 增加了剪贴板清除逻辑，避免运行后残留选中状态

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