• Domingo 22 de Diciembre de 2024, 23:20

Autor Tema:  Ayuda Con Excel Urgente  (Leído 889 veces)

raist

  • Nuevo Miembro
  • *
  • Mensajes: 3
    • Ver Perfil
Ayuda Con Excel Urgente
« en: Miércoles 2 de Noviembre de 2005, 11:48 »
0
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

  • Miembro HIPER activo
  • ****
  • Mensajes: 679
  • Nacionalidad: cr
    • Ver Perfil
    • http://mbrenes.com
Re: Ayuda Con Excel Urgente
« Respuesta #1 en: Miércoles 2 de Noviembre de 2005, 19:46 »
0
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