............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

GUARDAR COMO Y DONDE: Archivo desde excel a pdf

Ir abajo

GUARDAR COMO Y DONDE: Archivo desde excel a pdf

Mensaje por 6luishao6 el Mar Mar 06, 2018 6:45 pm

Buenas como puedo modificar este codigo para que me guarde pero antes de eso me salga la opcion de guardarlo en un lugar especifico o poder cambiar el nombre, asi como si le diera GUARDAR COMO, en Word.
Sub Imprimir()
resultado = MsgBox("¿Estás seguro que deseas imprimir el archivo.?", vbOKCancel, "Hola")
If resultado = vbOK Then
MsgBox "Procediendo con la impresión del archivo. . .", vbExclamation, "Registro Pedagógico v5.2"
ruta = CreateObject("WScript.Shell").Specialfolders("Desktop") & "\"
nombre = WorksheetFunction.Text(Now(), "dd-mmm-yyyy-O-hh-mm-ss")
MsgBox "El archivo impreso, se guardó en el: ((ESCRITORIO))", vbExclamation, "Hola"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ruta & nombre, OpenAfterPublish:=1
Else
MsgBox "Haz cancelado la impresión del archivo.", vbExclamation, "Hola"
End If
End Sub
Gracias. .

6luishao6

Masculino Cantidad de envíos : 32
Edad : 30
Ciudad - Pais : venezuela
Version de Excel : 2007 - 2010
Fecha de inscripción : 18/04/2015

Volver arriba Ir abajo

Re: GUARDAR COMO Y DONDE: Archivo desde excel a pdf

Mensaje por moises melgar el Miér Mar 07, 2018 4:59 am

Buenas noches
uso como fuente:
[Tienes que estar registrado y conectado para ver este vínculo]

Espero sea esto lo que buscas, macro que abre la ventana de "guardar como" configurada para archivos PDF y guarda el archivo como PDF en la ruta elegida
Código:
Sub guardar_PDF()
Dim Archivopdf As String
Archivopdf = Application.GetSaveAsFilename(InitialFileName:="Escribe aqui el nombre de tu PDF", FileFilter:="Archivo PDF,*.pdf", Title:="Guardar como PDF")
If Archivopdf = "Falso" Then
    Exit Sub
    Else:
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Archivopdf, OpenAfterPublish:=False '1
    End If
End Sub

cuando ejecutas el codigo, fijate que las partes que subrayo aparecen en la ventana para guardar
Archivopdf = Application.GetSaveAsFilename(InitialFileName:="Escribe aqui el nombre de tu PDF", FileFilter:="Archivo PDF,*.pdf", Title:="Guardar como PDF")

Application.GetSaveAsFilename solo devuelve la ruta del archivo que generas, este valor esta representado por "Archivopdf" y por medio de If Archivopdf = "Falso" Then.... decides las acciones a realizar cuando presionas guardar o cancelar  
codigo con comentarios para visualizar lo antes comentado:
le quite la linea ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Archivopdf, OpenAfterPublish:=False para que no se ande creando el archivo cada vez que lo pruebas
Código:
Sub guardar_PDF_con_notas()
Dim Archivopdf As String
Archivopdf = Application.GetSaveAsFilename(InitialFileName:="Escribe aqui el nombre de tu PDF", FileFilter:="Archivo PDF,*.pdf", Title:="Guardar como PDF")
If Archivopdf = "Falso" Then '< --- esto es si le da cancelar sale del codigo

'(zona donde programas acciones al darle cancelar en la ventana de guardado) desde esta parte hasta antes del Exit Sub
MsgBox "Hola, soy un ejemplo de programar una accion al presionar Cancelar"

Exit Sub ' <------Termina zona donde programas acciones al cancelar guardar en la ventana)
Else:

'(zona donde programas acciones al darle guardar en la ventana de guardado) desde esta parte hasta antes del End if
MsgBox "La ruta elegida es: " & vbNewLine & Archivopdf & vbNewLine & "se escribe en celda A1" 'aparece la ruta elegida y nombre para crear el archivo
Range("A1").Value = Archivopdf 'la ruta elegida y nombre para crear el archivo se escribe en la celda A1
MsgBox "Hola, soy un ejemplo de mensaje para confirmar que presionaste ""guardar"", pero este ejemplo no tiene la linea de codigo de guardado, por lo que el archivo no se crea"

End If ' <------Termina zona donde programas acciones al darle guardar en la ventana)
End Sub

recordemos que estos codigos tambien se pueden ejecutar por botones o con alguna acción programada
adjunto ejemplo
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 572
Edad : 29
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.