Macro para guardar archivos de excel en formato PDF
Necesito crear una macro que me guarde una hoja específica de un archivo de Excel en dos archivos nuevos independientes, uno en excel y otro en PDF, y que ambos archivos se guarden en la misma carpeta donde se encuentra el archivo origen. Los nombres de los archivos nuevos deberían ser el contenido de la celda R1.
Ejemplo: Archivo de excel con dos hojas: Hoja1 y Hoja2, guardado en carpeta Escritorio. La Hoja2 es la que necesito guardar en dos archivos independientes y que lleven por título el contenido de la celda R1 de la Hoja2. Ambos archivos guardarlos en carpeta escritorio.
2 respuestas
Te anexo la macro
'Por Dante Amor
' Guardar hoja2 como excel y pdf
'
Application.ScreenUpdating = False
Set h2 = Sheets("Hoja2")
ruta = ThisWorkbook.Path & "\"
arch = h2.Range("R1").Value
'
h2.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ruta & arch & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
h2.Copy
ActiveWorkbook.SaveAs Filename:=ruta & arch & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close
MsgBox "Archivos creados"
End SubNota: Si en la celda R1 tienes una fecha, entonces cambia esta línea:
arch = h2.Range("R1").ValuePor esta:
arch = format(h2.Range("R1").Value, "dd-mm-yyyy")'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda
Estos ejemplos aportarán algo más a lo ya dicho
https://www.programarexcel.com/2013/05/crea-carpetas-y-guarda-archivo-con.html