Pregunta para Luis
Hola Luis, estoy tratando de hacer una macro que me guarde en pdf con el nombre de la celda a1, pero que me salga el dialogo donde la guardo, algo asi, pero no meda. La idea es que ya salga el nombre del archivo en el dialogo, es solo buscar la carpeta
Mil gracias por su apoyo
Sub Macro1() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Application.GetSaveAsFilename = Range("A1").Value _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False End Sub
1 respuesta
Te mando mi solución con esta macro:
Sub ejemplo()
'por luismondelo
On Error GoTo salida
nombre = Range("a1").Value
Set navegador = CreateObject("shell.application")
carpeta = navegador.browseforfolder(0, "SELECCIONE CARPETA DESTINO", 0, equipo).items.Item.Path
carpeta = carpeta & "\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=carpeta & nombre
Exit Sub
salida:
End Subrecuerda finalizar la consulta
Hola Luis, mil gracias, pero no es posible que salga mis documentos directamente
mil gracias
Claro, solo tienes que sustituir la palabra equipo (que está dentro de la macro) por el path completo de mis documentos.
