Leer Excel con visual basic (vb6)

agosto 18, 2011 · By VideoTutoriales

Un proyecto que me ha salido y no tenía más que hacerle un tratamiento a un excel, como no conozco bien la programación desde las macros, me puse manos a la obra utilizando vb6 que es lo que conozco, así que lo primero era abrir el fichero y buscar la manera de leerlo, el código que encontré es el siguiente, ya está solucionado un error 1004 que me daba, así que os dejo el código funcional y sin errores.

Private Sub LeerExcel()

‘dimensiones
Dim xlApp As Excel.Application
Dim xlLibro As Excel.Workbook
Dim xlHoja As Excel.Worksheet
Dim varMatriz As Variant
Dim lngUltimaFila As Long

‘abrir programa Excel
Set xlApp = New Excel.Application
‘xl.Visible = True

‘abrir el archivo Excel
‘(archivo en la misma carpeta)
Set xlLibro = xlApp.Workbooks.Open(App.Path & “\prueba.xls”, True, True, , “”)
Set xlHoja = xlApp.Worksheets(“Hoja1″)

’1. Si conoces el rango a leer
‘varMatriz = xlHoja.Range(“A1:C10″).Value

’2. Si no conoces el rango
lngUltimaFila = _
Columns(“A:A”).Range(“A65536″).End(xlUp).Row

varMatriz = xlHoja.Range(xlHoja.Cells(1, 1), xlHoja.Cells(lngUltimaFila, 10))

‘utilizamos los datos…
txtLlamadas.Text = varMatriz(10, 3)

‘cerramos el archivo Excel
xlLibro.Close SaveChanges:=False
xlApp.Quit

‘reset variables de los objetos
Set xlHoja = Nothing
Set xlLibro = Nothing
Set xlApp = Nothing

End Sub

Solo tendreis que llamar a la función “leerexcel” desde donde querais, recordar que en varMatriz se está declarando la dimensión de esta, es decir, varMatriz = xlHoja.Range(xlHoja.Cells(1, 1), xlHoja.Cells(lngUltimaFila, 10)), le estamos diciendo que la dimensión va desde la celda 1,1 hasta la [ultima], 10.

Luego para tomar valores simplemente utilizar el acceso a tablas como se muestra txtLlamadas.Text = varMatriz(10, 3), este ejemplo devuelve la fila 10, columna 3.

Si teneis alguna duda, solo comentadlo