Macro para crear archivo PDF con fecha en el titulo?
amigos expertos buenas tardes necesito poder crear un archivo pdf de mi hoja actual en excel, ya poseo el siguiente código
Sub PDF() ' ' PDF Macro ' ChDir "C:\SCADA-EXCEL\Informes-PDF" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\SCADA-EXCEL\Informes-PDF\Sacsi-Scada.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False End Sub
pero al usar este macro, el nuevo archivo que se crea sobreescribe el anterior y no puedo llevar un historial de archivos, existe forma de poder crear un archivo pdf y que el titulo de este tenga la fecha para que asi nunca se sobrescriba,,, no me sirve crear con secuencia de 1, 2, 3 y asi pues deshabilite la opción de guardar el archivo y si se cierra y vuelve a abrir la cuenta seguramente se reiniciara y sobrescribiera, la solución creo es con la fecha.
gracias por su tiempo
1 respuesta
El nombre del archivo se puede 'armar' con una cadena con las partes fijas y variables.. Por ej:
cadena = "C:\SCADA-EXCEL\Informes-PDF\" & format(Now,"ddmmyy") & "_Sacsi-Scada.pdf"
Y luego en el argumento Filename de la instrucción quedaría
Filename:= cadena, .... y todo lo demás.
Nota: dale el formato que prefieras a la fecha, solo contempla que sea con separadores aptos para un nombre de archivo.
hola elsa muchísimas gracias, me funciono de maravila, solo me toco poner en separador de la hora - pues no me acepto :
muchas gracias por su rápida y acertada respuesta
