基于ComboBox选择从其他工作表导入数据的VBA报错求助

错误原因分析 #

出现“Method 'Range' of object'_Worksheet' failed”的核心原因：

• 目标文件中不存在名为output-M的工作表，导致ws对象未正确初始化
• 引用Rows.Count时未指定所属工作表，默认使用当前活动表，与目标工作表ws的行数范围不匹配
• 模态窗体UserForm1.Show执行后，后续代码需等待窗体关闭，若用户未选择项直接关闭，ComboBox1.Value或ListIndex会触发无效引用
• 数据导入部分的行号计算逻辑错误，导致引用了不存在的单元格范围

修正后的完整代码 #

1. 主按钮事件代码 #

Sub Button1_Click()
    Dim fd As FileDialog
    Dim strFile As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Integer
    
    ' 创建文件选择对话框
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .AllowMultiSelect = False
        .Title = "请选择利率数据文件"
        .Filters.Clear
        .Filters.Add "Excel 文件", "*.xlsx; *.xlsm; *.xls; *.xlsb", 1
        
        If .Show = True Then
            strFile = .SelectedItems(1)
            Set wb = Workbooks.Open(strFile, ReadOnly:=True) ' 只读打开避免文件锁定
            
            ' 检查目标工作表是否存在
            On Error Resume Next
            Set ws = wb.Sheets("output-M")
            On Error GoTo 0
            If ws Is Nothing Then
                MsgBox "目标文件中未找到名为'output-M'的工作表", vbExclamation
                wb.Close False
                Exit Sub
            End If
            
            ' 清空ComboBox并加载利率列表（限定工作表的Rows.Count）
            UserForm1.ComboBox1.Clear
            lastRow = ws.Range("E" & ws.Rows.Count).End(xlUp).Row
            For i = 3 To lastRow
                If ws.Range("E" & i).Value <> "" Then ' 跳过空单元格
                    UserForm1.ComboBox1.AddItem ws.Range("E" & i).Value
                End If
            Next i
            
            ' 传递源工作表对象到窗体
            Set UserForm1.SourceWS = ws
            UserForm1.Show vbModal ' 模态显示窗体
            
            wb.Close False
        End If
    End With
    
    ' 释放对象
    Set fd = Nothing
    Set wb = Nothing
    Set ws = Nothing
End Sub

2. 用户窗体（UserForm1）代码 #

先在窗体中添加一个CommandButton（命名为cmdImport，标题设为“导入数据”）和ComboBox（保留默认名ComboBox1），然后添加以下代码：

Public SourceWS As Worksheet ' 声明公共变量存储源工作表

Private Sub cmdImport_Click()
    Dim selectedRate As String
    Dim rateRow As Variant
    Dim i As Integer
    
    ' 检查是否选择了利率项
    If ComboBox1.ListIndex = -1 Then
        MsgBox "请先选择一个利率类型", vbExclamation
        Exit Sub
    End If
    
    selectedRate = ComboBox1.Value
    ' 找到选中利率对应的行号
    rateRow = Application.Match(selectedRate, SourceWS.Range("E:E"), 0)
    If IsError(rateRow) Then
        MsgBox "未找到选中的利率数据", vbCritical
        Exit Sub
    End If
    
    ' 导入对应列的历史数据到当前活动表A1:A10
    For i = 1 To 10
        ' 从F列开始取第i个数据（对应历史序列）
        ActiveSheet.Range("A" & i).Value = selectedRate & " - " & SourceWS.Cells(rateRow, 5 + i).Value
    Next i
    
    Unload Me ' 关闭窗体
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ' 清理对象引用
    Set SourceWS = Nothing
End Sub

关键修正点说明 #

• 工作表存在性校验：添加错误处理确保output-M工作表存在，从根源避免对象引用错误
• 限定行数范围：使用ws.Rows.Count替代全局Rows.Count，确保引用目标工作表的真实行数
• 分离窗体逻辑：将数据导入代码移到窗体按钮事件中，避免模态窗体阻塞导致的逻辑混乱
• 准确定位数据行：用Application.Match替代原错误的ListIndex计算，精准找到选中利率的对应行
• 只读打开文件：添加ReadOnly:=True避免多用户编辑冲突
• 空值过滤：加载ComboBox时跳过空单元格，避免无效选项干扰

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