Compartir a través de

EXPORTAR EXCEL A PDF CON MARCOS (VBA)

Anónimas
2022-07-28T21:12:03+00:00

Hola, quiero saber como es el código para hacer que mi archivo de Excel se exporte con la ruta que yo elija y lo mas importante, que se exporte con el mismo nombre que tiene el documento (esto con el fin de que, cuando haga una copia del mismo, se guarde con el nuevo nombre que le asigne)

Gracias :)

Microsoft 365 y Office | Excel | Para la casa | Windows

Pregunta bloqueada. Esta pregunta se migró desde la Comunidad de Soporte técnico de Microsoft. Puede votar si es útil, pero no puede agregar comentarios o respuestas ni seguir la pregunta.

0 comentarios

Respuesta aceptada por el autor de la pregunta

  1. Anónimas
    2022-07-29T14:08:26+00:00

    Observa que uno exporta la HOJA activa y este el LIBRO que se haya seleccionado previamente.

    2 personas han encontrado útil esta respuesta.
    0 comentarios

Respuesta aceptada por el autor de la pregunta

  1. Anónimas
    2022-07-29T12:56:42+00:00

    prueba esto

    Sub p() 

    Dim Fichero As FileDialog 

    Dim NombreFichero As String 

    Dim Libro As Workbook 

    Set Fichero = Application.FileDialog(msoFileDialogFilePicker) 

    With Fichero 

        .Title = "Elija un fichero" 

        .AllowMultiSelect = False 

        With .Filters 

            .Clear 

            .Add "Excel files", "*.xlsx", 1 

        End With 

        .Show 

        NombreFichero = .SelectedItems(1) 

    End With 

    Set Libro = Workbooks.Open(NombreFichero) 

    Libro.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Libro.Name 

    Libro.Close 

End Sub

    1 persona ha encontrado útil esta respuesta.
    0 comentarios

Respuesta aceptada por el autor de la pregunta

  1. Anónimas
    2022-07-28T21:52:53+00:00

    Esto guarda la hoja de activación como un pdf utilizando el nombre de la hoja para el nombre de archivo.

    Sub Test()
    strFilename = "E:" & ActiveSheet.Name 

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFilename, Quality:= \_ 

    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, \_ 

    OpenAfterPublish:=False

    End Sub

    Esta respuesta se ha traducido automáticamente. Como resultado, puede haber errores gramaticales o expresiones extrañas.

    1 persona ha encontrado útil esta respuesta.
    0 comentarios

2 respuestas adicionales

Ordenar por: Muy útil
Muy útil Más reciente Más antiguo
  1. Anónimas
    2022-07-29T13:46:34+00:00

    Tambien es muy útil, Gracias :)

    0 comentarios
  2. Anónimas
    2022-07-29T12:49:25+00:00

    Esto guarda la hoja de activación como un pdf utilizando el nombre de la hoja para el nombre de archivo.

    Sub Test()
    strFilename = "E:" & ActiveSheet.Name

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFilename, Quality:= _

    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

    OpenAfterPublish:=False

    End Sub

    Esta respuesta se ha traducido automáticamente. Como resultado, puede haber errores gramaticales o expresiones extrañas.

    Si me funciono. muchísimas gracias :D

    0 comentarios