Ｏｆｆｉｃｅ３６５、Ｅｘｃｅｌ：ＶＢＡのＤｉｒ関数でエラーが発生する時の対処方法

Ｏｆｆｉｃｅ３６５は、表計算ソフト、ワープロソフト、プレゼンテーションソフト、データベースソフト等が
入っているオフィスソフトです。これをインストールして置けば、家庭や仕事で多くの事が出来る様になります。

しかし、ＶＢＡのＤｉｒ関数でエラーが発生しました。使用したパソコンは、下記のソフトを使用していました。

ＯＳ　　　　　　　：　Ｗｉｎｄｏｗｓ１０（６４ｂｉｔ）バージョン21H1（ＯＳビルド 19043.1023）
オフィスソフト　　：　Ｅｘｃｅｌ　ｆｏｒ　Ｍｉｃｒｏｓｏｆｔ　３６５　ＭＳＯ（16.0.14026.20202）
　　　　　　　　　　　６４ｂｉｔ

以下、Ｏｆｆｉｃｅ３６５、Ｅｘｃｅｌ：ＶＢＡのＤｉｒ関数でエラーが発生する時の対処方法を記載して行き
ます。

（項目１）
　・ＶＢＡでＤｉｒ（ファイル名）とすると、エラーが発生する事が有ります。
　・検索するファイル名によっては、エラーになる場合がある様です。

（項目２）
　・そこで、ファイル名によってエラーが発生しないマクロを検討しました。
　・結果、変数にファイル名を設定し、Ｄｉｒ（変数）とする方法としました。

（項目３）
　・変更前
　　Sub test1()

　　　　Dim buf As String

　　　　buf = Dir("D:\tips244.xlsm")

　　　　If buf = "" Then
　　　　　　MsgBox ("ファイルが無いです！")
　　　　Else
　　　　　　MsgBox (buf)
　　　　End If

　　End Sub

　・変更後
　　Sub test2()

　　　　Dim buf As String
　　　　Dim myFile As String

　　　　myFile = "D:\tips244.xlsm"
　　　　buf = Dir(myFile)

　　　　If buf = "" Then
　　　　　　MsgBox ("ファイルが無いです！")
　　　　Else
　　　　　　MsgBox (buf)
　　　　End If

　　End Sub

（項目４）
　・以上で、Ｏｆｆｉｃｅ３６５、Ｅｘｃｅｌ：ＶＢＡのＤｉｒ関数でエラーが発生する時の対処方法は終了
　　です。