VBA：计算表中的行（列表对象）

Question

我试图在Excel中编写一些VBA，它可以将表（列表对象）的名称作为参数并返回行数。

以下工作，但不允许我传入带有表名的字符串。

MsgBox ([MyTable].Rows.Count)

以下给出了错误：

所需对象

v_MyTable = "MyTable"
MsgBox (v_MyTable.Rows.Count)

以下给出了错误：

对象变量或未设置块变量

v_MyTable_b = "[" & "MyTable" & "]"
MsgBox(v_MyTable_b.Rows.Count)

我也尝试使用ListObjects，我是新手。 我收到错误：

Object不支持此属性或方法

Dim tbl As ListObject
Set tbl = ActiveSheet.ListObjects("MyTable")
MsgBox(tbl.Rows.Count)

谢谢你的帮助！

Answer 1

您需要更深入地检查您正在检索的内容。

Dim tbl As ListObject
Set tbl = ActiveSheet.ListObjects("MyTable")
MsgBox tbl.Range.Rows.Count
MsgBox tbl.HeaderRowRange.Rows.Count
MsgBox tbl.DataBodyRange.Rows.Count
Set tbl = Nothing

更多信息：

ListObject接口
ListObject.Range属性
ListObject.DataBodyRange属性
ListObject.HeaderRowRange属性

Answer 2

你可以用这个：

    Range("MyTable[#Data]").Rows.Count

您必须区分具有一行数据或没有数据的表，因为前两个代码对于两种情况都将返回“1”。 用它来测试一个空表：

    If WorksheetFunction.CountA(Range("MyTable[#Data]"))

Answer 3

您可以使用：

Sub returnname(ByVal TableName As String)

MsgBox (Range("Table15").Rows.count)

End Sub

并调用以下函数

Sub called()

returnname "Table15"

End Sub