在Excel中从UserForm向表中添加数据

Question

我尝试将用户表单中的数据添加到Excel表格中。这是一个非常简单的程序，但我遇到了一些问题。 `

Option Explicit

Private Sub CommandButton1_Click()
Dim test As String

test = ActiveSheet.ListObjects(1).Name
ActiveSheet.Cells(1, 1).Value = test
ActiveSheet.ListObjects.ListRows.Add
'Dim LastRow As Long
'Dim Header As Integer
'Dim Column As Integer

'With ActiveSheet.ListObject(Table1)
'    LastRow = ActiveSheet.ListObjects(Table1).ListRows.Count
'
'    If .Sort.Header = xlYes Then
'        iHeader = 1
'    Else
'        iHeader = 0
'    End If
'End With
'ActiveSheet.Cells(1, 1).Value = TextBox1.Value
End Sub

评论的部分是我试图做的事情。但VBA表示它没有找到方法。