エクセルの最も有利な使い方の一つ ブイビーエー 今回は、Excelを使って、パソコンにファイルが存在するかどうかを確認する方法を紹介します。 ブイビーエー .

ファイルが存在するかどうかを確認するVBAコード（クイックビュー）

 Sub Check_If_a_File_Exists() File_Name = "E:\ExcelWIKI</Book1.xlsm" File_Name = Dir(File_Name) If File_Name = "" Then MsgBox "The file doesn't exist." Else MsgBox "The file exists." End If End Sub 

練習用ワークブックをダウンロードする

この練習用ワークブックをダウンロードして、この記事を読みながらエクササイズしてください。

ファイルが存在するかどうかを確認するVBAコードの概要（ステップバイステップ分析）

では、早速ですが、本日の本論に入ります。 を分解してみます。 ブイビーエー のコードをステップ・バイ・ステップで、私たちのコンピュータにファイルが存在するかどうかを確認する方法を学びます。

⦹ ステップ1：必要なインプットを挿入する

このコードの最初に、必要な入力を挿入する必要があります。 このコードで必要な入力は1つだけで、それは探しているファイルの名前です。 完全なファイル名（関連するディレクトリも一緒に）を挿入してください。

 File_Name = "C:\ExcelWIKIBook1.xlsm" 

⧪ ステップ2：VBAのDir関数でファイル名を抽出する

次に、小技を使います。 ブイビーエー ディール機能 でファイル名を展開します。 そのようなファイルが存在しない場合は ディール機能 はヌル文字列を返します。

 File_Name = Dir(File_Name) 

⧪ ステップ3：If ブロックでファイルが存在するかどうか確認する

これは最も重要なステップです。 先ほど、与えられた名前のファイルが存在しない場合、Dir関数はヌル文字列を返すことを説明しました。 このプロパティを、Dir関数の中で使用します。 イフブロック で、ファイルが存在するかどうかを確認します。

 If File_Name = "" Then MsgBox "The file doesn't exist." Else MsgBox "The file exists." End If 

だから、コンプリート ブイビーエー のコードになります。

⧭ VBAのコードです。

 Sub Check_If_a_File_Exists() File_Name = "E:\ExcelWIKI</Book1.xlsm" File_Name = Dir(File_Name) If File_Name = "" Then MsgBox "The file doesn't exist." Else MsgBox "The file exists." End If End Sub 

⧭ 出力します。

コードを実行すると、私のコンピュータでは、メッセージボックスが表示されます。 "ファイルが存在します" というのも、私のマシンには実際に存在しているからです。

お使いのマシンでは、ファイルが存在するかどうかによって、出力が異なる場合があります。

続きを読む Excel VBA：シートが存在するかどうかを確認する（2つの簡単な方法）

Excel VBAでファイル範囲の有無を確認するマクロを開発する

ここでは、Excelワークシートのデータセットに、ファイル名とディレクトリの範囲を指定しています。 B4:B8 .

私たちが目指すのは、次のようなMacroを開発することです。 存在する／存在しない は、コンピュータ上に存在するかどうかを確認した後、それぞれを横に並べてください。

⧪ ステップ1：VBAウィンドウを開く

プレス ALT + F11 をキーボードで入力すると ビジュアルベーシック ウィンドウに表示されます。

⦹ ステップ2：新しいモジュールを挿入する

次のページへ 挿入モジュール をクリックします。 モジュール という新しいモジュールが追加されました。 モジュール1 (過去の履歴によっては、他のもの)が開きます。

⦹ ステップ3：VBAのコードを配置する

これが最も重要なステップです。 以下を挿入してください。 ブイビーエー のコードをモジュールに追加します。

⧭ VBAのコードです。

 Sub Check_If_a_Range_of_File_Exist() Set Rng = ActiveSheet.Range("B4:B8") For i = 1 To Rng.Rows.Count File_Name = Dir(Rng.Cells(i, 1)) If File_Name = ""Then Rng.Cells(i, 2) = "Don't Exist" Else Rng.Cells(i, 2) = "Exists" End If Next i End Sub 

⧪ ステップ5: コードの実行

をクリックします。 Run Sub / UserForm ツールは、上のツールバーから選択します。

コードが実行され、次のようになります。 "存在する" は存在するファイルに対して、そして "Doesn't Exist" は、存在しないファイルに対して

続きを読む Excelで範囲内に値が存在するかどうかを確認する方法（8つの方法）

結論

そのため、このようなプロセスで開発 マクロ をクリックすると、Excelから添付ファイル付きのメールを送信できます。 ご質問がありましたら、お気軽にお問い合わせください。 エクセルウィキ をご覧ください。