error 1004 error en el metodo range del objeto worksheet – Vb6 - Tutoriales y Videotutoriales en www.vertutoriales.com
 
 
Diseño de páginas web en Córdoba. Visitanos! Taller de Chapa y Pintura en Córdoba. Hnos Troncha Cartuchos reciclados en Córdoba Joyería y Platería en Córdoba - La Joya de Plata ForoHTML5 canvas Comprar este espacio por 5/mes Recetas de cocina rica y sana Comprar este espacio por 5/mes

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

agosto 18, 2011 · By VideoTutoriales

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!

Más video tutoriales para que aprendas...

1 Respuesta

  1. Leer Excel con visual basic (vb6) - Tutoriales y Videotutoriales en www.vertutoriales.com

    agosto 18th, 2011 a 8:11 am

    1

    [...] 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 [...]


Insertar al RSS los comentarios de esta entrada

Escribe tu comentario





«
»