Loopear por una carpeta, exportar como PDF ciertas hojas de workbooks y nombrar archivo PDF en función de un nombre variable.
Para Dante Amor.
La idea es recorrer una carpeta, y solamente convertir a PDF las hojas 2 a la 5 de los archivos Excel que están allí, considerando:
- El Pagesetup, ajustar al ancho de la hoja, horizontal
- El nombre del archivo PDF sacará su valor de la celda A1 de cada libro.
Con otras preguntas que te estuve haciendo, voy por este camino:
Sub export_PDF_Test() Application.ScreenUpdating = False Application.DisplayAlerts = False ruta = ThisWorkbook.Path & “\” archivo = Dir(ruta & “*.xlsx”) RutaCompleta = ruta & archivo Do While archivo “” Set l2 = Workbooks.Open(RutaCompleta) l2.Sheets(Array(2, 3, 4, 5)).Select *** code: to export as PDF (exportasfixedformat) *** ??? l2.Close True archivo = Dir() Loop
