Dati "formattati come tabella": recupero area tramite VBA

Question

<p>In un foglio Excel 2010, ho alcuni dati "formattati come tabella" (Home / Formatta come tabella) e viene creata una "tabella" visibile da "Formule / Gestione nomi". Tutto bene. Avrei però bisogno di recuperare, tramite VBA, la stringa "Riferito a" (es.: "=Foglio1!$A$2:$C:$23") in modo da poterla usare altrove in un programma VBA. </p><p>Con i "Nomi definiti" si trova facilmente con il parametro "RefersTo" (ThisWorkbook.Names(i).RefersTo), ma con i "nomi automatici di tabella" (chiamiamoli così) originati cioè dalla "formattazione come tabella", come si fa ad ottenere il medesimo risultato?</p><p>Grazie in anticipo</p><p></p><p>Gian Ivo</p>

Answer 1

In un foglio Excel 2010, ho alcuni dati "formattati come tabella" (Home / Formatta come tabella) e viene creata una "tabella" visibile da "Formule / Gestione nomi". Tutto bene. Avrei però bisogno di recuperare, tramite VBA, la stringa "Riferito a" (es.: "=Foglio1!$A$2:$C:$23"

<cut>

Se ho capito:

Public Sub m()

    Dim sh As Worksheet

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    With sh

        MsgBox .Range("A1").CurrentRegion.Address

    End With

    Set sh = Nothing

End Sub

In questo caso la mia tabella inizia da A1 del Foglio1. Modifica i riferimenti con i tuoi.

NOTA. Trasformare i dati in forma tabellare di un foglio in un oggetto Tabella di Excel, non è sempre una buona cosa, sopratutto se poi si utilizza il VBA. Opinione personale, eh!

Answer 2

Grazie a tutti! Mi avete dato tutti indicazioni preziose!

Buona giornata

Answer 3

In aggiunta alla soluzione di Mauro, segnalo la possibilità di utilizzare l'oggetto ListObject e le sue proprietà e metodi:

 

Una precisazione.

Avevo evitato di proposito ListObjects(string) perchè se si torna alla semplice forma tabellare dei dati, si deve riscrivere tutto il codice. CurrentRegion funziona in entrambi i casi.

Buona giornata a tutti.