VBA运行GraywolfPlanful宏报424 Object Required错误求排查

触发424「Object Required（缺少对象）」运行时错误的核心原因是代码存在多处未定义对象引用、非法对象写法，具体问题点如下：

• 代码全程使用的GraywolfWorkbook对象从未声明、从未赋值，首次读取.Name属性时就会直接触发对象缺失错误
• 新建工作簿后错误将sUploadFile赋值为原预测文件名称，后续切换窗口时无法匹配到新建的上传工作簿
• Range("C")、Range("D")属于非法单元格引用，VBA中Range必须指定具体行号或传入合法单元格对象，仅写列字母无法识别为有效对象
• 代码中出现的sCurrentFile变量从未声明、赋值，执行Windows(sCurrentFile).Activate时找不到对应窗口对象
• Do循环内没有编写行号步进逻辑，即使修复前面的错误也会直接进入死循环
• 变量声明不规范：Dim sForecastFile, sUploadFile, sTab As String 写法下前两个变量默认是Variant类型，并非声明为String，容易引发隐性错误
• 全程依赖Select/Activate/ActiveCell切换操作对象，极易出现对象指向错乱的问题

显式声明并赋值所有用到的工作簿、工作表对象，修正非法Range写法，移除不必要的选中/激活逻辑，补全循环步进规则，修复后可直接运行的代码如下：

Sub GraywolfPlanful()
    ' 显式声明所有变量并指定正确类型
    Dim sForecastFile As String, sUploadFile As String, sTab As String
    Dim i As Long
    Dim wbForecast As Workbook, wbUpload As Workbook
    Dim wsNoDept As Worksheet, wsCurrent As Worksheet
    Dim currentRow As Long
    
    Application.ScreenUpdating = False
    
    ' 绑定预测工作簿对象，如果预测文件不是存宏的当前文件，可修改此处赋值逻辑
    Set wbForecast = ThisWorkbook
    sForecastFile = wbForecast.Name
    Set wsNoDept = wbForecast.Sheets("00_No Department")
    
    ' 新建上传工作簿并绑定对象
    Set wbUpload = Workbooks.Add
    sUploadFile = wbUpload.Name
    
    ' 直接写入表头，无需选中单元格
    With wbUpload.Sheets(1)
        .Range("A1") = "Company"
        .Range("B1") = "Department"
        .Range("C1") = "Location"
        .Range("D1") = "Segment"
        .Range("E1") = "Account"
        .Range("F1") = "Year"
        .Range("G1") = "Month"
        .Range("H1") = "Amount"
    End With
    
    ' 生成工作表标签名称
    sTab = Format(wsNoDept.Range("C1"), "yyyy-mm mmm") & "Project Forecast"
    
    ' 从第4个工作表开始遍历
    For i = 4 To wbForecast.Sheets.Count
        Set wsCurrent = wbForecast.Sheets(i)
        currentRow = 6 ' 起始行为F6对应的第6行
        
        ' 修正原Range无行号的非法写法，明确指定所属工作表和行号
        Do Until wsCurrent.Range("C" & currentRow) = "End" And wsCurrent.Range("D" & currentRow) = "Subtotal Other G&A"
            If wsCurrent.Range("Z" & currentRow) <> "" Then
                ' 直接复制数据，无需切换窗口
                wsCurrent.Range("Z" & currentRow, "AD" & currentRow).Copy
                ' 自动定位到上传表最后一个空行粘贴，避免覆盖已有数据
                wbUpload.Sheets(1).Cells(wbUpload.Sheets(1).Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
                ' 写入B列测试值
                wbUpload.Sheets(1).Range("B" & wbUpload.Sheets(1).Rows.Count).Resize(13, 1) = "Test"
            End If
            ' 行号步进，避免死循环
            currentRow = currentRow + 1
        Loop
    Next i
    
    ' 保存生成的上传文件
    wbUpload.SaveAs Filename:=CurDir & "\Test File Graywolf.xlsx"
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
    
    ' 释放对象内存
    Set wsCurrent = Nothing
    Set wsNoDept = Nothing
    Set wbUpload = Nothing
    Set wbForecast = Nothing
End Sub

• 如果GraywolfWorkbook不是存放宏的当前工作簿，将Set wbForecast = ThisWorkbook修改为对应文件的引用即可，例如Set wbForecast = Workbooks("预测文件实际名称.xlsx")
• 修复后的代码移除了所有窗口激活、单元格选中操作，运行效率更高，不会出现对象指向偏移的问题
• 原代码粘贴逻辑依赖ActiveCell位置，容易出现数据覆盖问题，修复后自动定位上传表最后空行再写入数据，稳定性更高

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