[vbusers] leer hoja en excel

[Jesús dos Santos]

A ver si te sirve algo asi…

Saludos

 

Dim objAdodbCon, objAdodbRecSet

        '1) Create an ADODB connection'

        objAdodbCon = CreateObject("ADODB.Connection")

 

        '2) Open connection

        objAdodbCon.connectionstring =
"PROVIDER=MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE=archivo; Extended
Properties=""Excel 12.0;HDR=Yes;"";"

        objAdodbCon.open()

        '3) check if Error then Exit Function'

        If Err.Number() <> 0 Then

            MsgBox(Err.Description)

            Exit Sub

        End If

        '4) Create a Recordset'

        objAdodbRecSet = CreateObject("ADODB.Recordset")

        objAdodbRecSet.CursorLocation = 3  ' set the cursor to use
adUseClient – disconnected recordset

 

        '5) Execute SQL and store results in reocrdset'

        Dim strSQLStatement As String = "Select * from [Hoja1$A1:C500]"

        objAdodbRecSet.Open(strSQLStatement, objAdodbCon, 1, 3)

     '6) Read all fields data'

        'voy metiendo los registros a la tabla

        While objAdodbRecSet.EOF = False

            If Not IsDBNull(objAdodbRecSet.fields(0).value) Then

             Msgbox(objAdodbRecSet.Fields(0).value)

         End If

           objAdodbRecSet.moveNext()

        End While

        If Err.Number <> 0 Then

           MsgBox(Err.Description)

            Exit Sub

        End If

        '7) Close and Discard all variables '

        objAdodbRecSet.ActiveConnection.close()

        objAdodbCon = Nothing

 

 

 

De: vbusers@mug.org.ar [mailto:vbusers@mug.org.ar] En nombre de Oscar
Alberto Obregón
Enviado el: miércoles, 21 de septiembre de 2016 12:37
Para: vbusers List Member <vbusers@mug.org.ar>
Asunto: [vbusers] leer hoja en excel

 

Buenos días!,  soy oscar y hoy me suscribi a la lista, alguien tendría algún
ejemplo de como leer una hoja de un libro de Excel?

saludos