Estrarre dati da Excel

[w_t]

Ho un foglio di Excel, e vorrei estrarre dei dati da una colonna ben precisa per poi archiviarli in un Database.

es:

Nella colonna "A" ci sono elencati i "Nomi"
Nella colonna "B" ci sono elencati i "Cognomi"

Con VB.NET, come posso creare un Ciclo "WHILE" o "FOR" oppure un "DataSet" che mi estragga i dati da Excel ???

Poi li archivio nel mio Database...!!!

[biste]

Sì certo, sull'msdn è tutto ben spiegato

HTH

[allejo]

Inserire questi componenti
- Microsoft active data object library 2.5
- Microsoft excel

Private Sub Command1_Click()
Dim objExcel As Excel.Application
Dim objWB As Excel.Workbook
Dim objWS As Excel.Worksheet
Dim recordtmp As ADODB.Recordset
Dim contatore As Integer

Set recordtmp = New ADODB.Recordset

With recordtmp
.Fields.Append "Nome", adVarChar, 50
.Fields.Append "Cognome", adVarChar, 50
.Open
End With

Set objExcel = New Excel.Application
Set objWB = objExcel.Workbooks.Open("percorso excel .xls")
Set objWS = objWB.Worksheets(1)

contatore = 1
'Salvo i dati da excel a database
While Not ((objWS.Cells(contatore, 1).Value = "") And (objWS.Cells(contatore, 3).Value = ""))
If (objWS.Cells(contatore, 1).Value <> "") And (objWS.Cells(contatore, 3).Value <> "") Then
recordtmp.AddNew
recordtmp!Nome = objWS.Cells(contatore, 1).Value
recordtmp!Cognome = objWS.Cells(contatore, 2).Value
End If
Wend
End Sub



Ciao

[w_t]

A volte credo che le persone come te non possano esistere...

Ma poi mi devo ricredere...

Sei un grande, ciao e grazie mille!!!

[allejo]

Prego

[w_t]

Originariamente inviato da allejo
Inserire questi componenti
- Microsoft active data object library 2.5
- Microsoft excel

Private Sub Command1_Click()
Dim objExcel As Excel.Application
Dim objWB As Excel.Workbook
Dim objWS As Excel.Worksheet
Dim recordtmp As ADODB.Recordset
Dim contatore As Integer

Set recordtmp = New ADODB.Recordset

With recordtmp
.Fields.Append "Nome", adVarChar, 50
.Fields.Append "Cognome", adVarChar, 50
.Open
End With

Set objExcel = New Excel.Application
Set objWB = objExcel.Workbooks.Open("percorso excel .xls")
Set objWS = objWB.Worksheets(1)

contatore = 1
'Salvo i dati da excel a database
While Not ((objWS.Cells(contatore, 1).Value = "") And (objWS.Cells(contatore, 3).Value = ""))
If (objWS.Cells(contatore, 1).Value <> "") And (objWS.Cells(contatore, 3).Value <> "") Then
recordtmp.AddNew
recordtmp!Nome = objWS.Cells(contatore, 1).Value
recordtmp!Cognome = objWS.Cells(contatore, 2).Value
End If
Wend
End Sub



Ciao

ALT!!!!!!!
ma questo e' VB6 ...!!!

io sono in VB.NET!!!

[allejo]

Peccato.
:master:
Su VB Net non ci ho ancora lavorato.
Ma penso puoi fare qualke modifica o no?

[w_t]

Non sono riuscito...!!!

[w_t]

Sono riuscito a connettermi al foglio di EXCEL, ora vorrei fare un "SELECT" ma non trovo informazioni sufficenti, mi date una mano ???

Vorrei fere un SELECT * FROM ???

oppure:

selezionare la colonna interessata tipo: SELECT A FROM ???

??? stanno per "non so cosa mettere"

Aiuto!!!

        Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
                   "Data Source=c:\x\aaa.xls;" & _
                   "Extended Properties=""Excel 8.0;HDR=No""")

        conn.Open()

        Dim comm As New OleDbCommand("SELCT * FROM -cosa metto???-", conn)
        Dim read As OleDbDataReader
        read = comm.ExecuteReader
        read.Read()
        MsgBox(read("-cosa metto???-"))
        read.Close()

        conn.Close()

[w_t]

ECCOLA!!!!!!!!

        Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                        "Data Source=c:\x\aaa.xls;" & _
                                        "Extended Properties=""Excel 8.0;HDR=Yes""")
        conn.Open()
        Dim comm As New OleDbCommand("SELECT * FROM [Foglio1$]", conn)
        Dim read As OleDbDataReader = comm.ExecuteReader
        While read.Read()
            MsgBox(read(1).ToString)
        End While
        conn.Close()

solo che non mi legge la prima riga, cioe' mi salta la riga 1 in tutti i fogli, perche???