SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: eli_moran en Viernes 5 de Marzo de 2004, 01:18

Título: Importar Excel Desde Vb6 Y Cargarlo E Access
Publicado por: 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
Título: Re: Importar Excel Desde Vb6 Y Cargarlo E Access
Publicado por: Brroz en Viernes 5 de Marzo de 2004, 09:45
Hola eli_moran.

Usa un código de este estilo:

Código: Text
  1.  
  2. Private Function ImportXls() as boolean
  3.  
  4.    On Error goto Err_Import
  5.  
  6.    Dim DB As Object
  7.    Set DB = GetObject("C:\Ruta\BaseDeDatos.mdb")
  8.  
  9.    Const AC_IMPORT = 0
  10.    Const AC_EXCEL97 = 8
  11.    
  12.    Dim indCabecera as boolean
  13.    indCabecera = True 'Indica si la primera fila
  14.                                      'contiene nombres de campo
  15.    DB.DoCmd.TransferSpreadsheet _
  16.         (AC_IMPORT, AC_EXCEL97, "NombreDeTabla" _
  17.         ,"C:\Ruta\HojaDeCalculo.xls", indCabecera)
  18.  
  19.    ImportXls = True
  20.  
  21. Exit_Import:
  22.     Db.Quit
  23.     Set Db=Nothing
  24.     Exit Function
  25.  
  26. Err_Import:
  27.     Msgbox Err.description
  28.     Resume Exit_Import
  29.  
  30. End Function
  31.  
  32.  

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.