Ayuda con archivo de excel
Hola, necesito ayuda para pasar registros de excel a una tabla de access pero por medio de Visual Basic.
Cómo le hago???
Cómo le hago???
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
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