Utilizzare excel da visual basic net
Excel è un prodotto molto diffuso, sia in azienda che nell’utente finale, viene utilizzato per fare calcoli matematici molto complessi, grafici, e la possibilità di aggiungere formule personalizzate.
Tale programma è diviso in fogli di lavoro, nei quali è possibile svolgere diverse operazioni.
Introduzione:
Questo articolo affronterà in modo semplice, la possibilità di interagire con Excel da Visual basic.Net, ma la tecnica affrontata, può essere utilizzata anche per altri prodotti della famiglia office (word, power point, access, ecc), in particolare vedremo come inserire del testo, nelle varie celle (intersezioni di righe e colonne), applicare un formato (grassetto, dimensione carattere, ecc) e inserire un grafico come mostrato nella
figura 1.
Può capitare che nei nostri programmi, dobbiamo interagire con excel, per far si, dobbiamo aver installato sulla macchina il prodotto Microsoft Excel.
Aggiungere il riferimento di Excel
Nel nostro progetto dobbiamo aggiungere il riferimento al componente excel, la procedura da seguire sarà la seguente.
Selezionare la voce aggiungi riferimento situata nel menu progetto, a questo punto si apre una finestra, nella quale sono visualizzati i nomi, le versioni ed il percorso dei componenti che sono installati sul nostro computer. Selezioniamo la linguetta Com e cerchiamo il componente Microsoft Excel 10.0 Object Library, dove 10 indica la versione di excel installata (in questo caso ho xp) 9 per la versione 2000 e così via per tutte le altre versioni, selezioniamo il componente e facciamo click sul pulsante seleziona, come mostrato in
figura 2 e sul pulsante ok per chiudere la finestra dando conferma.
In questo modo abbiamo aggiunto al nostro progetto un riferimento ad un componente che ci permette di utilizzare tale programma (excel nel nostro caso) per compiere alcune operazioni, tale componente lo troviamo nella finestra esplora soluzione espandendo la voce Reference tramite il click sul simbolo + come mostrato in
figura 3.
Creazione degli oggetti
Prima di creare gli oggetti, bisogna capire com’è fatto il programma excel a livello di programmazione.
Esso è diviso in varie parti, la principale è l’applicazione, ossia il programma dove all’interno ci sono gli altri oggetti, la cartella la quale contiene un insieme di fogli (da 1 a n) in essi si trovano le varie celle utilizzate per fare i calcoli.
Bisogna creare tre oggetti uno che rappresenti l’applicazione, un altro che rappresenta la cartella di lavoro, e l’ultimo che rappresenta il nostro foglio di calcolo.
Come si vede di seguito il codice deve essere simile a quello riportato qui di seguito:
'creo l'oggetto excel application il programma excel.
Dim XlaDati As Excel.Application
'creo l'oggetto per la gestione della cartella di lavoro
Dim XlwbDati As Excel.Workbook
'creo l'oggetto per la gestione del foglio di excel(es. foglio uno, foglio due)
Dim XlshDati As Excel.Worksheet
'instanzio l'oggetto application
XlaDati = CreateObject("Excel.Application")
'gestione degli errori
Try
'lo rendo visibile
XlaDati.Visible = True
'aggiungo una nuova cartella excel
XlwbDati = XlaDati.Workbooks.Add
'Mi posiziono sul foglio attivo
XlshDati = XlwbDati.ActiveSheet
Inserimento dei valori nelle celle
Mi creo un array il quale mi servirà per valorizzare alcune celle (posso utilizzare anche un dataset o altro), la proprietà name dell’oggetto sheet imposta il nome del foglio, la proprietà cells permette di identificare una cella, la quale a sua volta ha delle proprietà (grassetto, dimensione carattere, ecc) che tramite l’assegnazione del numero di colonne e riga possiamo impostare.
Come si vede di seguito il codice dev’essere simile a quello riportato qui di seguito:
contatore di excel
Dim IntConta As Integer
'eventuali titolo array
Dim StrTitoloExcel() As String = {"Cognome", "Nome", "Voto", "Città"}
'Imposto il nome del foglio
XlshDati.Name = “Esempio"
'valorizzo la prima riga
For IntConta = 0 To 3
With XlshDati.Cells(1, IntConta + 1)
'inserisco il valore
.value = StrTitoloExcel(IntConta)
'lo rendo in grassetto
.font.bold = True
'gli do la dimensione
.font.size = 14
'rendo la cella di dimensioni uguali al testo (autosize)
.EntireColumn.autofit()
End With
Next
'variabile che gestisce i dati anzichè un array possiamo utilizzare un dataset
Dim StrNomi(3, 4) As String
'per la colonna cognome
StrNomi(0, 1) = "Foti"
StrNomi(1, 1) = "Mattei"
StrNomi(2, 1) = "Foti"
'colonna nome
StrNomi(0, 2) = "Olga"
StrNomi(1, 2) = "Emanuele"
StrNomi(2, 2) = "Pino"
'per la colonna voti
StrNomi(0, 3) = "8"
StrNomi(1, 3) = "6"
StrNomi(2, 3) = "4"
'per la colonna città
StrNomi(0, 4) = "Reggio Calabria"
StrNomi(1, 4) = "Roma"
StrNomi(2, 4) = "Milano"
'variabile per la gestione delle righe
Dim IntContaRighe, IntContaColonne As Integer
'Ciclo per ogni riga
For IntContaRighe = 0 To 3
'ciclo per ogni colonna dove ci sono i dati
For IntContaColonne = 1 To 4
'le matrici inziano con 0 per ciò più due per le righe di excel
With XlshDati.Cells(IntContaRighe + 2, IntContaColonne)
.value = StrNomi(IntContaRighe, IntContaColonne)
.EntireColumn.autofit()
End With
Next
Next
Inserimento del grafico
A questo punto siamo arrivati alla parte più complessa, quella di inserire un grafico.
Per prima cosa dobbiamo selezionare i valori che ci interessano, tramite il metodo select dell’oggetto workbook, fatto ciò, dobbiamo inserire un grafico e indicare il tipo di grafico tramite la funzione SetSourceData a questo punto dobbiamo indicare in quale foglio di excel dev’èssere inserito (nuovo o sullo stesso) tramite la funzione location . Sarà nostro interesse aggiungere titoli, legende, ecc.
Come si vede di seguito il codice dev’essere simile a quello riportato qui di seguito:
'Seleziono i dati da utilizzare nel grafico
XlwbDati.Sheets("Dev Esempio").range("C2:C4", "B2:B4").select()
With XlshDati.Application
'aggiungo un grafico
.Charts.Add()
'il tipo di grafico
.ActiveChart.ChartType = Excel.XlChartType.xl3DColumnClustered
'i dati per il grafico
.ActiveChart.SetSourceData(Source:=XlwbDati.Sheets("Esempio").range("C2:C4", "B2:B4") _
, PlotBy:="xlColumns")
'Indico la leggenda
.ActiveChart.SeriesCollection(1).Name = "=""Voti"""
'Imposto il grafico nella pagine corrente
.ActiveChart.Location(Where:=Excel.XlChartLocation.xlLocationAsObject, Name:="Esempio")
'Imposto Il titolo del grafico
.ActiveChart.HasTitle = True
.ActiveChart.ChartTitle.Characters.Text = "Esempio"
'Imposto l'etichettà per l'asse x
.ActiveChart.Axes(Excel.XlAxisType.xlCategory, Excel.XlAxisGroup.xlPrimary).HasTitle = True
.ActiveChart.Axes(Excel.XlAxisType.xlCategory, Excel.XlAxisGroup.xlPrimary).AxisTitle.Characters.Text = "Nomi"
'imposto l'echtetta per l'asse y
.ActiveChart.Axes(Excel.XlAxisType.xlValue, Excel.XlAxisGroup.xlPrimary).HasTitle = True
.ActiveChart.Axes(Excel.XlAxisType.xlValue, Excel.XlAxisGroup.xlPrimary).AxisTitle.Characters.Text = "Voti"
End With
Tramite il metodo SaveAs dell’oggetto application, salvo il file:
'salvo il file
XlaDati.ActiveWorkbook.SaveAs(Environment.CurrentDirectory & "\EsempioExcel.xls", , , , , , Excel.XlSaveAsAccessMode.xlExclusive)
Conclusioni
Questo articolo a fornito alcune tecniche di come utilizzare i prodotti microsoft office (nel nostro caso excel) da qualsiasi applicazione scritta in Visual basic.Net. MA nulla esclude che si possono fare operazioni più complesse o utilizzare contemporaneamente più prodotti office.
Download esempio