datos de muchos libros

hola, daniel !

Tengo un directorio con varios libros exel, en los cuales
en la hoja numero 1, celda E12 indica un producto y en la celda g62 indica el valor.
necesito que en un nuevo libro se vayan listando las variables de los libros.vale decir
Producto celda e12 valor g62 Nombre del libro
No se si se entiende pero estare atento a sus comentarios...

- cual es el nombre de la hoja numero 1 (=> en todos los libros <=) ?
- como (o de donde) se puede obtener la ruta donde estan los varios libros ?
- todos esos libros son versiones previas a la 2007 ? (por la EXTension *.xls o *.xls[x/b/m/...] ?)
- algun detalle en el tintero u observacion "especial" ?

saludos,
hector.

"Héctor Miguel" wrote:

hola, daniel !

> Tengo un directorio con varios libros exel, en los cuales
> en la hoja numero 1, celda E12 indica un producto y en la celda g62 indica el valor.
> necesito que en un nuevo libro se vayan listando las variables de los libros.vale decir
> Producto celda e12 valor g62 Nombre del libro
> No se si se entiende pero estare atento a sus comentarios...

- cual es el nombre de la hoja numero 1 (=> en todos los libros <=) ?
- como (o de donde) se puede obtener la ruta donde estan los varios libros ?
- todos esos libros son versiones previas a la 2007 ? (por la EXTension *.xls o *.xls[x/b/m/...] ?)
- algun detalle en el tintero u observacion "especial" ?

saludos,
hector.


.

Gracias por responder Hector Miguel.
Las hojas se llaman "presup" en todos los libros del fichero, los archivos
son de excel 2000 en adelante.
Con respecto a la ruta estan en c:\2009\enero\*.xls
te indico *.xls pues son todos los libros con didtinto nombre unos son
presup2021.xls otro ppto_25.xls etc.

hola, daniel !

Las hojas se llaman "presup" en todos los libros del fichero, los archivos son de excel 2000 en adelante.
Con respecto a la ruta estan en c:\2009\enero\*.xls
te indico *.xls pues son todos los libros con didtinto nombre unos son presup2021.xls otro ppto_25.xls etc.

ten preparada una hoja en blanco y ejecuta la siguiente macro (pero, ANTES...)

1) escribe en la celda [A1] la ruta donde estan los archivos (p.e. c:\2009\enero)

2) la macro "asume" que todos los libros (archivos *.xls) en ese directorio contienen una hoja llamada "presup"
si dicha hoja no existe en algun libro, obtendras el valor de error: #¡REF!

3) al final, la macro deposita los nombres de los archivos en la columna A, a partir de la fila 3
y en sus correspondientes filas, en la columna B el dato en su celda [E12] y en la columna C el dato de [G62]

=> revisa y analiza el codigo y cambia lo que sea necesario

saludos,
hector.

Sub Lista_Rescata()
Application.ScreenUpdating = False
Dim Hoja As String, Ruta As String, n As Byte, Celda As Range
Hoja = "presup"
Ruta = [a1]: Ruta = Ruta & IIf(Right(Ruta, 1) <> "\", "\", "")
Names.Add "Libros", "=files(""" & Ruta & "*.xls"")"
n = [counta(libros)]
[a2:c2].Value = Array("Libro", "E12", "G62")
[a3].Resize(n).Value = [transpose(libros)]
Names("libros").Delete
For Each Celda In Range([a3], [a65536].End(xlUp))
Celda.Offset(, 1) = ExecuteExcel4Macro("'" & _
Ruta & "[" & Celda.Text & "]" & Hoja & "'!" & _
Range("e12").Address(, , xlR1C1))
Celda.Offset(, 2) = ExecuteExcel4Macro("'" & _
Ruta & "[" & Celda.Text & "]" & Hoja & "'!" & _
Range("g62").Address(, , xlR1C1))
Next
End Sub

__ previos __

Tengo un directorio con varios libros exel, en los cuales
en la hoja numero 1, celda E12 indica un producto y en la celda g62 indica el valor.
necesito que en un nuevo libro se vayan listando las variables de los libros.vale decir
Producto celda e12 valor g62 Nombre del libro
No se si se entiende pero estare atento a sus comentarios...

- cual es el nombre de la hoja numero 1 (=> en todos los libros <=) ?
- como (o de donde) se puede obtener la ruta donde estan los varios libros ?
- todos esos libros son versiones previas a la 2007 ? (por la EXTension *.xls o *.xls[x/b/m/...] ?)
- algun detalle en el tintero u observacion "especial" ?

Ok.
Lo revisare y te cuento. Gracias por tu ayuda

"Héctor Miguel" wrote:

hola, daniel !

> Las hojas se llaman "presup" en todos los libros del fichero, los archivos son de excel 2000 en adelante.
> Con respecto a la ruta estan en c:\2009\enero\*.xls
> te indico *.xls pues son todos los libros con didtinto nombre unos son presup2021.xls otro ppto_25.xls etc.

ten preparada una hoja en blanco y ejecuta la siguiente macro (pero, ANTES...)

1) escribe en la celda [A1] la ruta donde estan los archivos (p.e. c:\2009\enero)

2) la macro "asume" que todos los libros (archivos *.xls) en ese directorio contienen una hoja llamada "presup"
si dicha hoja no existe en algun libro, obtendras el valor de error: #¡REF!

3) al final, la macro deposita los nombres de los archivos en la columna A, a partir de la fila 3
y en sus correspondientes filas, en la columna B el dato en su celda [E12] y en la columna C el dato de [G62]

=> revisa y analiza el codigo y cambia lo que sea necesario

saludos,
hector.

Sub Lista_Rescata()
Application.ScreenUpdating = False
Dim Hoja As String, Ruta As String, n As Byte, Celda As Range
Hoja = "presup"
Ruta = [a1]: Ruta = Ruta & IIf(Right(Ruta, 1) <> "\", "\", "")
Names.Add "Libros", "=files(""" & Ruta & "*.xls"")"
n = [counta(libros)]
[a2:c2].Value = Array("Libro", "E12", "G62")
[a3].Resize(n).Value = [transpose(libros)]
Names("libros").Delete
For Each Celda In Range([a3], [a65536].End(xlUp))
Celda.Offset(, 1) = ExecuteExcel4Macro("'" & _
Ruta & "[" & Celda.Text & "]" & Hoja & "'!" & _
Range("e12").Address(, , xlR1C1))
Celda.Offset(, 2) = ExecuteExcel4Macro("'" & _
Ruta & "[" & Celda.Text & "]" & Hoja & "'!" & _
Range("g62").Address(, , xlR1C1))
Next
End Sub

__ previos __
>>> Tengo un directorio con varios libros exel, en los cuales
>>> en la hoja numero 1, celda E12 indica un producto y en la celda g62 indica el valor.
>>> necesito que en un nuevo libro se vayan listando las variables de los libros.vale decir
>>> Producto celda e12 valor g62 Nombre del libro
>>> No se si se entiende pero estare atento a sus comentarios...
>>
>> - cual es el nombre de la hoja numero 1 (=> en todos los libros <=) ?
>> - como (o de donde) se puede obtener la ruta donde estan los varios libros ?
>> - todos esos libros son versiones previas a la 2007 ? (por la EXTension *.xls o *.xls[x/b/m/...] ?)
>> - algun detalle en el tintero u observacion "especial" ?


.