¿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 Respuestas
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.
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/HO0Lz7A0T0Y Puedes usar el escritorio de windows para guardar archivos