La Web del Programador: Comunidad de Programadores
 
    Pregunta:  2889 - IMPORTAR TABLAS DE EXCEL A ACCES
Autor:  Lupita Alvarez
Estoy programando en Visual Basic 6 y a mi me entregan un reporte mensual en Acces que genera un tarificador, por lo que yo necesito importar ese archivo a acces y de esta forma poder manipular los datos de manera mas eficiente, si alguien sabe de este procediemiento le agradeceria enormemente Gracias

  Respuesta:  Oswaldo Monagas
Amigo. Segun el titulo necesitas leer tablas de Exel en un programa VB que trabaja con Access. Si eso es correcto ahi te envio dos codigos tomados de internet donde se plantean el mismo problema.
Hoja de Excel como Recordset (repregunta)
Mensaje enviado por José Rubí de la Vega <[email protected]>
Se me olvidó comentar que puedes acceder a rangos con nombre o, lo que es más cómodo, a las hojas del libro, sólo que los nombres de éstas como "tablas" son el nombre de la homa más el signo dólar ($). Es decir, Hoja1$, Hoja2$ etc.

Dim db As Database, rs As Recordset

Set db = OpenDatabase("d:\docs\excel\libro1.xls", False, False, "excel 5.0;")
Set rs = db.OpenRecordset("Hoja1$")
While Not rs.EOF
List1.AddItem "" & rs(0)
rs.MoveNext
Wend
rs.Close
db.Close


Para acceder a rangos con nombre simplemente pones como "tabla" el nombre del rango.

At 09:17 14/02/2000 -0500, you wrote:
>la apertura del LIBRO de Excel como base de datos. El problema es que he
>tratado de utilizar el método OpenRecordset para abrir una HOJA o un rango
>de celdas con nombre y no he podido. ¿Podrías decirme cómo hacerlo, por favor?
Un saludo.
Mensaje enviado por Grenville Tryon <[email protected]>
Ojala ayude.
Conectarse a Excel como fuente de datos
Septiembre 11 de 1998
Tiene un cuaderno de Excel con tablas sencillas (encabezados y datos por columnas). Puede accesar estos datos con Visual Basic, usando un DBGrid y su Data de enlace, p.e:
Private Sub Form_Load()
With dat
.Caption = "Excel..."
.Connect = "Excel 8.0;"
.DatabaseName = "C:\miPath\miHoja.xls"
.RecordSource