Ayuda con archivo de excel

Lizett
09 de Junio del 2005
Hola, necesito ayuda para pasar registros de excel a una tabla de access pero por medio de Visual Basic.

Cómo le hago???

Gabriel
09 de Junio del 2005
Asi es simple y rapido sin utilizar los objetos de excel, que son lentos y pesados.
Tene en cuenta que el nombre de la hoja va seguido del signo $
Despues el resto es sencillo.
Espero que te sirva.

Dim dbExcel As Database
Dim rs As DAO.Recordset

Set dbExcel = OpenDatabase(rstrArchivo, False, False, "Excel 8.0;HDR=Yes;")

Set rs = dbExcel.OpenRecordset("SELECT * FROM [NombreHoja$]", dbOpenDynaset)

Do While Not rs.EOF
'Procesas los registros del recordset como cualquier otro
debug.Print rs.Fields(0)
rs.MoveNext
Loop