Como exportar Archivo de excel a pdf con macros

Estoy necesitando guardar un archivo de excel 2010 en formato pdf usando el nombre de una celta especifica (en esta caso "G6") en un carpeta especifica en dropbox. Alguien me puede ayudar con el paso a paso.

Respuesta
1

Te anexo la macro, cambia en la macro esto:

"C:\trabajo\varios\"

Por el nombre de tu carpeta donde tienes asignado tu DropBox

Sub CrearPdf()
'Por.Dante Amor
'
    ruta = "C:\trabajo\varios\"
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=ruta & [G6] & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

Si en la celda G6 tienes una fecha, entonces utiliza esta macro

Sub CrearPdf()
'Por.Dante Amor
'
    ruta = "C:\trabajo\varios\"
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=ruta & Format([G6], "dd-mm-yyyy") & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

Sigue las Instrucciones para un botón y ejecutar la macro

  1. Abre tu libro de Excel
  2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
  3. En el menú elige Insertar / Módulo
  4. En el panel del lado derecho copia la macro
  5. Ahora para crear un botón, puedes hacer lo siguiente:
  6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
  7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
  8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
  9. Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: CrearPdf
  10. Aceptar.
  11. Para ejecutarla dale click a la imagen.

Saludos. Dante Amor

Recuerda valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas