In questo articolo vedremo come realizzare una procedura o meglio una “Windows Application” che dato un file Excel genera un file di tipo CSV.
La particolarità di questo progetto è una parte dinamica, nel senso che può essere utilizzata per la versione di Excel 2007 o inferiore, e che la lettura delle colonne avviene tramite indice delle colonne (le lettere, a, b, c, d).
Prima di tutto bisogna creare un file Excel, nella prima colonna precisamente in A1 mettete la dicitura Nome, nella seconda colonna (B1) mettete Cognome, e nella terza colonna (C1) mettete età.
A questo punto valorizzare i vari campi al di sotto, inserendo i dati a vostro piacimento.
Ora non ci resta che aprire Visual Studio 2010 e realizzare tale procedura.
Creazione del progetto
Si crea un nuovo progetto di tipo “Windows Application” tramite il linguaggio di programmazione di proprio interesse (VB.Net o C#) a questo punto, nella form inseriamo quattro controlli Label, quattro controlli TextBox ed un pulsante, il tutto come illustrato in figura 1.
Figura 1 – la form con i vari controlli
Valorizziamo i vari campi con i dati di nostro interesse.
La prima casella conterrà il file CSV da generare, la seconda casella il percorso e nome del file Excel dove estrapolare i dati, il terzo campo, il nome del foglio su cui leggere le informazione, mentre nel quarto ed ultimo campo le colonne su cui leggere i dati.
Ora passiamo in visualizzazione codice facendo doppio sul pulsante con la dicitura "Genera", in modo che vi viene visualizzato l’evento del pulsante.
Qui di seguito si riporta il codice dell’evento click del pulsante.
VB.Net
Private
Sub BtnGenera_Click(sender As System.Object,
e As System.EventArgs)
Handles BtnGenera.Click
EseguiElaborazione(TxtFileExcel.Text,
TxtCsv.Text, TxtFoglio.Text, TxtColonne.Text)
MessageBox.Show("Operazione
completata")
End Sub
private
void BtnGenera_Click(object
sender, EventArgs e)
{
EseguiElaborazione(TxtFileExcel.Text,
TxtCsv.Text, TxtFoglio.Text, TxtColonne.Text);
MessageBox.Show("Operazione
completata");
}
Come si vede dal codice, viene eseguita una funzione ,a cui sono passati i vari parametri, riguardante i valori inseriti nelle varie caselle di testo.
Di seguito elenchiamo le varie funzioni.
La funzione qui di seguito, permette di generare il file Csv passando il percorso e nome del file e come secondo parametro il testo da scrivere.
VB.Net
Private
Shared Sub
CreaFileCsv(NomeFileCSV As String, Testo As String)
Try
Using
ScriviFile As New
System.IO.StreamWriter(NomeFileCSV, False)
ScriviFile.WriteLine(Testo)
End
Using
Catch
ex As Exception
Throw
ex
End Try
End Sub
C#
private
static void
CreaFileCsv(string NomeFileCSV, string Testo)
{
try
{
using
(System.IO.StreamWriter ScriviFile = new System.IO.StreamWriter(NomeFileCSV,
false))
{
ScriviFile.WriteLine(Testo);
}
}
catch
(Exception ex)
{
throw ex;
}
}
L’algoritmo prendendo il nome dagli indici delle colonne (a,b,c,etc) rileva tali campi.
VB.Net
Private
Shared Function
OttieniNomeColonne(pColonne As DataTable, LetteraColonna As
String) As String
Dim
LettereExcel As String
= "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
'26
Dim
Colonne As String()
= LetteraColonna.Split(","c)
Dim
NomeColonna As String
= ""
For
ContaColonne As Integer
= 0 To Colonne.Length - 1
If
ContaColonne > 0 Then
NomeColonna += ","
End
If
Dim
Indice As Integer
= -1
If
Colonne(ContaColonne).Trim().Length > 1 Then
For
ContaElementi As Integer
= 0 To Colonne(ContaColonne).Length - 1
If
ContaElementi > 0 Then
Indice += 25 +
LettereExcel.IndexOf(Colonne(ContaColonne).Trim().Substring(ContaElementi + 1))
Else
Indice =
LettereExcel.IndexOf(Colonne(ContaColonne).Trim().Substring(ContaElementi + 1))
+ 1
End If
Next
Else
Indice = LettereExcel.IndexOf(Colonne(ContaColonne).Trim())
End If
NomeColonna += pColonne.Columns(Indice).ColumnName.Trim()
Next
Return
NomeColonna
End Function
C#
private string OttieniNomeColonne(DataTable
pColonne, string LetteraColonna)
{
string
LettereExcel = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
//26
string[] Colonne = LetteraColonna.Split(',');
string
NomeColonna = "";
for (int ContaColonne
= 0; ContaColonne < Colonne.Length; ContaColonne++)
{
if (ContaColonne > 0)
{
NomeColonna += ",";
}
int
Indice = -1;
if (Colonne[ContaColonne].Trim().Length
> 1)
{
for (int
ContaElementi = 0; ContaElementi < Colonne[ContaColonne].Length;
ContaElementi++)
{
if (ContaElementi > 0)
{
Indice += 25 +
LettereExcel.IndexOf(Colonne[ContaColonne].Trim().Substring(ContaElementi +
1));
}
else
{
Indice =
LettereExcel.IndexOf(Colonne[ContaColonne].Trim().Substring(ContaElementi + 1))
+ 1;
}
}
}
else
{
Indice = LettereExcel.IndexOf(Colonne[ContaColonne].Trim());
}
NomeColonna += pColonne.Columns[Indice].ColumnName.Trim();
}
return NomeColonna;
}
Siamo giunti alla conclusione della stesura del codice, qui di seguito la funzione più importante, quella che ci permette di eseguire le query nel file di Excel ed estrapolare i dati.
VB.Net
Private
Sub EseguiElaborazione(PercorsoFileExcel As String,
PercorsoFileCsv As String,
NomeFoglio As String,
Colonne As String)
Try
Dim
strConnectionString As String
= ""
If
PercorsoFileExcel.Trim().EndsWith(".xlsx")
Then
strConnectionString = String.Format("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source={0};Extended Properties=" & ChrW(34) & "Excel 8.0;HDR=Yes;IMEX=1" &
ChrW(34), PercorsoFileExcel)
ElseIf
PercorsoFileExcel.Trim().EndsWith(".xls")
Then
strConnectionString = String.Format("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source={0};Extended Properties=""Excel 8.0;HDR=Yes"";",
PercorsoFileExcel)
End If
'mi connetto alla base dati
Using ObJConnection As New OleDbConnection(strConnectionString)
ObJConnection.Open()
Dim
DtrRecord As OleDbDataReader
Dim
DtaQuery As New
OleDbDataAdapter("Select
top 1 * from [" & NomeFoglio & "$] ;", ObJConnection)
Dim
DttDati As New DataTable()
DtaQuery.Fill(DttDati)
'Rilevo l'intestazione delle colonne
Colonne = OttieniNomeColonne(DttDati, Colonne)
'Ottengo i dati dopo aver rilevato i nomi
delle colonne
Dim
DbCommandQuery As New
OleDbCommand("Select
" & Colonne & " from [" & NomeFoglio & "$] ;")
DbCommandQuery.Connection =
ObJConnection
DtrRecord =
DbCommandQuery.ExecuteReader()
Dim
DttDatiRisultato As New
DataTable()
'Rendo le colonne di tipo string
Dim
lNomeColonna As String()
= Colonne.Split(",")
For
Each Colonna As
String In
lNomeColonna
DttDatiRisultato.Columns.Add(Colonna,
GetType(String))
Next
DttDatiRisultato.Load(DtrRecord)
Dim
TestoDaScrivere As String
= ""
For
Each Elemento As
DataRow In
DttDatiRisultato.Rows
For
ContaColonne As Integer
= 0 To Elemento.ItemArray.Length - 2
TestoDaScrivere +=
Elemento(ContaColonne).ToString() & ";"
Next
If
TestoDaScrivere.Substring(TestoDaScrivere.Length - 1, 1) = ";" Then
TestoDaScrivere =
TestoDaScrivere.Substring(0, TestoDaScrivere.Length - 1)
End
If
TestoDaScrivere += vbCr & vbLf
Next
CreaFileCsv(PercorsoFileCsv, TestoDaScrivere)
End Using
Catch
ex As Exception
Throw
ex
End Try
End Sub
C #
private void EseguiElaborazione(string PercorsoFileExcel, string
PercorsoFileCsv, string NomeFoglio, string Colonne)
{
try
{
string
strConnectionString = "";
if
(PercorsoFileExcel.Trim().EndsWith(".xlsx"))
strConnectionString = string.Format("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source={0};Extended Properties=" + (char)34
+ "Excel 8.0;HDR=Yes;IMEX=1" + (char)34, PercorsoFileExcel);
else
if (PercorsoFileExcel.Trim().EndsWith(".xls"))
{
strConnectionString = string.Format("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source={0};Extended Properties=\"Excel 8.0;HDR=Yes\";",
PercorsoFileExcel);
}
//mi
connetto alla base dati
using
(OleDbConnection ObJConnection = new OleDbConnection(strConnectionString))
{
ObJConnection.Open();
OleDbDataReader
DtrRecord;
OleDbDataAdapter
DtaQuery = new OleDbDataAdapter("Select top 1 * from [" + NomeFoglio + "$] ;",
ObJConnection);
DataTable
DttDati = new DataTable();
DtaQuery.Fill(DttDati);
//Rilevo
l'intestazione delle colonne
Colonne = OttieniNomeColonne(DttDati, Colonne);
//Ottengo i dati dopo aver rilevato i nomi
delle colonne
OleDbCommand
DbCommandQuery = new OleDbCommand("Select " + Colonne + " from
[" + NomeFoglio + "$] ;");
DbCommandQuery.Connection =
ObJConnection;
DtrRecord =
DbCommandQuery.ExecuteReader();
DataTable
DttDatiRisultato = new DataTable();
//Rendo le colonne di
tipo string
string[] lNomeColonna = Colonne.Split(',');
foreach (var
Colonna in lNomeColonna)
{
DttDatiRisultato.Columns.Add(Colonna, typeof(string));
}
DttDatiRisultato.Load(DtrRecord);
string
TestoDaScrivere = "";
foreach (DataRow
Elemento in DttDatiRisultato.Rows)
{
for (int ContaColonne = 0;
ContaColonne < Elemento.ItemArray.Length - 1; ContaColonne++)
{
TestoDaScrivere +=
Elemento[ContaColonne].ToString()+ ";";
}
if (TestoDaScrivere.Substring(TestoDaScrivere.Length - 1, 1) == ";")
{
TestoDaScrivere =
TestoDaScrivere.Substring(0, TestoDaScrivere.Length - 1);
}
TestoDaScrivere += "\r\n";
}
CreaFileCsv(PercorsoFileCsv,
TestoDaScrivere);
}
}
catch
(Exception ex)
{
throw
ex;
}
}
Conclusioni
L’articolo ha fornito al lettore delle ottime indicazioni di come creare un programma di tipo Windows Application, flessibile e dinamico per la lettura dei dati da un file di tipo Excel, di qualsiasi versione e generare un file di tipo CSV.
Tramite le classi di Ado.Net e precisamente di OleDB, possiamo lavorare sui file di tipo Excel.
Tramite la parola Download è possibile scaricare il progetto utilizzato in questo articolo.
Post
Le opere pubblicate in questo blog sono sotto la licenza Creative Commons. Attribuzione- No commerciale e no derivate.
Nessun commento:
Posta un commento