Question

我最初在工作表“1”中有一个名为“table”的表。从这个工作簿中我可以使用代码：

Private Sub CommandButton1_Click()
                latestSequenceNumber = 7
                MsgBox (latestSequenceNumber)
                latestSequenceNumber = Worksheets("1").ListObjects("table").Range.Row.Count 
                MsgBox (latestSequenceNumber)          
End Sub

以上工作。

我现在已将带有表格的工作表移动到位于同一文件夹中的名为“testLocation.xlsx”的新单独工作簿中。因此，我现在一直在尝试使用此代码：

 Private Sub CommandButton1_Click()
    Set repo = Workbooks.Open("testLocation.xlsx")
               latestSequenceNumber = 7
                MsgBox (latestSequenceNumber)
                latestSequenceNumber = repo.Worksheets("1").ListObjects("table").Range.Row.Count 'object required error?!
                MsgBox (latestSequenceNumber)                
End Sub

有关为什么会出现“需要对象”错误和/或如何解决此问题的任何想法？

Answer 1

这将有效：

Private Sub CommandButton1_Click()

    Set repo = Workbooks.Open("testLocation.xlsx")
    latestSequenceNumber = 7
    MsgBox (latestSequenceNumber)
    latestSequenceNumber = repo.Worksheets(1).ListObjects("table").Range.Rows.Count 'object required error?!
    MsgBox (latestSequenceNumber)
End Sub

我不确定你身边有什么问题，因为你错过了＆＃34; s＆＃34;在你的代码示例中。您希望Range.Rows不是Range.Row.Count。

计算单独工作簿中表的行数

1 个答案: