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

1 Respuesta

807.075 pts. Excel avanzado y VBA

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 Sub

recuerda 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.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas