¿Se puede configurar Macro que exporta datos a PDF y que funciona solo en una PC por la ruta de guardar?

Al realizar una macro que exporte datos de una hoja de excel a PDF, definiendo el nombre y la ruta, solo funciona en mi PC, lo cual obviamente es por la ruta de guardar que está en disco C de mi computador, la consulta es si se puede realizar una macro o si se puede configurar ésta para que se realice en cualquier otra PC sin presentar el error por no encontrar la ruta y de no estar modificando la ruta en el código.
Les copio mi código:

Ans = MsgBox("¿Desea generar el Reporte en PDF?", vbYesNo, "Aviso")
If Ans = vbNo Then
Exit Sub

End If

If Ans = vbYes Then

Application.ScreenUpdating = False

Sheets("Reporte").Visible = True

Sheets("Reporte").Select

Range("A1:K54").Select

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

"C:\Users\PC01\Downloads\" & Range("K1") & " " & Format(Range("J1"), "dd-mm-yyyy") & ".pdf", Quality:= _

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

From:=1, To:=1, OpenAfterPublish:=True

End If

2

2 Respuestas

1.350 pts. Gracias señor por no ser lo que antes era!!!

Te comento si es un archivo que lo compartes, instalas etc cada vez hay un usuario nuevo entonces mi lógica debería ser:

Existe en esta PC la carpeta C/......?

Sino existe creala.

Si existe solo guarda el archivo

Partiendo de todo esto creamos una rutina primordial:

Sub CrearCarpeta()
MkDir "C:\Carpeta Prueba\"
End Sub

Y luego en el botón  de guardar tu archivo agregale estas líneas...

Sub GuardarArchivo()
Ruta = "C:\Carpeta Prueba\"
x = Dir(Ruta, vbDirectory)
If x = "" Then
CrearCarpeta
Else
'Tu rutina
'.
'.
'.
'.
'.
'.
'.
'.

End If
End Sub

Me comentas.

303.350 pts. https://youtube.com/programarexcel...

Es posible te ayuden estos ejemplos

http://www.programarexcel.com/2013/05/crea-carpetas-y-guarda-archivo-con.html 

https://youtu.be/JhRwXdyLVIE en este ejemplo se crea el pdf fijate en ello 

https://youtu.be/mEHN5ayH6fU 

https://youtu.be/HO0Lz7A0T0Y Puedes usar el escritorio de windows para guardar archivos 

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas