Importare dati da access, creare un grafico e salvare in pdf

di il
1 risposte

Importare dati da access, creare un grafico e salvare in pdf

Salve a tutti, premetto che è la primissima volta che mi approccio alla programmazione in excel
Perdonate il titolo ma vado a spiegare cosa vorrei fare.
Visto che access non riesce a crearmi un grafico degno ho pensato di creare un file excel; precisamente vorrei poter eseguire questi step:
- apertura file excel
- con una routine/modulo o altro vorrei che il file excel vada automaticamente a prelevare i dati da una tabella ben precisa di un file access
- questi dati (per esempio) siano posizionati nel foglio1 di excel
- con i dati del foglio1, nel foglio 2 sia creato il grafico
- il foglio 2 sia salvato come file pdf oppure immagine
- chiusura con salvataggio del file excel

diciamo che sarei ben contento di riuscire inizialmente a leggere i dati e posizionarli nel foglio1, poi per step e gradi fare tutto il resto.
Grazie a chi pazientemente mi aiuterà.
Un pezzettino di codice sono riuscito a crearlo, ma purtroppo mi manca qualcosa: mi sembra che il collegamento al db access funzioni, ma non mi legge nè tantomento mi posiziona i dati nel file excel.
 Dim DB As database
Dim Tabella, Anno, Gennaio As Recordset
Dim PercorsoDB As String
Dim N As Integer

PercorsoDB = "C:\file.accdb"

Set DB = DBEngine.OpenDatabase(PercorsoDB)
Set Tabella = DB.OpenRecordset("Tabellastatisticamesi", dbOpenSnapshot)
'Set Anno = DB.OpenRecordset("SELECT Anno FROM Tabellastatisticamesi")
'Set Gennaio = DB.OpenRecordset("SELECT Gennaio FROM Tabellastatisticamesi")


Do While Tabella.EOF
    N = N + 1
    Tabella.FindFirst "[Anno] = 2022"
      
    
    Cells(N, 1) = Tabella("Anno")
    Cells(N, 2) = Tabella("Gennaio")
    Cells(N, 3) = 10

    Tabella.MoveNext
Loop

1 Risposte

Devi accedere o registrarti per scrivere nel forum
1 risposte