Necesito crear una macro que me guarde las hojas en pdf ...
y que se guarde en la misma dirección que el libro de excel (variable) y con el nombre del libro + el de la hoja; por favor necesito de su ayuda expertos.
Respuesta de Programar Excel
1
1 respuesta más de otro experto
Respuesta de Dante Amor
2
Te anexo una macro
Sub hojas_pdf() 'Por.Dante Amor ruta = ActiveWorkbook.Path & "\" l1 = InStrRev(ThisWorkbook.Name, ".") l2 = Left(ThisWorkbook.Name, l1 - 1) For Each h In Sheets h.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=l2 & " " & h.Name & ".pdf" Next End Sub
Saludos.Dante Amor
Si es lo que necesitas.
¡Gracias! me sirvió tu código, lo único que le modifique fue agregar la ruta (porque lo enviaba a documentos) y el orden del nombre del archivo y quedo genial.
Sub GuardarComoPDF()
'Por.Dante Amor
ruta = ActiveWorkbook.Path & "\"
l1 = InStrRev(ThisWorkbook.NAME, ".")
l2 = Left(ThisWorkbook.NAME, l1 - 1)
For Each h In Sheets
h.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ruta & h.NAME & " " & l2 & ".pdf"
Next
End Sub