Macro para Generar pdf por cada archivo xlsx contenido en una carpeta
Se tiene una carpeta donde existen N archivos xlsx, se debe crear una macro que genere por cada xlsx su respectivo archivo PDF (en la misma carpeta). Ejemplo:
A.xlsx la macro debe generar su A.pdf
B.xlsx la macro debe generar su B.pdf y así sucesivamente
2 respuestas
Respuesta de Dante Amor
3
Te anexo la macro
Sub Generar_Pdf() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False ruta = "C:\trabajo\" If Dir(ruta, vbDirectory) = "" Then MsgBox "La carpeta no existe" Exit Sub End If ' On Error Resume Next arch = Dir(ruta & "*.xlsx") Do While arch <> "" Workbooks.Open ruta & arch nomb = Replace(arch, ".xlsx", "") ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ruta & nomb & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=False ActiveWorkbook.Close False arch = Dir() Loop MsgBox "Pdfs creados" End Sub
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
Respuesta de Programar Excel
Te paso un ejemplo para recorrer o listar los archivos de una carpeta y otra para generar pdf, adaptarlas con primera recorre cada uno de los archivos y con la segunda generas el pdf
https://youtu.be/PIfyRJrDrXo https://youtu.be/patMHGKQEHQ
Estos ejemplos si bien envían mail con archivo adjunto, perviamente genera y guarda un pdf utiliza esa parte de la macro.