Macro para enviar a pdf todos los archivos de excel
Necesito una macro para enviar a pdf todos los archivos de excel que están en una carpeta, pero solamente enviar el rango de celdas de A1 a F30. El nombre del archivo pdf será igual nombre del archivo de excel.
Avísame si tienes dudas.
1 Respuesta
Respuesta de Dante Amor
3
Te anexo la macro, pon el archivo de excel con la macro en la misma carpeta con los demás archivos de excel que quieres enviar a pdf.
Sub ImprimirPdfs()
'Por.Dante Amor
Application.ScreenUpdating = False
ruta = ThisWorkbook.Path & "\"
arch = Dir(ruta & "*.xls*")
Do While arch <> ""
If arch <> ThisWorkbook.Name Then
p = InStrRev(arch, ".")
apdf = Left(arch, p - 1)
Workbooks.Open ruta & arch
Range("A1:F30").ExportAsFixedFormat _
Type:=xlTypePDF, Filename:=ruta & apdf & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
ActiveWorkbook.Close False
End If
arch = Dir()
Loop
End SubS a l u d o s . D a n t e A m o r
Recuerda valorar la respuesta.
