Sección de códigos , trucos y ejemplos para visual basic

297 - Pasar datos de Excel a Access con DAO

<Volver> - Anterior - Siguiente

Función de ejemplo para exportar datos de una hoja de Excel a una base de datos Access usando DAO

El ejemplo tiene una función llamada " Excel_a_Access " a la cual se le debe pasar como parámetro:

La ruta de la base de datos Access
La ruta del libro de Excel
El nombre de la tabla
Las filas a leer de la hoja
Las columnas

Si no hubo error la función retorna True

Controles y referencias

Agregar la referencia a Microsoft Dao ( Microsoft Dao xx object library ) desde el menú referencias
Un CommandButton

Código fuente en el formulario

Option Explicit '*************************************************************************** '* Name : Ejemplo para pasar datos de Excel a Access con DAO '* Referencias : Microsoft DAO Object Library '* Controles : Command1 '*************************************************************************** ' \\ Función ' -------------------------------------------------------------------------- Private Function Excel_a_Access( _ Path_BD As String, _ Path_XLS As String, _ La_Tabla As String, _ Filas As Integer, _ Columnas As Integer) As Boolean ' -- Variables para acceder al libro de excel, ' -- para la base de datos y el recordset dao Dim Obj_Excel As Object Dim Obj_Hoja As Object Dim bd As Database Dim rst As Recordset ' -- Variables para la fila, la columna y el dato a copiar Dim Fila_Actual As Integer Dim Columna_Actual As Integer Dim Dato As Variant Screen.MousePointer = vbHourglass ' -- Crea una Nueva instancia de Excel Set Obj_Excel = CreateObject("Excel.Application") ' -- Abre el libro pasandole el path Obj_Excel.Workbooks.Open FileName:=Path_XLS ' -- si es la versión de Excel 97, asigna la hoja activa ( ActiveSheet ) If Val(Obj_Excel.Application.Version) >= 8 Then Set Obj_Hoja = Obj_Excel.ActiveSheet Else Set Obj_Hoja = Obj_Excel End If ' -- Abrir la base de datos Set bd = OpenDatabase(Path_BD) ' -- Llenar el recordset indicándole la tabla Set rst = bd.OpenRecordset(La_Tabla, dbOpenTable) ' -- Recorrer las filas y columnas de la hoja For Fila_Actual = 1 To Filas ' -- Agregar un nuevo registro rst.AddNew ' -- REcorrer las columnas del libro For Columna_Actual = 0 To Columnas - 1 ' -- Almacena le dato de la celda actual Dato = Trim$(Obj_Hoja.Cells(Fila_Actual, Columna_Actual + 1)) ' -- Agrega los datos al campo indicado rst(Columna_Actual).Value = Dato Next ' -- Actualiza los datos en la tabla rst.Update Next Excel_a_Access = True ' -- Descargar los objetos Call Descargar_Objetos(rst, bd, Obj_Excel, Obj_Hoja) Screen.MousePointer = vbDefault Exit Function ' -- Error ' -------------------------------------------------------------- ErrSub: ' -- Descargar las referencias y cierra la base de datos Call Descargar_Objetos(rst, bd, Obj_Excel, Obj_Hoja) MsgBox Err.Description, vbCritical Screen.MousePointer = vbDefault End Function 'Descarga los objetos y los cierra Sub Descargar_Objetos( _ rst As Recordset, _ bd As Database, _ Obj_Excel As Object, _ Obj_Hoja As Object) Set rst = Nothing bd.Close Set bd = Nothing Obj_Excel.ActiveWorkbook.Close False Obj_Excel.Quit Set Obj_Hoja = Nothing Set Obj_Excel = Nothing End Sub ' \\ Botón para exportar ' -------------------------------------------------------------------------- Private Sub Command1_Click() Dim ret As Boolean ' -- Parámetros: ' -- El nombre y path de la base de datos y del libro excel ' -- El nombre de la tabla ' -- La cantidad de filas y columnas de la hoja a leer ' -- En este caso se leen el rango desde A1 hasta C10 ret = Excel_a_Access("c:\bd1.mdb", "c:\Libro1.xls", "Tabla1", 10, 3) If ret Then 'Ok MsgBox " Datos copiados a Access ", vbInformation End If End Sub Private Sub Form_Load() Command1.Caption = " Excel a Access " End Sub

Recursos vb6 - Enlaces relacionados

Recursos Vb.NET - Enlaces relacionados

Cargar datos de Excel en un dataGridview

Buscar en Recursos vb