Aprende a guardar, grabar y salvar un archivo o un libro de excel en PDF con la fecha de hoy o actual de manera automática con macros.
Se debe tener presente que la macro la puedes descargar pero tiene los datos predeterminados de la ruta que se guardo por tal motivo es muy importante identificar estos parámetros como se explica en el video.
¿Como guardar un fichero o archivo de excel en formato PDF con la fecha actual?
En la parte inferior del articulo se encuentra en enlace para la descarga de la macro pero sugiero que revise el video para que aprendas a utilizar la macro.
Importante que para utilizar la macro debemos de tener habilitados el menú de programador o desarrollador dependiendo de la versión de excel que tengas. En este CORTO VIDEO te explico como lo puedes HABILITAR
Se debe tener presente varios ítems
- Se debe asignar la celda donde vamos a utilizar la fecha Hoy
- Modificar la ruta de la macro por la personal
- El archivo se guardará el nombre con la fecha actual
Después de que tengas habilitado las macros debemos de insertar un botón en la siguiente ruta.
En la barra Menú buscamos la pestaña Desarrollador o Programador y en el icono insertar buscamos la opción de insertar un boton.
y arrastramos con el mouse el tamaño como queremos el botón.
El botón le podemos cambiar el nombre presionando clic en el texto y lo cambiamos por el nombre que desees en el ejemplo se coloco Guardar.
Luego nos ubicamos en el botón y presionamos clic derecho asignar macro y ahí le podemos asignar un nombre a la macro y le decimos nuevo
Luego copiamos la macro que se encuentra al final de este articulo.
Macro para guardar un archivo de excel en PDF con la fecha Actual.
La macro consiste en lo siguiente
Nombramos la variable para el primer nombre, el segundo nombre y la ruta como texto
Dim nombre As String, Ruta As String, nombre2 As String
Le asignamos para la variable ruta la dirección donde queremos guardar el archivo, aquí colocamos la ruta personalizada
Ruta = "C:\Users\juandavid\Desktop\Ejercicio"
Es la celda donde vamos a utilizar la función HOY, se coloca la celda que queremos utilizar
Range("E3").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Copia la celda y la pega en formato especial valores, cambiar la celda si es el caso
Range("E3").Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Se debe cambiar la celda de la fecha si es necesario.
a = Range("E3")
ActiveCell.FormulaR1C1 = "'" & a 'Activa el formato como texto la fecha
'Buscar / y reeemplazar por -
Cells.Replace What:="/", Replacement:="-", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Se coloca la celda donde esta el nombre para el archivo y guardamos el arhivo.
nombre = Range("E3").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ruta & "\" & nombre & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Al presionar clic en el botón el archivo de excel se convierte en PDF y con el nombre de una celda.
Seguramente quieres sabes más acerca de Excel, no te olvides darte una vuelta por las siguientes secciones disponibles para ti de manera gratuita:
Canal de YouTube
Comunidad Telegram
Instagram: Aprende y Enseña Excel
Facebook: Aprende Excel Fácil
Twitter: Aprende y Enseña Excel
Hasta una próxima y te deseo el mayor de los EXITOS.
