Guardar archivo en pdf, cerrando excel sin guardar, con el nombre de una celda con fecha. Excel
He creado una hoja de calculo, en el trabajo, para introducir incidencias. Le he insertado un botón el cual cuando se pulsa guarda una copia de la hoja de calculo como pdf en la ruta asignada y como nombre el contenido de una celda. Esta celda esta concatenada con otras tres que incluyen: fecha, turno y nombre de operario. En la celda de la fecha esta se ve con el formato "aaaa-mm-dd" pero en la celda concatenada se ve con el formato estándar, así que incluyendo las otras celdas se ve "42772 Mañana Pepe".
¿Cómo podría hacer para que en la celda concatenada quedase "2017-02-06 Mañana Pepe"? ¿Qué formato debería poner o como debería hacerlo?
3 Respuestas
Esta genial la macro.
Si quieres en la celda concatenar puedes ponerla con formato texto y solo especificas el formato para la concatenación de la fecha.
=concatenar(TEXTO(A1,"AA/MM/DD"); A2; A3)
te paso enlace con todas las posibilidades de formato en la función TEXTO.
H o l a
Te paso la macro, cambia las celdas por el tuyo
Sub Guardarpdf()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Ruta = ThisWorkbook.Path & "\"
Fecha = [A1]
Turno = [A2]
Nombre = [A3]
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Ruta & Format(Range("A1"), "yyyy-mm-dd") & Turno & Nombre & ".pdf", _
quality:=xlQualityStandard, includedocproperties:=True, _
ignorePrintAreas:=False, openAfterPublish:=False
Application.ScreenUpdating = True
MsgBox "Se ha guardado la hoja en PDF", vbInformation
End SubValora mi contribución si Excelente o bueno saludos!
¡Gracias!
La macro esta genial, pero pedía algo como lo que ha contestado Antonio García, ya que la macro ya la tenia hecha, solo necesitaba que me escribiera bien la fecha con la función concatenar, de todos modos muchas gracias.
Antonio García diste en el clavo!
Este ejemplo
http://www.programarexcel.com/2015/04/macro-excel-envia-mail-adjuntando-pdf.html
En la parte del código que corresponde a lo que se ajusta a tu pregunta, se guarda como pdf y luego se cierra el libro sin guardar.
Workbooks. Add
Cells(1, 1). PasteSpecial xlPasteValues
Cells(1, 1). PasteSpecial xlPasteFormats
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
mydoc, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
ActiveWorkbook.Close False