Excel - Macro excel Guardar a PDF Ayuda

 
Vista:
sin imagen de perfil
Val: 21
Ha disminuido 1 puesto en Excel (en relación al último mes)
Gráfica de Excel

Macro excel Guardar a PDF Ayuda

Publicado por walter (8 intervenciones) el 15/05/2020 18:26:58
Hola Amigos me podrían ayudar y corregir en donde me equivoco, les cuento...quiero guardar automáticamente con un nombre distinto cada archivo, el nombre de cada archivo seria el que esta ubicado en la solapa Formulario celda B5, y guardar el rango B19 al D110 en formato pdf, les muestro lo que hice me da error y adjunto la macro, me ayudan a corregirlo, que debo poner para que lo guarde automáticamente cada vez que la ejecute..... Gracias

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub EXPORTARPDF()
'
' EXPORTARPDF Macro
'
 
'
    Ruta_PDF = "F:\DISCO C DESCARGAS\Documents\"
 Nombre_PDF = Worksheets("Formulario").Range("B5").Value
    Worksheets("Formulario").Range("B19;D110").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Ruta_PDF & Nombre_PDF, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 4.173
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Macro excel Guardar a PDF Ayuda

Publicado por Antoni Masana (1482 intervenciones) el 16/05/2020 09:12:02
Prueba esto:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub EXPORTARPDF()
'
' EXPORTARPDF Macro
'
 
'
    Ruta_PDF = "F:\DISCO C DESCARGAS\Documents\"
    Nombre_PDF = Worksheets("Formulario").Range("B5").Value
 
    Sheets("Formulario").Select
    Range("B9:D110").Select
 
    ActiveSheet.ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=Ruta_PDF & Nombre_PDF, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, _
                OpenAfterPublish:=False
End Sub

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 21
Ha disminuido 1 puesto en Excel (en relación al último mes)
Gráfica de Excel

Macro excel Guardar a PDF Ayuda

Publicado por walter (8 intervenciones) el 16/05/2020 17:01:28
Hola Amigo, me sale un error, te adjunto archivo con la imagen del error quizás podes corregirlo...…..

y me pone todo esto en amarillo

1
2
3
4
5
6
7
ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=Ruta_PDF & Nombre_PDF, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False


3.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana
Val: 4.173
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Macro excel Guardar a PDF Ayuda

Publicado por Antoni Masana (1482 intervenciones) el 16/05/2020 17:28:31
El código que he puesto es la opción de Guardar como y seleccionar el formato PDF.
El código lo he probado y funciona.
Puede que tengas una versión de Excel que no soporta esta opción. ¿Que versión tienes?
En las ultimas versiones, creo que partir de la 2010, soporta los formatos para libro con macros: .xlsm y .xlsb.
La extensión .xls es de la versión valida hasta la versión de Excel 2003 y esta no recuerdo que permitiese guardar en PDF.

Saludos.
\\//
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 21
Ha disminuido 1 puesto en Excel (en relación al último mes)
Gráfica de Excel

Macro excel Guardar a PDF Ayuda

Publicado por walter (8 intervenciones) el 16/05/2020 18:06:08
Hola Amigo, tengo el Office profesonal plus 2016, PERO AHI LO ABRI CON OTRA VERSION Y FUNCIONO PERFECTO, mil gracias por tu ayuda sos UN GENIO GRACIAS
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar