Microsoft Excelでは、VBAコードを使用して、ファイルが特定の場所に存在するかどうかを確認できます。マクロはステータスをメッセージボックスの形式で表示します。この記事では、VBAコードを使用して、特定のファイルのステータスが存在するかどうかを識別します。 Dir関数を使用して、ExcelVBAを使用してファイルが場所に存在するかどうかを確認できます。

このプログラムを使用して、同じ場所にすでに存在するファイルがあるかどうかを確認できます。そのため、古いファイルを削除または名前変更できます。

===

質問：タスクを自動化するマクロを作成するときは、通常、出力ファイルをある場所に保存します。確認するマクロが欲しいのですが、その見返りに、ファイルが特定のパスで使用可能かどうかを示します。

この例を説明するために、「Sample.xlsx」ファイルをパス「D：\ FolderName \ Sample.xlsx」に保存します

image 1

ワークブックが存在するかどうかを確認するには、以下の手順に従ってVBエディターを起動する必要があります。

[開発者]タブをクリックし、[コード]グループから[VisualBasic]を選択します

image 2

image 3

===

[挿入]、[モジュール]の順にクリックします。これにより、新しいモジュールが作成されます。*標準モジュールに次のコードを入力します

Sub FileExists()

Dim FilePath As String

Dim TestStr As String

FilePath = "D:\FolderName\Sample.xlsx"

TestStr = ""

On Error Resume Next

TestStr = Dir(FilePath)

On Error GoTo 0

If TestStr = "" Then

MsgBox "File doesn't exist"

Else

Workbooks.Open "D:\FolderName\Sample.xlsx"

End If

End Sub

image 4

  • これで、マクロの実行がすべて設定されました。F5ショートカットキーを使用して、「サンプル」ファイルを開きます

image 5

  • 事前定義されたパスでファイルが利用できない場合、次のメッセージボックスが表示されます

私たちのブログが気に入ったら、Facebookで友達と共有してください。また、TwitterやFacebookでフォローすることもできます。

_私たちはあなたからの連絡をお待ちしております。私たちの仕事を改善、補完、または革新し、あなたのためにそれをより良くする方法を教えてください。 [email protected]_までご連絡ください