エクセルマクロで

エクセルマクロでファイルの有無を確認したくて
次のようなマクロを作りました。
Dim fso
Const Folder = "D:\AAA"
Const File = "*****.xlsx"

Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FileExists(Folder & "\" & File) = False Then
MsgBox "ファイルは存在しません"

ファイル名の*****部分に
Range("A1").Valueを使いたいのですがうまくいきません。
どのようになるのでしょうか。よろしくお願いします。

No.1 ベストアンサー 回答者： keithin 回答日時： 2014/05/16 00:45

＞Folder & "\" & File

ここまで出来てるんだからあと一歩。

sub macro1()
　dim myPath as string
　dim myFile as string
　mypaht = "D:\AAA\"
　myfile = ".xls"

　if dir(mypath & range("A1").value & myfile) = "" then
　　msgbox "NOT FOUND"
　end if
end sub

この回答へのお礼

早速のご回答ありがとうございます。
希望通りに進みました。
マクロをまだまだ勉強したいと思います。
特に変数の定義かなと思いました。

お礼日時：2014/05/16 10:44