Prima riga Excel

martedì 07 marzo 2006 - 10.44

Marc1982 Profilo | Newbie

Buongiorno,
io riesco a leggere il contenuto del file excel e delle sue righe l'unica cosa che salta la prima riga come sela vedesse cme l'intestazione..come posso fare a farla leggere??????

Sotto posto il codice usato

Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Percorso & ";" & _
"Extended Properties=Excel 8.0;HDR=No")
con.Open()
Dim cmd As New OleDb.OleDbDataAdapter("SELECT * FROM [Sheet1$]", con)
DS = New DataSet
cmd.Fill(DS, "tabella")
Dim c As Integer
MsgBox(DS.Tables("tabella").Rows.Count)
For c = 0 To DS.Tables("tabella").Rows.Count - 1
If DS.Tables("tabella").Rows(c).Item(0) Is System.DBNull.Value = False Then
MsgBox(DS.Tables("tabella").Rows(c).Item(0))
End If
Next
con.Close()


Grazie mille
Marco

Ciciu Profilo | Senior Member

Ciao.
Ho provato il Tuo codice e devo dire che funziona.

Ho fatto una prova mettendo le lettere "a", "b", "c", e "d" nelle celle A1, A2, A3 e A4.


>
>Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;"
>& _
> "Data Source=" & Percorso & ";" & _
> """Extended Properties=Excel 8.0;HDR=No""")
> con.Open()

Un problema che ho riscontrato è la mancanza dei doppi apici che racchiudono le Extended Properties. Ma a me dava un errore, per cui non mi apriva neanche la connessione... Proverei a racchiudere la sottostringa "Extended Properties=Excel 8.0;HDR=No" tra doppi apici, che significa, nell'ambito di una stringa, raddoppiarli...

Un altro dubbio che mi verrebbe, se fossi in Te, è il seguente : la cella A1 è carica ? Contiene qualcosa ? Se così non fosse, il Tuo controllo

>If DS.Tables("tabella").Rows(c).Item(0) Is System.DBNull.Value = False Then

Ti farebbe, ovviamente, saltare il primo message box...

Ciao - Fabio
Fabio G
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2023
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5