Resumen Tratar una hoja EXCEL como una base de datos

Aquí te va un pequenho código

    Dim dbXLS As Database
    Dim tbXLS As Recordset
    Dim sqlXLS as String

    Screen.MousePointer = 11

    PoneMensaje "Activando Fichero Prueba.XLS"

    'Abre tabla de la hoja de trabajo Microsoft Excel externa.
    If Mid$(App.Path, Len(App.Path), 1) = "\" Then
      sqlXLS = App.Path + "prueba.xls"
    Else
      sqlXLS = App.Path + "\" + "Prueba.xls"
    End If

    ' Abro el Libro Prueba XLS como Database

    Set libMPP = OpenDatabase(sqlXLS, False, False, "EXCEL 5.0;")

    'Crea Recordset a partir de la hoja de trabajo Hoja con un Area definida como BasePrueba.

    Set hojMPP = libMPP.OpenRecordset("BaseMPP")
    hojMPP.MoveFirst
    ' leyendo los valores de la columna uno dos y tres que tienen en su encabezado los nombres
    ' Enero, Febrero, Marzo
    
    Do While Not hojMPP.EOF
      a=hojMPP!Enero
      b=hojMPP!Febrero
      c=hojMPP!Marzo
      hojMPP.MoveNext
    Loop
    hojaMpp.Close
    libMPP.Close

Espero esto te ayude cualquier dudas quedo a la espera

sld Ariel
de3_cad_var@melia.solmelia.cma.net

-----Mensaje original-----
De:    Alessandria, Gabriel [SMTP:galessan@apsf.com.ar]
Enviado el:    lunes 24 de agosto de 1998 16:49
Para:    'vb-esp@ccc.uba.ar'
Asunto:    (VB-ESP) Integracion con EXCEL desde VB

    Por favor, alguien me puede enviar un ejemplo de codigo de como
hacer para desde visual basic leer una planilla de excel, recorrerla,
etc ?

    Gracias desde ya a todos los listeros !!


Gabriel Alessandria
Santa Fe - Argentina



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com