Macro que guarda en excel y luego en PDF con error
Tengo una macro que primero debe guardar el libro en formato excel en la misma ubicación donde se encuentre el archivo y el nombre es una celda especifica y después ejecuta otra que guarda el archivo en PDF en la ubicación donde esta el archivo y el nombre es una celda especifica también, pero al ejecutarse el nombre del Excel sale como "FALSE" y el del PDF si sabe bien .
Dejo el VBa aqui
Sub Guardar()
ActiveWorkbook.SaveAs Filename:= _
nombre = Cells(8, 4).Value
RutaArchivo = ThisWorkbook.Path & "\" & Range("A2") & ".xlsm"
'Asigno nombre Fila columna, fila 2 columna d
nombre = Cells(8, 4).Value
RutaArchivo = ThisWorkbook.Path & "\" & Range("A2") & ".pdf"
'ruta = Cells(2, 9).Value
'permite colocar en las celdas donde quiero guardarlo
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ruta & nombre, Quality:= _
xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
Su alguien me puede ayudar
Te anexo la macro actualizada, solamente ajusta las celdas específicas para el nombre de excel y ara el nombre del pdf en estas líneas en la macro:
nom_xls = Range("A2") & ".xlsm" 'celda para el nombre del archivo xlxm
nom_pdf = Range("D8") & ".pdf" 'celda para el nombre del archivo dfLa macro actualizada:
Sub Guardar()
'Act.Por.Dante Amor
ruta = ThisWorkbook.Path & "\"
nom_xls = Range("A2") & ".xlsm" 'celda para el nombre del archivo xlxm
nom_pdf = Range("D8") & ".pdf" 'celda para el nombre del archivo df
'Guardar una copia como xlsm
ActiveWorkbook.SaveCopyAs Filename:=ruta & nom_xls
'Guardar como pdf
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ruta & nom_pdf, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
MsgBox "Archivos guardados", vbInformation
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
¡Muchas Gracias! .... Llevaba casi toda la tarde tratando de arreglarla ...
funciono Perfectamente ...
Seguiré consultándote
Patty
Hola,
Quise colocarle la fecha a tu macro actualizada, y le agregue el "DATE", para que la guarde también con la fecha los nombre, pero me dice que no encuentra la ruta para guardarla
Sub Guardar()
'Act.Por.Dante Amor
ruta = ThisWorkbook.Path & "\"
nom_xls = Range("D8") & Date & ".xlsm" 'celda para el nombre del archivo xlxm
nom_pdf = Range("D8") & Date &".pdf" 'celda para el nombre del archivo df
'Guardar una copia como xlsm
ActiveWorkbook.SaveCopyAs Filename:=ruta & nom_xls
'Guardar como pdf
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ruta & nom_pdf, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
MsgBox "Archivos guardados", vbInformation
End Sub
¿Me podrías por favor ayudar a identificar el error?
No puedes guardar un archivo donde el nombre contenga el caracter / Lo que se hace es cambiar la diagonal por un guión,
Cambia las líneas por estas
nom_xls = Range("D8") & Format(Date, "dd-mm-yyyy") & ".xlsm" 'celda para el nombre del archivo xlxm
nom_pdf = Range("D8") & Format(Date, "dd-mm-yyyy") & ".pdf" 'celda para el nombre del archivo dfsal u dos
