Excel VBA：点击AD列单元格同步对应行值命名工作簿报错求助

需求说明 #

从现有Excel文件创建包含指定工作表的新工作簿，触发条件为点击AD列中值为GENERATE的单元格，新工作簿名称取对应行K列的单元格值。此前代码存在仅获取最后一行值、报1004错误，修改后又出现Object variable or With block variable not set错误，需排查修复并实现需求。

原代码问题分析 #

1. 工作表事件代码逻辑错误：遍历AD列所有单元格，只要单元格值不是Complete就弹出提示，未针对当前选中的AD单元格做精准判断，导致触发逻辑混乱。
2. 模块代码取值错误：循环到最后一行才给rng赋值，导致新工作簿名称总是取最后一行D列的值，不符合“对应行取值”的需求。
3. 修改后代码的直接错误：Saverng被声明为Range对象类型，却直接赋值单元格的Value（字符串/数值类型），且未检查目标工作表是否成功获取，引发对象未初始化报错。

修正后的完整代码 #

1. 工作表事件代码（需放在「CST Tracker」工作表的代码模块中） #

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim answer As Integer
    Dim lrou As Long
    ' 获取AD列最后一行的行号
    lrou = Me.Cells(Me.Rows.Count, "AD").End(xlUp).Row
    
    ' 仅处理单个单元格选中，且选中区域在AD3至AD最后一行范围内
    If Target.Count = 1 And Not Intersect(Target, Me.Range("AD3:AD" & lrou)) Is Nothing Then
        ' 判断当前选中的AD单元格值是否为GENERATE（不区分大小写）
        If LCase(Target.Value) = "generate" Then
            answer = MsgBox("Do you want to create the Pre-Survey form?", vbQuestion + vbYesNo + vbDefaultButton2, "CST Tracker")
            If answer = vbYes Then
                ' 将选中行号传递给模块过程
                Call Pre_Surveyform(Target.Row)
            End If
        End If
    End If
End Sub

2. 标准模块代码（插入新模块后粘贴） #

Sub Pre_Surveyform(selectedRow As Long)
    Dim wkb As Workbook
    Dim saveName As String
    Dim cstws As Worksheet
    
    ' 检查目标工作表是否存在
    On Error Resume Next
    Set cstws = ThisWorkbook.Sheets("CST Tracker")
    On Error GoTo 0
    If cstws Is Nothing Then
        MsgBox "工作表'CST Tracker'不存在！", vbCritical
        Exit Sub
    End If
    
    ' 获取对应行K列的名称，去除首尾空格
    saveName = Trim(cstws.Range("K" & selectedRow).Value)
    ' 检查名称是否为空
    If saveName = "" Then
        MsgBox "第" & selectedRow & "行K列值为空，无法创建工作簿！", vbExclamation
        Exit Sub
    End If
    
    ' 创建新工作簿
    Set wkb = Workbooks.Add
    
    With wkb
        ' 保存工作簿（可自行添加路径，默认保存至Excel默认路径）
        .SaveAs Filename:=saveName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
        ' 重命名默认工作表并添加指定工作表
        .Sheets("Sheet1").Name = "Frontsheet"
        .Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = "Client Network Plan"
        .Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = "OR Portal Image"
        .Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = "Hospital & Welfare"
    End With
    
    ' 释放对象
    Set wkb = Nothing
    Set cstws = Nothing
End Sub

关键修复点说明 #

1. 事件逻辑优化：仅判断当前选中的AD单元格值是否为GENERATE，避免无效遍历和错误触发。
2. 行号传递机制：将选中行号作为参数传递给模块过程，精准获取对应行K列的值。
3. 类型修正：将工作簿名称变量声明为String类型，匹配单元格值的类型。
4. 异常检查：增加工作表存在性、名称非空检查，避免运行时错误。

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