中小企業の働き方改革をサポート>>

エクセルマクロでファイルの有無を確認したくて
次のようなマクロを作りました。
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を使いたいのですがうまくいきません。
どのようになるのでしょうか。よろしくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

>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
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング