Necesito convertir hoja de excel a pdf y guardar según valor de una celda en mis documento.
He intentado algunas soluciones que dais a otros usuarios pero no me funcionan.
Sub guardar_pdf()
Dim folia As String
Worksheets("Factura CAT").Range ("B1:F43")
Selection.ExportAsFixedFormat Type:=xlTypePDF,_
Filename:="C:\"Range("E4") & Range("C9").Value
End Sub
1 Respuesta
Gracias por tu rapidez, pero no funciona. Me dice que:
Worksheets("Factura CAT").Range ("B1:F43")
"se ha producido el error 438" ... el objeto no admite esta propiedad o método
Antes de guardar el archivo con un valor de celda, vamos a intentar guardarlo con un nombre fijo.
¿Sabes cómo grabar una macro?
Selecciona del menú: Herramientas / macro / Grabar nueva macro . En la siguiente ventana presiona Aceptar
En este momento ya se está grabando la macro, ahora, realiza los pasos para convertir la hoja en excel a pdf y guardar la hoja.
Ahora, vamos a detener la macro, Selecciona del menú: Herramientas / macro / Detener grabación.
Para ver el código que se generó entra a VBa, presiona Alt + F11, debes tener un nuevo módulo, presiona doble click en el módulo nuevo y verás el código.
Copia ese código y pégalo en esta pregunta, para adaptarle las celdas que quieres.
Gracias por tu ayuda, por fin he conseguido la macro que convierta mi hoja excel en pdf, pero siempre me lo guarda en Mis documentos y no consigo que lo haga en la capeta de destino llamada FACTURACIÓN. Mi macro actual es:
Sub Macro1() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Range("E4").Value & "_" & Range("C9").Value, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True End Sub
Puedes ayudarme?
¿Qué tienes en E4 y que tienes en C9?
Saludos. Dam
En E4 tengo el número de factura y en C9 el nombre del cliente.
Tienes que poner la ruta donde quieres guardar el archivo, si no pones una ruta, te guarda el archivo en una carpeta por default.
Entonces podrías poner algo así:
Sub Macro1()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\FACTURACIÓN\" & Range("E4").Value & "_" & Range("C9").Value, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Pero tienes que poner la ruta completa donde quieres guardar el archivo, EJEMPLO:
“C:\Documents and Settings\DATOS\Mis documentos\docs\FACTURACION\”
Revisa que al final de la línea lleve la diagonal \
Saludos. Dam
Buen dia, perdon por abrir un post antiguo, pero tu macro me sirve de maravilla, lo unico es que cuando me guarda el excel a pdf, abre el cuadro de guardar y tengo que darle un nombre al archivo, le doy el nombre y me guarda 2 archivos pdf, yo quiero que lo guarde sin abrir el cuadro de guardar como, adjunto la macro que tengoSub guardar_pdf()'' guardar_pdf Macro'ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _Filename:="C:\Users\Nelson Valencia\Dropbox\Vatti SR (1)\Servicio tecnico\Guias Internas Tecnicos\" & Range("C6").Value & "_" & Range("F2").Value, Quality:=xlQualityStandard, _IncludeDocProperties:=True, IgnorePrintAreas:=FalseEnd Subme podrias ayudar por favor - Nelson Valencia
ni mi macro ni tu macro abre el cuadro "de guardar" ni tampoco guarda 2 archivos. Será que tienes otra macro? - Dante Amor
En el libro tengo varias macros, pero ninguna macro es para guardar en pdf, antes de incorporar esta macro, jamas me abrió ese cuadro de dialogo, ¿te puedo enviar el libro completo? - Nelson Valencia
Prueba la macro en un archivo nuevo con una sola hoja - Dante Amor
Estimado, no se que paso, pero ahora funciona perfecto, lo más probable es que haya sido un problema de usuario, de todas maneras te agradezco mucho tu ayuda. - Nelson Valencia