¿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

Respuesta
1

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.

Respuesta
1

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