Autor Tema: Importar Excel Desde Vb6 Y Cargarlo E Access (Leído 1522 veces)

eli_moran · « **en:** Viernes 5 de Marzo de 2004, 01:18 »

Hola!... estoy con un problema q no encuentro como resolver! A ver si pueden darme una idea de como hacerlo!...

Necesito hacer una carga de muchos articulos en una base de access a traves de VB6, mi idea es importar el excel y con los datos q contiene cargar una tabla de Access, pero noencuentro como hacerlo!

Bienvenida sera cualquier sugerencia!

Gracias, eli

Brroz

Hola eli_moran.

Usa un código de este estilo:

Código: Text

 
Private Function ImportXls() as boolean
 
   On Error goto Err_Import
 
   Dim DB As Object
   Set DB = GetObject(&#34;C:&#092;Ruta&#092;BaseDeDatos.mdb&#34;)
 
   Const AC_IMPORT = 0
   Const AC_EXCEL97 = 8
   
   Dim indCabecera as boolean
   indCabecera = True 'Indica si la primera fila
                                     'contiene nombres de campo
   DB.DoCmd.TransferSpreadsheet _
        (AC_IMPORT, AC_EXCEL97, &#34;NombreDeTabla&#34; _
        ,&#34;C:&#092;Ruta&#092;HojaDeCalculo.xls&#34;, indCabecera)
 
   ImportXls = True
 
Exit_Import:
    Db.Quit
    Set Db=Nothing
    Exit Function
 
Err_Import:
    Msgbox Err.description
    Resume Exit_Import
 
End Function
 
 

Con esto debería llegar. De todas formas, para TransferSpreadsheet, aun podrías especificar a más el rango de los datos que quieres importar. Te recomiendo que abras access, vayas a un módulo nuevo y compruebes los posibles valores para Docmd.TransferSpreadsheet.

Suerte.

SoloCodigo

Autor Tema: Importar Excel Desde Vb6 Y Cargarlo E Access (Leído 1522 veces)

eli_moran

Importar Excel Desde Vb6 Y Cargarlo E Access

Brroz

Re: Importar Excel Desde Vb6 Y Cargarlo E Access