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?
1 respuesta
Respuesta de rogersr
1
1
rogersr, Ingeniero de Sistemas Especialista en Teleinformática Programador...
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.