VBA从指定Excel表格向ComboBox添加项时报运行时错误，原因是什么？

咱们来一步步拆解你代码里的问题，这些就是导致运行时错误的根源：

• Range引用未限定目标工作表
  你写的Range("A2")没有加.前缀，这会让VBA默认去引用当前活动工作表的A2单元格，而不是你指定的Departamentos工作表。如果此时打开的不是目标表，直接就会出现范围不匹配的错误。

• 错误追加了.Value属性
  .Range("A" & Rows.Count).End(xlUp)本身已经是一个Range对象，代表A列最后一行有数据的单元格。你额外加了.Value，会把这个Range转换成单元格里的具体值（比如文本或数字），这样Range("A2", [单元格值])的写法完全不合法——Range的第二个参数必须是Range对象或合法的单元格地址字符串，不是单元格的值，这是触发运行时错误的核心原因。

• 额外的潜在隐患（非直接错误，但建议修正）

  • 变量名filename用来指代Workbook对象很容易混淆（通常filename是存储路径的字符串），建议改成wb这类清晰的名称；
  • 如果目标文件Tablas_Macro.xlsx已经打开，Workbooks.Open会直接报错，最好先检查文件状态再操作。

修复后的代码 #

Private Sub UserForm_Initialize()
    Dim wb As Workbook
    ' 先检查文件是否已打开，避免重复打开报错
    On Error Resume Next
    Set wb = Workbooks("Tablas_Macro.xlsx")
    On Error GoTo 0
    
    ' 如果文件未打开，再执行打开操作
    If wb Is Nothing Then
        Set wb = Workbooks.Open("C:\Users\se72497\Desktop\Tablas_Macro.xlsx")
    End If
    
    With wb.Sheets("Departamentos")
        ' 正确限定工作表范围，去掉多余的.Value，最后追加.Value返回二维数组给ComboBox
        dept.List = .Range("A2", .Range("A" & .Rows.Count).End(xlUp)).Value
    End With
End Sub

内容的提问来源于stack exchange，提问作者Noelia Sancho Mendez