............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Ayuda con varios archivos

Ver el tema anterior Ver el tema siguiente Ir abajo

Ayuda con varios archivos

Mensaje por wini4751 el Vie Oct 30, 2009 7:01 am

Estimado amigos:
Soy nuevo en esto, lo que tengo es lo siguiente, varios archivos generados en excel de los cuales necesito extraer datos y colocarlos en una planilla para generar un informe. Ej.

Archivo1, Archivo2, Archivo3, de cada uno de ellos necesito extrar el dato que se encuentra alojado en A6, A8, C9,D6
y colocarlos en una planilla.
Desde ya muchas gracias.

wini4751

Masculino Cantidad de envíos : 6
Edad : 40
Ciudad - Pais : Argentina
Version de Excel : 2007
Fecha de inscripción : 30/10/2009

Volver arriba Ir abajo

Re: Ayuda con varios archivos

Mensaje por GalileoGali el Vie Oct 30, 2009 9:02 pm

tu pregunta puede tener mas de uan respuesta y todo depende de la variabilidad de los datos: Supongamos que

a)me basta con cierta permanencia es decir los valores en Archivo1,2 y 3, pueden variar pero no hace falta ningun registro historico sino solo mostarlos en tu Archivo Resumen. Para este caso alcanza con Referencias externas. Estas son relativamente faciles.
Abres primero todos los archivos. Para cada celda del archivo resumen colocas "=" (sin comillas) y luego haces click yendo al Archivo fuente en la celda cuyo valor pretendes trasladar, luego confirmas con enter, y asi con cada celda de cada archivo

si esto no fuera lo que te sirve, antes de escribir las opciones b) o tal vez c), aclara más lo que quieres y veremos qué hacer....

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Ayuda con varios archivos

Mensaje por wini4751 el Sáb Oct 31, 2009 7:44 am

Antes que nada muchas gracias por responder.
En realidad esta opcion es la que tengo en la actualidad, pero requiero algo mas elavorado ya que la cantidad de archivos es de aprox. 2000 y la tarea se vuelve algo incomoda por la cantidad.
Tal como mencione anteriormete los archivos estan contenidos dentro de una plantilla por lo tanto la referencia a las seldas para cada uno es la misma, lo que necesito es ver si se puede de alguna forma automatizar la extraccion de los datos.
Gracias por responder con tanta celeridad.
Ricardo

wini4751

Masculino Cantidad de envíos : 6
Edad : 40
Ciudad - Pais : Argentina
Version de Excel : 2007
Fecha de inscripción : 30/10/2009

Volver arriba Ir abajo

Re: Ayuda con varios archivos

Mensaje por jairga el Sáb Oct 31, 2009 10:04 am

Se puede con macros, y un botoncito en tu archivo resumen pero como tu mismo dices es más elaborado pero creo podrias buscar en san google algo como: extraer dato con macro sin abrir archivo. Bueno algo así.

Si puedo te ayudo, no te prometo nada no quiero quedar mal

Saludos

jairga
Moderador
Moderador

Masculino Cantidad de envíos : 163
Edad : 40
Ciudad - Pais : Cartagena-Barranquilla(Colombia)
Version de Excel : XP-2003-2007
Fecha de inscripción : 11/03/2008

Volver arriba Ir abajo

Re: Ayuda con varios archivos

Mensaje por wini4751 el Sáb Oct 31, 2009 10:29 am

Ok muchas gracias.

wini4751

Masculino Cantidad de envíos : 6
Edad : 40
Ciudad - Pais : Argentina
Version de Excel : 2007
Fecha de inscripción : 30/10/2009

Volver arriba Ir abajo

Re: Ayuda con varios archivos

Mensaje por GalileoGali el Sáb Oct 31, 2009 11:31 am

Escribi algunas lineas de codigo:
Código:
Option Explicit

Sub probar()
Dim dato1 As Variant
Dim strOrigen As String
strOrigen = Dir(ThisWorkbook.Path & "\*.xls")
Do While strOrigen <> ""
If strOrigen <> ThisWorkbook.Name Then
strOrigen = "'" & ThisWorkbook.Path & "\[" & strOrigen & "]Datos'!r2c4"
dato1 = Application.ExecuteExcel4Macro(strOrigen)
End If
strOrigen = Dir
Loop

End Sub

Hay que terminar la carga de los datos en la planilla resumen, pero para esto hay que saber VBA


Última edición por GalileoGali el Sáb Oct 31, 2009 11:44 am, editado 1 vez

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Ayuda con varios archivos

Mensaje por wini4751 el Sáb Oct 31, 2009 11:42 am

Ok, lo voy a probar, gracias

wini4751

Masculino Cantidad de envíos : 6
Edad : 40
Ciudad - Pais : Argentina
Version de Excel : 2007
Fecha de inscripción : 30/10/2009

Volver arriba Ir abajo

Re: Ayuda con varios archivos

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.