VBA: conteggio delle righe in una tabella (oggetto elenco)

Question

Sto cercando di scrivere alcuni VBA in Excel che possono assumere il nome di una tabella (oggetto elenco) come parametro e restituire il numero di righe.

Il seguente funziona, ma non mi permette di passare in una stringa con il nome della tabella.

MsgBox ([MyTable].Rows.Count) 

Di seguito dà l'errore: "Oggetto richiesto"

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

Di seguito dà l'errore: "Oggetto variabile o variabile del blocco non set"

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

Ho anche provato lavorare con ListObjects, di cui sono nuovo. Ho ricevuto l'errore: "Oggetto non supporta questa proprietà o metodo"

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

Grazie per qualsiasi aiuto!

Answer 1

È necessario approfondire un livello in quello che si sta recuperando.

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 

Maggiori informazioni su:

ListObject Interface
ListObject.Range Property
ListObject.DataBodyRange Property
ListObject.HeaderRowRange Property

Answer 2

È possibile utilizzare questo:

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

Bisogna distinguere tra una tabella che ha sia una fila di dati o nessun dato, come il il codice precedente restituirà "1" per entrambi i casi. Usare questo per verificare un tavolo vuoto:

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

Answer 3

È possibile utilizzare:

Sub returnname(ByVal TableName As String) 

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

End Sub 

e chiamare la funzione, come di seguito

Sub called() 

returnname "Table15" 

End Sub