thisworkbook.path een map omhoog

[Fredemel]

Kun je ThisWorkbook.Path absoluut aanpassen?
Ik wil ThisWorkbook.Path een map "omhoog " brengen en houden.

Dit geprobeerd, maar het path gaat "terug" naar zijn basis-instelling

    Set fso = CreateObject("Scripting.FileSystemObject")
    MsgBox fso.GetFolder(ThisWorkbook.Path & "\..").Path

Na zo'n 3 uur gezocht te hebben met "meneer" google wil ik toch graag hulp.

Bvd

 

[spaarie]

Zo wellicht?

Set fso = CreateObject("Scripting.FileSystemObject")
p = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\"))
MsgBox fso.GetFolder(p).Path

 

[Fredemel]

Nee helaas,

msgbox ThisWorkbook.Path blijft bij "de oude".
Ik zoek hoe ik ThisWorkbook.Path kan aanpassen.
Als ik in mijn doc "opslaan als" toepas naar een ANDERE MAP, en ik wil dan IN excel "ctrl-O"(open bestand)
doen "zit" ik in de map waar ik het doc heb opgeslagen. En dat wil ik aanpassen naar de map die ik wil.

 

[spaarie]

Probeer dit eens

p = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\"))
Application.GetSaveAsFilename(p)

 

[snb]

Sub M_snb()
  MsgBox CreateObject("Scripting.FileSystemObject").GetParentFolderName(ThisWorkbook.FullName)
End Sub

Staat gewoon in de object browser (F2) van de scripting bibliotheek op je eigen computer.

 

[edmoor]

Het attribuut Thisworkbook.Path kan je niet vanuit VBA direct wijzigen omdat het een "Alleen lezen" attribuut is. De enige manier is inderdaad het opslaan van het document, zoals spaarie al liet zien.