向表格添加新行后无法访问：对象不支持该属性错误排查

核心问题排查 #

你的代码出现时灵时不灵的情况，大概率是以下几个原因：

• 未显式声明变量：i和newrow没有声明，VBA的隐式类型转换会导致不可预料的错误，尤其是newrow的声明被注释掉了，这是关键问题。
• 工作表/表格引用异常：确认Sheet_Parametre是工作表的代码名称（不是工作表标签名），且table_name对应的表格确实存在于该工作表中。
• 表格状态干扰：表格可能处于编辑模式、被保护，或者Excel的自动刷新/事件触发打断了行添加操作。

修正后的代码 #

Private Sub AddToTable(table_name As String, myarray() As String)
    Dim newrow As ListRow
    Dim i As Integer ' 显式声明循环变量
    
    ' 先验证表格是否存在
    On Error Resume Next
    Dim targetTable As ListObject
    Set targetTable = Sheet_Parametre.ListObjects(table_name)
    On Error GoTo 0
    
    If targetTable Is Nothing Then
        MsgBox "指定的表格[" & table_name & "]不存在于Sheet_Parametre中"
        Exit Sub
    End If
    
    ' 关闭屏幕更新，避免刷新干扰
    Application.ScreenUpdating = False
    
    For i = LBound(myarray) To UBound(myarray)
        Set newrow = targetTable.ListRows.Add
        ' 明确指定列的Range，避免Cells引用歧义
        newrow.Range.Cells(1).Value = myarray(i)
    Next i
    
    Application.ScreenUpdating = True
End Sub

额外排查步骤 #

• 检查数组有效性：调用这个子过程前，确认myarray不是空数组，且所有元素都有有效值，可添加判断：If UBound(myarray) < LBound(myarray) Then Exit Sub。
• 禁用事件干扰：如果工作表有Worksheet_Change等事件，添加行时可能触发循环事件，可在代码开头加Application.EnableEvents = False，结尾恢复True。
• 表格保护状态：确认Sheet_Parametre工作表和目标表格未被保护，若需要保护，需允许编辑对象/表格。

你尝试过的其他写法问题点 #

• 第一种写法直接通过索引访问最后一行，若表格刚添加行时索引可能未及时更新，导致赋值失败。
• 第二种写法连续调用两次.Add，会额外添加空行，且AlwaysInsert:=True仅在表格有相邻数据时生效，不是解决核心问题的关键。

内容的提问来源于stack exchange，提问作者Jean-Nicolas Turcotte