error 1004 error en el metodo range del objeto worksheet – Vb6

Es posible que si habeis buscado una manera de leer un excel por internet, os hayais encontrado con un problema de este tipo, solo hay que darle el objeto para solucionarlo, os dejo el código para que veais el cambio:

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

Si quereis ver el código completo podeis verlo desde aquí:

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, 1))

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

‘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

Espero que os sirva! Un saludo!

Te puede interesar:

Un comentario

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *