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

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

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 Function Importar_Recordset(Path_BD As String, _ La_Tabla As String, _ Rango As Range) As Boolean On Error GoTo ErrFunc Dim base As Database, rst As Recordset 'Variable para los índices de las columnas Dim Columna As Integer Set Rango = Rango.Cells(1, 1) ' Abre la base de datos Set base = OpenDatabase(Path_BD) 'Llena el recordset con todos los datos Set rst = base.OpenRecordset(La_Tabla, dbOpenTable) ' Escribe el nombre de las columnas For Columna = 0 To rst.Fields.Count - 1 Rango.Offset(0, Columna).Value = rst.Fields(Columna).Name 'AutoAjusta las columnas Rango.Offset(0, Columna).Columns.EntireColumn.AutoFit ' Aplica 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 base.Close Set base = Nothing Exit Function 'Error ErrFunc: MsgBox Err.Description End Function

Código fuente en el UserForm

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 If End Sub Private Sub UserForm_Initialize() 'Caption de los controles CommandButton1.Caption = " Importar datos " TextBox1.Text = "C:\Archivos de programa\Microsoft " & _ "Visual Studio\VB98\nwind.mdb" TextBox2.Text = "Productos" 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