grabar archivo con una macro

Hola David, gracias por la ayuda.

Tengo una macro que genera un archivo plano (acrhivo prn). este archivo
debe tener como nombre la fecha actual es decir 16082007.txt , mañana el
nombre del archivo sera 17082007.txt y asi sucesivamente. te envio la macro,
gracias nuevamente

Range(Selection, Selection.End(xlDown)).Select
Range("A2:AF82").Select
ChDir "C:\bcr"
ActiveWorkbook.SaveAs Filename:="C:\bcrpt1.prn", FileFormat:= _
xlTextPrinter, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:="C:\bcr\formatosbcr.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False


"David" escribió:

Mostrar la cita

No entiendo cuál es tu duda en concreto.

Nos dices que ya tienes el macro que te genera el archivo plano =S... ¿tu
duda es por la fecha del sistema?

Tal vez si explicas un poco mas te podríamos ayudar en una forma más
directa, y evitamos presentar propuestas que tal vez no te sirvan.

Espero que amplíes...



"general" escribió:

> Hola Grupo
>
> Tengo una macro que genera un archivo plano, y debe grabarse con la fecha
> del sistema, x ejemplo 15082007.txt como lo hago a traves de una macro???
>
> gracias por la ayuda
> eog,
>
>

Perfecto.

Lo que necesitas, es simplemente detectar la fecha del sistema, y colocarlo
en una variable, luego, eso te permitiría definir el parámetro "Filename" en
tu código. Te propongo el cambio siguiente:

Range(Selection, Selection.End(xlDown)).Select
Dim XN as string
Range("A2:AF82").Select
ChDir "C:\bcr"
'Aquí calculo el path y el nombre del archivo
XN= "C:\bcr\" & format(date,"yyyymmdd") & ".txt"
ActiveWorkbook.SaveAs Filename:=XN, FileFormat:= _
xlTextPrinter, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:="C:\bcr\formatosbcr.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False

Pruébalo (mejor si es en una copia de tu archivo), y comentas si era lo que
esperabas.




"general" escribió:

Mostrar la cita

Hola David, gracias por la ayuda.

Tengo una macro que genera un archivo plano (acrhivo prn). este archivo
debe tener como nombre la fecha actual es decir 16082007.txt , mañana el
nombre del archivo sera 17082007.txt y asi sucesivamente. te envio la macro,
gracias nuevamente

Range(Selection, Selection.End(xlDown)).Select
Range("A2:AF82").Select
ChDir "C:\bcr"
ActiveWorkbook.SaveAs Filename:="C:\bcrpt1.prn", FileFormat:= _
xlTextPrinter, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:="C:\bcr\formatosbcr.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False


"David" escribió:

> No entiendo cuál es tu duda en concreto.
>
> Nos dices que ya tienes el macro que te genera el archivo plano =S... ¿tu
> duda es por la fecha del sistema?
>
> Tal vez si explicas un poco mas te podríamos ayudar en una forma más
> directa, y evitamos presentar propuestas que tal vez no te sirvan.
>
> Espero que amplíes...
>
>
>
> "general" escribió:
>
> > Hola Grupo
> >
> > Tengo una macro que genera un archivo plano, y debe grabarse con la fecha
> > del sistema, x ejemplo 15082007.txt como lo hago a traves de una macro???
> >
> > gracias por la ayuda
> > eog,
> >
> >

No entiendo cuál es tu duda en concreto.

Nos dices que ya tienes el macro que te genera el archivo plano =S... ¿tu
duda es por la fecha del sistema?

Tal vez si explicas un poco mas te podríamos ayudar en una forma más
directa, y evitamos presentar propuestas que tal vez no te sirvan.

Espero que amplíes...



"general" escribió:

Mostrar la cita

Hola Grupo

Tengo una macro que genera un archivo plano, y debe grabarse con la fecha
del sistema, x ejemplo 15082007.txt como lo hago a traves de una macro???

gracias por la ayuda
eog,