Como Trasladar Excel a Access con Visual basic
Hola, se que tu puedes ayudarme, como puedo abrir un Libro Excel, ¿escoger una hoja de este y toda la información llevarla a una base de datos en Access que tiene la misma estructura de campos ya creada con código bajo visual basic?
Respuesta de rogersr
1
Este es el código para hacer lo que necesitas:
'Variables para accesar archivo xls
Dim ApExcel, hoja_act, libro_act
'Para agregar Registros a la Base de Datos utilizando DataControl
Data1.Recordsource = "Tabla"
Data1.Refresh
'Abre el archivo y crea los Objetos de Excel
Set ApExcel = CreateObject("Excel.application")
ApExcel.Workbooks.Open FileName:= "nombre_archivo"
Set hoja_act = ApExcel.ActiveSheet
Set libro_act = ApExcel.ActiveWorkbook
'Ciclo para llenar y Guardar registros en la DB
For i = 1 To 100
If hoja_act.range("A" & i).Value = "" Then Exit For
Data1.Recordset.AddNew
Data1.Recordset("Campo1") = hoja_act.range("A" & i).Value
Data1.Recordset("Campo2") = hoja_act.range("B" & i).Value
'Igual para los los demás campos
Data1.Recordset.Update
Next i
'Cierra el Archivo
ApExcel.quit
'Libera los Objetos de Excel
Set hoja_act = Nothing
Set libro_act = Nothing
Set ApExcel = Nothing
Si tienes alguna duda me escribes SIN finalizar la Pregunta. De lo contrario pues listo ...
Suerte !
Rogers R.
'Variables para accesar archivo xls
Dim ApExcel, hoja_act, libro_act
'Para agregar Registros a la Base de Datos utilizando DataControl
Data1.Recordsource = "Tabla"
Data1.Refresh
'Abre el archivo y crea los Objetos de Excel
Set ApExcel = CreateObject("Excel.application")
ApExcel.Workbooks.Open FileName:= "nombre_archivo"
Set hoja_act = ApExcel.ActiveSheet
Set libro_act = ApExcel.ActiveWorkbook
'Ciclo para llenar y Guardar registros en la DB
For i = 1 To 100
If hoja_act.range("A" & i).Value = "" Then Exit For
Data1.Recordset.AddNew
Data1.Recordset("Campo1") = hoja_act.range("A" & i).Value
Data1.Recordset("Campo2") = hoja_act.range("B" & i).Value
'Igual para los los demás campos
Data1.Recordset.Update
Next i
'Cierra el Archivo
ApExcel.quit
'Libera los Objetos de Excel
Set hoja_act = Nothing
Set libro_act = Nothing
Set ApExcel = Nothing
Si tienes alguna duda me escribes SIN finalizar la Pregunta. De lo contrario pues listo ...
Suerte !
Rogers R.
