ExcelのVBAディレクトリ（）のデフォルトパスは？

Question

Dir（）を使用して、現在のディレクトリ（つまり、使用しているブックと同じディレクトリ）にファイルが存在するかどうかを調べる練習を行っています。コード与えられた - と明らかにビデオの例で作業が - このようなものです：私はこのコードを実行すると

IsThere = (Dir("SomeFile.xlsx") <> "") 

、IsThereはFalseを返します。私が使用して、それを回避することができます。

IsThere = (Dir(ActiveWorkbook.Path & "\SomeFile.xlsx") <> "") 

が、私は予想通りdirは現在のディレクトリにデフォルトでは見ていない理由を知りたいです。

私はこれに関する適切なアドバイスを見つけるのに苦労しています。私がDir（）を使う方法の例のほとんどは、指定されたファイルパスを持っているので、私の問題で本当に光るものではありません。私が見つけた最も近いと言うthis (obsolete) MSDN reference次のとおりです。

が正しく実行するには、Dir関数は、FileIOPermissionの読み取りとPathDiscoveryフラグが実行コードに付与することが必要です。

トラブルがあり、私は本当にthisは、おそらく私の問題に最も近い、StackOverflowのためとして1

にPathDiscoveryを設定する方法についてはそこにリンクされアドバイスを理解していない - これは、指定を使用していますが、ネットワークの場所を参照しているではなく、です。 の回答〜this questionは、Dir（）が期待通りの方法で動作するはずです（完全な指定パスではなく単純なファイル名で動作するはずです）。

Answer 1

これは、ホストアプリケーションがディレクトリであると考えるものとは関係ありません。あなたはいつもCurDir関数を呼び出すことによって、どのディレクトリDirをデフォルトになります見つけることができます。

Debug.Print CurDir$ 

あなたはそれを変更する必要がある場合は、ChDirを呼び出す：コマンドプロンプトで座ってのような、それの

Debug.Print CurDir$ 
Debug.Print Dir$("*.*") 
ChDir "C:\" 
Debug.Print CurDir$ 
Debug.Print Dir$("*.*") 

だと思うがdirまたはcdと入力すると、まったく同じことが実行されます。現在のディレクトリは、マクロ実行の間の状態を保持しているため、デフォルトの場所に依存することはできません。

開いているワークブックに相対的なパスが必要な場合は、デフォルトパスに相対的なパスが必要な場合はWorkbook.Pathを、使用する場合はApplication.Pathを使用します。ファイルの存在をテストする必要がある場合は、Dirをまったく使用しないでください。代わりにScripting.FileSystemObjectを使用してください。レガシーファイルの機能を非難されたものとして考え始めるなら、あなたは大きな好意を持っています。

Answer 2

デフォルト設定を確認するには、[Excelオプション] - > [保存] - > [デフォルトファイルの場所]を確認します。ファイルが保存されている場所は、デフォルトでは使用されません。