Menu Obtener datos Externos

28/09/2005 - 22:48 por marcelo | Informe spam
Amigos, quisiera conocer mas detallles de como utilizar la opcion obtener
datos externos, ya sea por consulta web o por bases de datos, ya que necesito
consolidar diariamente 15 a 20 archivos de excel en uno solo, y quisiera
buscar la forma rapida de hacerlo.

Gracias

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
29/09/2005 - 01:31 | Informe spam
hola, marcelo !

Mostrar la cita
1) a que te refieres -exactamente- con 'consolidar' ?
a) un resumen unico con la 'acumulacion' por conceptos de cada libro 'consolidable' ?
b) todos los libros 'juntos' en una sola hoja de un libro 'maestro' ?
c) cada libro en hojas separadas pero en un mismo libo 'maestro' ?
d) cuantas hojas tiene cada libro a 'consolidar' ?

2) algunas -posibles- opciones pudieran ser...
a) macros que hagan la tarea
b) [menu] datos / consolidar...
c) usar tablas dinamicas consolidando rangos multiples
d) ... ???

si comentas detalles adicionales ;)
saludos,
hector.
#2 marcelo
29/09/2005 - 22:31 | Informe spam
Gracias, deseo unir los archivos en uno solo, los archivos en estructura,
columnas y formatos son iguales, la diferencia es el numero de filas que
viene en cada uno, quiero alguna forma automatica para unirlos, la macro no
me sirve mucho ya que siempre son nombres diferentes de archivos,
seria
todos los libros 'juntos' en una sola hoja de un libro 'maestro' y cada
libro tiene 1 hoja
Los nombres de los libros siempre son diferentes
Como puedo hacer


"Héctor Miguel" escribió:

Mostrar la cita
#3 Héctor Miguel
30/09/2005 - 00:22 | Informe spam
hola, marcelo !

Mostrar la cita
[yo creo que] 'precisamente' es una macro la que te puede 'sacar de apuros'... SI...
-> pones -todos- los libros 'a copiar/unir/...' ->en una misma carpeta<- y...
-> ejecutas una macro +/- como la siguiente...

si cualquier duda [o informacion adicional]... comentas?
saludos,
hector.
en un modulo de codigo 'normal' del que va a ser el 'libro maestro' ==Sub UnirVariosLibros()
Dim EstaCarpeta As String
EstaCarpeta = "c:uta y\sub-carpeta donde estan\los documentos\"
With Application.FileSearch
.NewSearch
.LookIn = EstaCarpeta
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
If .Execute() > 0 Then
Application.ScreenUpdating = False
For Sig = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(Sig)
With ThisWorkbook.Worksheets(1).Range("a65536").End(xlUp).Offset(2)
.Value = "De: " & ActiveWorkbook.Name & " ..."
Activesheet.UsedRange.Copy .Offset(1)
End With
Next
Else: MsgBox "No existen documentos en " & EstaCarpeta
End If
End With
End Sub
Ads by Google
Search Busqueda sugerida