Programación General > Visual Basic 6.0 e inferiores

 Ayuda Con Excel Urgente

(1/1)

raist:
Tengo que consultar datos de una hoja de excel y tras buscar en varios sitios he probado de la siguiente forma:

Dim mixl As Object

Set mixl = GetObject("f:\tarifa\Tarifas Serviempresa 2005.xls")
mixl.application.Visible = True
mixl.Parent.windows(1).Visible = True
Set mixl = GetObject("f:\tarifa\Tarifas Serviempresa 2005.xls")
lista_catalogo.List(1) = mixl.Worksheets(1).Range("I" & 4320).Value

Esto es para para extraer el dato de la celda I4320 (existe en mi hoja) de la hoja 1 y me da el error 381 (el indice de la matriz de propiedades no es valido).

Tambien he probado cambiando la ultima linea por la siguiente:

lista_catalogo.List(1) = mixl.Worksheets(1).Cells(4320, "I").Value

y me da el mismo error. ¿Como puedo resolver este error?
¿Podria extraer los datos median odbc con sonsultas sql?
Ayuda por favor, urge.

Muchas gracias de antemano.

shakka:
Que tal


--- Citar ---lista_catalogo.List(1) = mixl.Worksheets(1).Range("I" & 4320).Value
--- Fin de la cita ---
estas concatenado un valor numerico con una cadena

prueba con:


--- Citar ---lista_catalogo.List(1) = mixl.Worksheets(1).Range("I" & "4320").Value
--- Fin de la cita ---

si el valor como 4320 lo tienes en una variable entones lo conviertes a string


--- Citar ---lista_catalogo.List(1) = mixl.Worksheets(1).Range("I" & CStr(nValorNumerico)).Value
--- Fin de la cita ---

Saludos

Navegación

[0] Índice de Mensajes