0

私はグーグルで質問の一部に対する回答を見つけましたが、完全な質問ではありません。Excel VBA で Application.GetOpenFilename を使用してファイルを開き、ThisWorkbook.Path と同じディレクトリで開きたいと考えています。私は事前に私ができることを発見しました

OpenPath = ThisWorkbook.Path
ChDrive OpenPath
ChDir OpenPath

しかし、それが実行された後、他の Application.GetOpenFilename を実行すると、同じディレクトリにアクセスします (おそらく Excel を閉じるまで???)。しかし、デフォルトのディレクトリに戻したいです（それが何であれ）。Windows XP である私のコンピューターでは、たまたま MyDocuments です。しかし、これを使用している人の中には、XP を使用している人もいれば、Windows 7 を使用している人もいるかもしれません。元のデフォルト ディレクトリが何であったかを把握する方法がどこにも見つからないので、これを保存して、後でデフォルトに戻すことができます。 . どんな助けでも大歓迎です。

4

5 に答える 5

6

したがって、これは解決策になる可能性があります：

Dim StartingDir as string
    StartingDir = CurDir

'...your code here

ChDir StartingDir    'just before you leave

必要に応じて、 で同様の操作を行いDriveます。

于 2013-03-28T14:53:03.597 に答える
1

これはあなたが望むものかもしれません

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

フィリップ

于 2013-03-28T15:04:49.700 に答える