Visual Basic - Problema VB - Excel

Life is soft - evento anual de software empresarial
   
Vista:

Problema VB - Excel

Publicado por Gabriela (2 intervenciones) el 30/03/2008 03:10:32
Hola, amigos.
Tengo un problema que no puedo solucionar.

Dim xlApp As excel.Application
Dim xlLibro As excel.Workbook
Dim xlHoja As excel.Worksheet
Dim vM As Variant
Dim UFila As Long
UFila = 1
Dim varMatriz As Variant
Dim lngUltimaFila As Long
Set xlApp = New excel.Application
Set xlLibro = xlApp.Workbooks.Open(B, True, True, , "")
Set xlLibro = xlApp.Workbooks.Open(B, True, True, , "")
Set xlHoja = xlApp.Worksheets(A)
lngUltimaFila = Columns("A:T").Range("A65536:T65536").End(xlUp).Row + 2
varMatriz = xlHoja.Range(Cells(10, 1), Cells(lngUltimaFila, 24))

Estoy abriendo un documento de excel que está guardado en la variable "B", la hoja está guardada en la variable "A", ocurré que los datos son cargados en una Grilla corréctamente, pero esto sólo ocurré una vez, la segunda vez arroja el error 1004, he leido la documentación de microsoft para este error, pero no me queda claro lo que proponen ahí.

La aplicación esta tomando un máximo rango que no es fijo por eso busco el fín del archivo de esa forma, en résumen, es una hoja con partidas de compras, por eso es variable en su cantidad de filas, el margen de columnas es fijo.
Podría hacerlo recorriendo todo el documento línea a línea pero esto incrementa demasiado el tiempo de carga.

Esperando respuesta.
Saludos y muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Problema VB - Excel

Publicado por lolo (4 intervenciones) el 30/03/2008 11:22:02
y porqué no cargas la hoja en un recordset y de éste a la grilla?

así ni siquiera tendrías que abrir el libro, ni preocuparte por el número de filas ni de columnas.

y es como mil veces más rápido que ir leyendo cada dato de la hoja.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar