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

298 - Importar Access a un rango de Excel en Vba

Formulario de ejemplo que importa una tabla de Access a un rango en un libro de Excel

El ejemplo utiliza una función que se conecta a la base de datos mediante DAO, y para copiar los registros al rango indicado utiliza el método CopyFromRecordset.

Nota. en el siguiente enlace hay un ejemplo similar a este , pero se utiliza Ado como conexión. Macro en vba de Excel con ADO

Pasos para crear el ejemplo

1 - En el libro de Excel, añadir un formulario
2 - Al formulario agregarle un Commandbutton y Tres Textbox El Textbox1 es para indicar el path de la base de datos. El TextBox2 para indicar la tabla y el Text3 para indicar el rango

vista del formulario de vba para importar los datos desde Access

3 - Añadir un módulo de código para la función ( Importar_Recordset ) que copia los datos a la hoja. Nota: Esta función tiene tres parámetros que le pasa los valores de los TextBox
4 - Añadir la referencia a Microsoft DAO object Library desde el menú referencias para poder acceder a la bd

Código fuente en el módulo bas

Option Explicit ' \\ función para importar ' ------------------------------------------------------------------- Function Importar_Recordset( _ Path_BD As String, _ La_Tabla As String, _ Rango As Range) As Boolean On Error GoTo error_handler ' -- Variables Dim obj_Bd As Database Dim rst As Recordset ' -- Variable para los índices de las columnas Dim Columna As Integer ' -- Establecer rango Set Rango = Rango.Cells(1, 1) ' -- Abrir la base de datos Set obj_Bd = OpenDatabase(Path_BD) ' -- Llenar el recordset con todos los datos Set rst = obj_Bd.OpenRecordset(La_Tabla, dbOpenTable) ' -- Escribir el nombre de las columnas For Columna = 0 To rst.Fields.Count - 1 Rango.Offset(0, Columna).Value = rst.Fields(Columna).Name ' -- AutoAjustar las columnas Rango.Offset(0, Columna).Columns.EntireColumn.AutoFit ' -- Aplicar negrita a los encabezados Rango.Offset(0, Columna).Font.Bold = True ' -- Color azul para la fuente Rango.Offset(0, Columna).Font.Color = vbBlue Next ' -- Copia los registros en el rango Rango.Offset(1, 0).CopyFromRecordset rst ' -- Retorna True > Ok Importar_Recordset = True ' -- Elimina las variables y cierra la base de datos On Error Resume Next Set rst = Nothing obj_Bd.Close Set obj_Bd = Nothing On Error GoTo 0 Exit Function ' -- Error error_handler: MsgBox Err.Description End Function

Código fuente en el UserForm

Option Explicit ' \\ -- Botón para importar los datos ' -------------------------------------------------------------------------- Private Sub CommandButton1_Click() Dim ret As Boolean ' -- Importa los datos desde Access a la Hoja ret = Importar_Recordset(TextBox1, TextBox2, _ Range(TextBox3.Text)) ' -- Si devuelve true ok If ret Then MsgBox " Datos copiados ", vbInformation End Sub ' \\ -- Evento de inicio del UserForm ' -------------------------------------------------------------------------- Private Sub UserForm_Initialize() ' -- Caption de los controles CommandButton1.Caption = " Importar datos " ' -- Ruta de la base de datos TextBox1.Text = "C:\Archivos de programa\Microsoft " & _ "Visual Studio\VB98\nwind.mdb" TextBox2.Text = "Productos" ' -- Tabla TextBox3.Text = "A1" End Sub

Nota: si se desea importar un conjunto de datos específicos, abrir el recordset con una consulta Sql, por ejemplo

Set rst = base.OpenRecordset("Select NombreProducto, CantidadPorUnidad From Productos")

Recursos Visual basic 6.0 - Enlaces relacionados

Buscar en Recursos vb