Despúes de mandar datos de excel a un formulario de PDF, ¿Cómo puedo hacer que me habra el explorador para guardar 1 copia PDF?

Encontre una macro que dejo "Dante Amor" para poder enviar datos de una hoja de excel a un formulario de PDF, y funciona de maravilla, la pregunta ahora es, ¿Se puede que en lugar de que gusrde los datos en el formulario original, me habra una ventana del explorador para poder guardar una copia y deje el original intacto para poder usarlo con nuevos datos?, en caso de que se pueda, ¿qué macro necesito usar?

1 Respuesta

Respuesta
1

H o l a:

Supongo que tienes esta macro, al final le agregué unas instrucciones para que te abra el explorardor y puedas guardar el archivo en otra carpeta y con otro nombre.

Sub PasarDatosaPdf()
'Por.Dante Amor
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Set h2 = Sheets("Hoja2") 'contador
    '
    celdas = Array("A2", "B2", "C2", "D2", "E2", "F2", "G2")
    '
    ruta = "C:\Documents and Settings\DAMOR\Mis documentos\Formatos\"
    nomb = "carta"
    ActiveWorkbook.FollowHyperlink ruta & nomb & ".pdf"
    '
    Application.Wait Now + TimeValue("00:00:03")
    For i = LBound(celdas) To UBound(celdas)
        DoEvents
        SendKeys "{TAB}", True
        DoEvents
        h2.Range(celdas(i)).Copy
        DoEvents
        SendKeys "^v", True
        DoEvents
    Next
    '
    SendKeys "%aop", True
    DoEvents
    Application.Wait Now + TimeValue("00:00:03")
    Application.ScreenUpdating = True
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas