Filtrar Datos con macros

On 21 feb, 19:48, "Héctor Miguel"
wrote:

hola, ???

> ... funciona... la idea... es tener "n" archivos *.xls los cuales su contenido con formato identico.
> 18 posiciones o campos son copiados o consolidados a un libro o un archivo unico
> Como vez yo debo direccionar y dar nombre de los archivos...1 2 100 .xls para que realice el "proceso"
> Luego de realizar esto vendría el famoso filtro pero aun estoy pegado con el abrir y copiar los datos de los *.xls [...]

con los datos 'talco...mo' los expones, lo unico que necesitas es meter tu macro dentro de un bucle For...Next +/- como sigue:

Dim n As Byte
ChDir "u:\"
For n = 1 to 100
Workbooks.OpenText Filename:="u:\" & n & ".xls", Origin:“2, StartRow:=1, _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
Tab:=True, Semicolon:=True, Comma:=False, Space:=False, _
Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), _
Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), _
Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1)), _
TrailingMinusNumbers:=True
Cells.Select
Selection.Copy
Windows("libro1").Activate
ActiveSheet.Paste
Sheets("hoja" & n).Select
Windows(n & ".xls").Activate
ActiveWindow.Close
Next

[probablemente] saldran 'detalles' segun cambien las condicones 'reales' versos las exposiciones en las consutas -?-
si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Super bueno Hector Gracias.!!! pero la duda que me queda ens que
no siempre el archivo será numerico es decir puede que sea 1dic, 2ene,
etc. la verdad no tiene un formato especifico puede venir
numerico o con caracteres


y en ese caso el for no funciona !!

hola, ?????????

... la duda que me queda ens que no siempre el archivo sera numerico es decir puede que sea 1dic, 2ene, etc...
... la verdad no tiene un formato especifico... puede venir numerico o con caracteres...
y en ese caso el for no funciona !

segun el ultimo 'comentario' de la propuesta anterior...

[probablemente] saldran 'detalles' segun cambien las condicones 'reales' versos las exposiciones en las consutas -?-

ya 'empiezan' a salir los 'detalles' que se habian quedado 'en el tintero' :))

op1: puedes utilizar una variable de matriz para 'meter' ahi los nombres de los 'n' archivos [p.e.]
Dim Archivos As Variant, n As Byte
Archivos = Array("1dic", "2ene", "etc")
For n = Lbound(Archivos) To Ubound(Archivos)
Workbooks.OpenText Filename:="u:\" & Archivos(n) & ".xls" ' aqui va el resto de tu OpenText y las instrucciones faltantes :)) '
Next

op2: podrias encontrar algun 'patron' en los nombres de los archivos y 'recortar' una -posible- lista laarrgga para el Array(...)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.