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

119 - Ejemplo para leer una Hoja de Excel con ADO

<Volver> - Anterior - Siguiente

Este ejemplo muestra como leer mediante una conexión ADO una hoja de Excel y poder mostrar dichos datos ( previamente almacenados en un recordset ) en un control DataGrid

DataGrid con los datos del Excel

vista del ejemplo para leer datos de una hoja de excel utilizando ADO

Colocar los siguiente controles como está en la imagen:

Un control Text1 para colocar el Path del libro
Un Text2 y un Text3 para especificar el Rango de los datos (opcional, si no se especifica se lee toda la hoja)
Un Text4 para el nombre de la hoja
Un CommandButton para leer los datos
Un control DataGrid
Especificar desde el menú referencias Microsoft Activex Data Objects - Ado

Código en un formulario:

Option Explicit Public Sub Importar_Excel( _ Libro As String, _ hoja As String, _ Optional rango As String = "") Dim conexion As ADODB.Connection, rs As ADODB.Recordset Set conexion = New ADODB.Connection conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Libro & _ ";Extended Properties=""Excel 8.0;HDR=Yes;""" ' Nuevo recordset Set rs = New ADODB.Recordset With rs .CursorLocation = adUseClient .CursorType = adOpenStatic .LockType = adLockOptimistic End With If rango <> ":" Then hoja = hoja & "$" & rango End If rs.Open "SELECT * FROM [" & hoja & "]", conexion, , , adCmdText ' Mostramos los datos en el datagrid Set DataGrid1.DataSource = rs End Sub Private Sub Command1_Click() Dim rango As String, hoja As String, ruta As String ruta = Text1 'ruta del archivo excel rango = Text2 & ":" & Text3 'Rango de datos (opcional) hoja = Text4 'Nombre de la hoja Importar_Excel ruta, hoja, rango End Sub

Otro ejemplo utilizando un módulo de clase

Este otro proyecto utiliza una simple clase que tiene dos métodos : LeerTxt y LeerExcel , y se conecta mediante Ado y los controladores "Microsoft Text Driver" y "Microsoft Excel Driver" respectivamente, para retornar en cada función, un objeto ADODB.Recordset que al ejecutarlo luego se asigna al DataSource para poder visualizar los registros en un Datagrid control

Form

Descargar módulo de clase

Recursos vb.net - Enlaces relacionados

Leer Excel y visualizarlo en un DataGridview

Recursos vb6 - Enlaces relacionados

Microsoft excel object library

Buscar en Recursos vb