Suma de Archivos

Prueba con el siguiente código, el cual tendrás que
adaptar a tus necesidades reales. Tal como está ahora
mismo, crearía un fichero llamado FicheroBatch.bat en el
directorio C:\ con la instrucción DOS necesaria para
la "agregación" de los ficheros. Otra posibilidad sería
usar la función Shell de VBA para ejecutar la instrucción
directamente desde Excel (con lo que te ahorrarías tener
que crear el fichero .bat), pero yo encuentro más seguro
hacerlo así.

Tendrás que modificarlo para que el .bat se guarde en la
ruta y con el nombre que desees.


Sub CrearBatch()
Dim dblFechaInicial As Double, dblFecha As Double
Dim strC As String
Dim intFich As Integer

dblFechaInicial = #9/1/2003# 'mes/día/año
dblFecha = dblFechaInicial
strC = "copy "

'Construir la instrucción MS DOS
While Month(dblFecha) = Month(dblFechaInicial)
If Weekday(dblFecha, vbMonday) <> 6 And _
Weekday(dblFecha, vbMonday) <> 7 Then _
strC = strC & "BCON1_" & Format
(dblFecha, "yyyymmdd") _
& "_196.DAT + "
dblFecha = dblFecha + 1
Wend

strC = Left(strC, Len(strC) - 2) + " FicheroDeSalida.DAT"

'Crear el fichero BATCH
intFich = FreeFile(0)
Open "C:\FicheroBatch.bat" For Output Access Write As
intFich
Print #intFich, strC
Close intFich
End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel

Alguien me podria a ayudar a hacer esta operacion un

poco mas facil ya que

me tardo demasiado en pegar en MSDOS (copy

BCON1_20030901_196.DAT +

BCON1_2003090_196.DAT Archivo Resultante)varios archivos

de cada uno de

los dias habiles de mes.

Ejemplo:

BCON1_20030901_196.DAT
BCON1_20030902_196.DAT
BCON1_20030903_196.DAT
BCON1_20030904_196.DAT
BCON1_20030905_196.DAT
BCON1_20030908_196.DAT
..y asi hasta terminar el mes, cada

vez que termina el

mes tengo que pegarlos, y asi crear un concentrado que

contenga la suma de

todos los archivos.

Alguien me podria ayudar ya que soy principiante en

visual basic.

Agradeciendoles por anticipado la ayuda que me puedan

proporcionar.

Mensaje enviado desde http://grupos.buscadoc.org

.

Te quiero agradecer muchisimo Fernando Arroyo funciono muy bien, ya que en
pegar estos archivos me tardaba unos 25 minutos.

Otra vez muchas gracias.

Saludos.






Mensaje enviado desde http://grupos.buscadoc.org