Jesús o Irene (el que sea), lo tuyo un espectáculo. Anduvo de diez. El único cambio que tuve
que hacer fue

en lugar de:
Trim(objMiLibro.Application.Workbooks(1).Worksheets("Hoja1").Cells(2, 4).Value)
poner
Trim(objMiLibro.Application.Worksheets("Hoja1").Cells(2, 4).Value)

Anda muy bien. Además, noté que tus ejemplos son más claros (y concisos) que los que escribe
el submental que tienen en Microsoft escribiendo las ayudas. Muchas gracias, y espero poder
tirarte una mano alguna vez. Hasta luego.

Santiago
bazerque@intercom.com.ar

Buenas Compañer@:

Como utilizar la hoja de Excel.

'Se declaran varibles
Dim objMiLibro as Object 'Variable para instanciar un objeto Excel
Dim strMiVar as string 'Variable para almacenar el contenido de la celda

'Se crea una instancia del objeto. MiLibro.xls es una hoja de Excel
Set objMiLibro = CreateObject("Excel.Sheet")
Set objMiLibro = GetObject("C:\MiLibro.XLS")

'Se lee la celda fila 2, columna4 del hoja Hoja1
strMiVar = Trim(objMiLibro.Application.Workbooks(1).Worksheets("Hoja1").Cells(2, 4).Value)

'Más lecturas u otras instrucciones
...........
..........
..........
...........
'Se cierra la instancia del objeto
set Documento = Nothing


Espero que esto te sirva. Un saludo
Jesús Mª Rodilla Lara
donosti@sicsa.es

Israel Ortega Cuevas escribió:
>
> Que tal Listeros:
>
> Alguien conoce como puedo acceder a una hoja de excel y leer el contenido
> de cada celda.
'Primero referenciar Excel [Project - References - Excel]

Dim xl as New Excel.Application
Dim xlw as Workbook
Dim xlSheet as Sheet
Dim ValorCelda

Set xlw = Workbooks.Add()
Set xlSheet = xlw.Sheets(1)
ValorCelda = xlSheets.Range("A1").FormulaR1C1

>
> Saben si es necesario que en el equipo este instalado Excel.
Y.... si

> Muchas gracias y reciban saludos desde Mexico D.F.

Retribuidos desde B.A.

Adrian