Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Descriminar archivos de Excel en un directorio

Estas en el tema de Descriminar archivos de Excel en un directorio en el foro de Visual Basic clásico en Foros del Web. Señores Tengo la siguiente situacion espero que puedan ayudarme, por cierto, soy nuevo en el foro. Tengo archivos en excel en una carpeta y necesito ...
  #1 (permalink)  
Antiguo 10/10/2011, 12:33
 
Fecha de Ingreso: octubre-2011
Mensajes: 1
Antigüedad: 8 años, 7 meses
Puntos: 0
Descriminar archivos de Excel en un directorio

Señores

Tengo la siguiente situacion espero que puedan ayudarme, por cierto, soy nuevo en el foro.

Tengo archivos en excel en una carpeta y necesito escribir un codigo que me permita hacer trabajar con archivos que estan en ka carpeta, si un archivo no se encuenrta en la carpeta el macro se detiene...

Otra interrogante es que los archivos tienen dos formatos distintos y la informacion que necesito extraer se encuentra en dos columnas diferentes y tienen un mismo encabezado, sin embargo, necesito direccionar que me identique cuando es uno y otro y que traiga la informacion que tiene el encabazado tal.

Este es el codigo para un solo archivo:

Application.ScreenUpdating = False
Range("D7:D225,F7:F225").Select
Selection.ClearContents
ChDir "E:\directorio "
Workbooks.Open Filename:="E:\DIRECTRIO\archivo que sera abierto"
Range("B747").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-744]C:R[-1]C)"
Range("B747").Select
Selection.Copy
Windows("archivo donde se llevara la informacion").Activate
Range("D9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("archi que sera carrado").Activate
ActiveWindow.Close False

Etiquetas: directorio, excel
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 09:45.