sintassi:

• ListObjects
scheda.ListObjects(). comandi tutte le tabelle della scheda
scheda.ListObjects(x). comandi su specifica tabella dando il numero dell'oggetto nel foglio
scheda.ListObjects("nome tabella"). comandi su specifica tabella dando il nome della tabella



• Range
scheda.Range("nome tabella""nome tabella"). riferimento alla tabella specifica
scheda.Range("nome tabella[#All]"). riferimento ai dati della tabella
scheda.Range("nome tabella[colonna]"). riferimento alla colonna indicata della tabella

comandi generali:

• .Count
conta e resituisce la quantità delle tabelle/oggetti nella pagina
scheda.ListObjects().Count
scheda.ListObjects("nome tabella").ListRows().Count numero di riche della tabella



esempio: se ci sono tabelle scorri tutte le tabelle e visualizza il nome della tabella
If scheda.ListObjects().Count > 0 Then solo se ci sono tabelle

For Each tabella In scheda.ListObjects scorri tutte le tabelle del foglio

MsgBox (tabella.Name)

Next tabella

End If




• .Name
restituisce il nome della tabella e colonna indicata dal numero
scheda.ListObjects(x).Name

esempio: nome della tabella 1
ActiveSheet.ListObjects(1).Name




esempio: nome della seconda colonna della tabella 1 della scheda DB
Sheets("DB").ListObjects(1).ListColumns(2).Name





• .Index
restituisce la posizione del campo, colonna o riga nelle liste
scheda.ListObjects(x).xxxx.Index


esempio: posizone colonna "Cognome" nella tabella 1
ActiveSheet.ListObjects(1).ListColumns("Cognome").Index





• .Refresh
aggiorno (refresh) la tabella SQL
scheda.ListObjects(x).QueryTable.Refresh BackgroundQuery:=False

il BackgroundQuery:=False é da mettere in modo che finché la tabella non é del tutto aggiornata non é possibile accedervi


esempio:
ActiveSheet.ListObjects(1).QueryTable.Refresh BackgroundQuery:=False

gestione dei dati della tabella:

• .Range
tutta la tabella (intestazioni + dati + totali)
ActiveSheet.ListObjects(x).Range



• .DataBodyRange
dati della tabella senza intestazioni
ActiveSheet.ListObjects(x).DataBodyRange



• .HeaderRowRange
le intestazioni senza i dati della tabella
ActiveSheet.ListObjects(x).HeaderRowRange



• .TotalsRowRange
la riga con i totali della tabella
ActiveSheet.ListObjects(x).TotalsRowRange

a questi comandi si aggiungono i comandi Range o Cells per gestire i dati

• .Range("")
• .Cells(,)

esempio: restituisce il valore della cella della riga 2 colonna 1 dei dati della tabella senza intestazioni
ActiveSheet.ListObjects(x).DataBodyRange.Cells(2,1)
il conteggio delle righe partono dalla prima riga dei dati senza l'intestazioni

esempio: restituisce il valore dell'ultima cella dei dati della seconda colonna della tabella
ActiveSheet.ListObjects(x).DataBodyRange.Range("B1").End(xlDown).Value

gestione righe e colonne:

• .ListColumns(x)
.ListColumns("nome colonna")
rappresenta la lista delle colonne della tabella



esempio: nome della colonna 2
ActiveSheet.ListObjects(1).ListColumns(2).Name





esempio: seleziono i dati della colonna 3
ActiveSheet.ListObjects(1).ListColumns(3).DataBodyRange.Select





esempio: restituisce il valore dell'ultima cella dati in basso della colonna "Stato"
ActiveSheet.ListObjects(1).ListColumns("Stato").DataBodyRange.End(xlDown).Value
attento potrebbe non funzionare se ci sono celle vuote

ActiveSheet.ListObjects(1).ListColumns("Stato").DataBodyRange.Cells(ActiveSheet.ListObjects(1).ListRows().Count)
usa questo





esempio: se la tabella ha righe sostutisci i valori di una colonna con un ciclo for
If Sheets("scheda").ListObjects("tabella").ListRows().Count > 0 Then

For riga = 1 To Sheets("scheda").ListObjects("tabella").ListRows().Count

Sheets("scheda").ListObjects("tabella").ListColumns("colonna").DataBodyRange.Cells(riga) = "testo " & riga

Next riga

End If




• .ListRows(x)
rappresenta la lista delle righe della tabella

esempio: conto il numero delle righe
ActiveSheet.ListObjects(1).ListRows().Count
ActiveSheet.ListObjects(1).ListRows.Count puoi anche omettere le ()

a questi comandi si aggiungono i comandi per gestire le righe e colonne

• .Add
aggiunge una riga/colonna

esempio: aggiungo una riga
ActiveSheet.ListObjects(1).ListRows.Add




esempio: aggiungo una riga + inserisci nella ultima riga aggiunta la data di oggi (usando Range)
ActiveSheet.ListObjects(1).ListRows.Add
ActiveSheet.ListObjects(1).ListColumns(1).DataBodyRange.Range("A" & ActiveSheet.ListObjects(1).ListRows().Count) = Date




esempio: aggiungo una riga + inserisci nella ultima riga alcuni dati in base al nome della colonna (usando Cells)
Sheets("scheda").ListObjects("tabella").ListRows.Add
ultimariga = Sheets("scheda").ListObjects("tabella").ListRows().Count se si inseriscono più dati nella riga creata meglio memorizzare prima il numero della riga e poi usarlo senza doverlo ricalcolare ogni volta
Sheets("scheda").ListObjects("tabella").ListColumns("colonna").DataBodyRange.Cells(ultimariga) = "testo da inserire"





• .Delete
• singola riga
elimina una riga/colonna
va indicata la riga o la colonna

esempio: cancello la riga 12
ActiveSheet.ListObjects(1).ListRows(12).Delete




esempio: cancello la colonna "Cognome"
ActiveSheet.ListObjects(1).ListColumns("Cognome").Delete





• tutte le righe
per cancellare tutte le righe si usa DataBodyRange

ActiveSheet.ListObjects(1).DataBodyRange.Rows.Delete