Excel VBA изменить каталог по умолчанию для Application.GetOpenFilename

Question

У меня есть googled и нашел ответы на часть моего вопроса, но не на полный вопрос. Я хочу использовать Application.GetOpenFilename в Excel VBA, чтобы открыть файл, и я хочу, чтобы он открывался в том же каталоге, что и ThisWorkbook.Path. Я обнаружил, что заранее я могу сделать

OpenPath = ThisWorkbook.Path 
ChDrive OpenPath 
ChDir OpenPath 

Но, после того, что работает, если я бегу любой другой Application.GetOpenFilename он все равно будет доступ в тот же каталог (до тех пор, возможно, я не закрою Excel ???). Но я хочу, чтобы он вернулся к директории по умолчанию (независимо от того, что это было). На моем компьютере, который является Windows XP, это MyDocuments. Но некоторые из тех, кто использует это, могут иметь XP, а некоторые из них могут иметь Windows 7. Я не могу найти нигде, как выяснить, что такое исходный каталог по умолчанию, чтобы я мог хранить его, чтобы впоследствии я мог вернуться к умолчанию , Любая помощь приветствуется.

Answer 1

Таким образом, это может быть решение:

Dim StartingDir as string 
    StartingDir = CurDir 

'...your code here 

ChDir StartingDir 'just before you leave 

И если это необходимо сделать то же с Drive.

Answer 2

это может быть то, что вы хотите

dim sStarDir as string 
sStarDir=curDir 
... do all you stuff 
' now reset! 
Application.DefaultFilePath=sStarDir 

Филипп