SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: raist en Miércoles 2 de Noviembre de 2005, 11:48

Título: Ayuda Con Excel Urgente
Publicado por: raist en Miércoles 2 de Noviembre de 2005, 11:48

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.

Título: Re: Ayuda Con Excel Urgente
Publicado por: shakka en Miércoles 2 de Noviembre de 2005, 19:46

Que tal

Citar

lista_catalogo.List(1) = mixl.Worksheets(1).Range("I" & 4320).Value

estas concatenado un valor numerico con una cadena

prueba con:

Citar

lista_catalogo.List(1) = mixl.Worksheets(1).Range("I" & "4320").Value

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

Saludos