Excel VBA 更改 Application.GetOpenFilename 的默认目录

Question

我用谷歌搜索并找到了部分问题的答案，但不是完整的问题。我想在 Excel VBA 中使用 Application.GetOpenFilename 打开一个文件，我希望它在与 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 进行类似操作.