Macro para guardar archivo en cualquier pc
Dentro de una macro tengo la siguiente instruccioon
ChDir "C:\Users\marce\Desktop\Planillas de pedidos"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\marce\Desktop\Planillas de pedidos\Fayser Adm.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Lo que yo necesito es hacer que la ubicación de guardado sea variable ya que se utiliza desde varias pcs
es decir que esta parte "C:\Users\marce\Desktop\Planillas de pedidos" deberia variar segun el usuario o pc.
2 Respuestas
Respuesta de Dante Amor
4
Aquí otra macro a considerar:
Sub GuardarArchivo()
Dim carpeta As String
Dim arch As String
'
carpeta = Environ("USERPROFILE") & "\Desktop\Planillas de pedidos\"
arch = "Fayser Adm.xlsm"
'
ActiveWorkbook.SaveAs Filename:=carpeta & arch, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
Respuesta de Poli Plos
2
Puede probar algo así:
Dim sPath As String
sPath = CreateObject("WScript.Shell").specialfolders("Desktop") & "\Fayser Adm.xlsm"
ActiveWorkbook.SaveAs Filename:= _
sPath, FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False