• Tabelle pivot
• VBA
• Excel

In post precedente avevamo spiegato come realizzare, tramite una query, una tabella pivot che riepiloga i dati di più fogli di lavoro.

Avevamo già accennato al fatto che l'indirizzo del file coi dati, anche se è lo stesso dove si trova la tabella pivot, è memorizzato con tutto il suo percorso, all'interno del file con la tabella pivot e che, dunque, se si sposta o rinomina il file occorre aggiornare la stringa di connessione.

Oggi vi proponiamo la routine visual basic che  aggiorna automaticamente la connessione. Noi abbiamo i dati e la pivot nello stesso file, per cui in apertura, andremo a leggere il nome e il percorso del nostro file e con quello costruiremo la stringa di connessione della query, che risulterà sempre corretta, anche se spostiamo il file.

Se i dati si trovano in un file diverso da quello con la pivot, potreste scrivere il nome e il percorso in apposite celle e leggerlo da li, magari non all'apertura del file, ma alla pressione di un apposito pulsante.

Noi abbiamo scritto questo codice sul modulo associato all'intera cartella di lavoro

Private Sub Workbook_Open()
  Dim strPercoso As String
  Dim strFile As String

  strPercorso = ActiveWorkbook.Path
  strFile = ActiveWorkbook.Name

  strConn = "ODBC; DSN=Excel Files;DBQ=" & strPercorso & "" _
       & strFile & ";DefaultDir=" & _
       strPercorso & ";DriverId=1046;MaxBufferSize=2048;PageTimeout=5;"

  ActiveWorkbook.PivotCaches(1).Connection = strConn
End Sub

Noi immaginiamo che nel file ci sia solo una tabella pivot. PivotCaches è un insieme rappresenta tutte le cache di tabella pivot nella cartella di lavoro specificata. Fra le parentesi tonde indichiamo il numero di indice della tabella pivot su cui vogliamo intervenire.

• Indietro
• Avanti