NOMBRE DE ARCHIVO DE CELDA

2 envíos / 0 nuevos
Último envío
ROBE_BNB
Imagen de ROBE_BNB
Offline
última acción: Hace 2 semanas 6 días
alta: 18/11/2018 - 18:35
Puntos: 25
NOMBRE DE ARCHIVO DE CELDA

Hola, soy nuevo en el foro espero me podáis ayudar.

La cuestión es que he creado una macro para que me exporte una hoja de calculo en formato pdf a una carpeta concreta y por mas que he visto, leído y probado no consigo que sirva.

No estoy muy puesto en excel, soy principiante, la macro la cree con el grabador.

Esta es la macro, la intención es que el archivo lleve el nombre de la celda c7 de la hoja2.

Sub PADRON_INDIVIDUAL()

'

Application.ScreenUpdating = False

 

' PADRON_INDIVIDUAL Macro

'

 

'

    Sheets("PADRON INDIVIDUAL").Select

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

        "C:\Users\Roberto\Desktop\datos\SOLICITUD PADRONES\DATOS1.pdf", Quality:= _

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

        OpenAfterPublish:=True

    Sheets("REGISTRO-BUSCAR").Select

    Range("H6").Select

    ActiveCell.FormulaR1C1 = ""

    Range("H8").Select

    ActiveCell.FormulaR1C1 = ""

    Range("H6").Select

   

    Application.ScreenUpdating = True

   

 

End Sub

 

FernandoML
Imagen de FernandoML
Offline
última acción: Hace 5 días 22 horas
alta: 01/02/2018 - 19:53
Puntos: 65
NOMBRE DE ARCHIVO DE CELDA


Hola Robe_Bnb:

Prueba con esta modificación y nos comentas si te ha funcionado.


Sub PADRON_INDIVIDUAL()

    Dim NombreArchivo As String     'NOMBRE DEL ARCHIVO PDF QUE LE VAMOS A PONER

    Dim RutaArchivo As String       'RUTA DONDE VAMOS A GUARDAR LOS ARCHIVOS QUE VAYAMOS CREANDO

    

    RutaArchivo = CreateObject("wscript.shell").specialfolders("desktop") & "\datos\SOLICITUD PADRONES\"

    NombreArchivo = Hoja2.Range("C7") & ".pdf"

    

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _

    Filename:=RutaArchivo & NombreArchivo, _

    Quality:=xlQualityStandard, _

    IncludeDocProperties:=True, _

    IgnorePrintAreas:=False, _

    OpenAfterPublish:=True

 End Sub


 
Espero te sirva
Un saludo
FernandoML