エクセル VBA 媒体内容チェック

質問

エクセルマクロで以下のことを実現したいですが、VBAの初心者で、なかなかうまくできないです。
内容は以下です。お願いいたします。
ソースのディレクトリとソースを格納している媒体があります。
ex:
a\b\c\d\f\rep.java
g\h\j\k\d\f\rt\test.java
・
　　　　　　　　・
　　　　　　　　・
エクセルがあります。
　　　　　A　　　　　　　　　　B
１、a\b\c\d\f　　　　　　　rep.java
２、g\h\j\k\d\f\rt　　　　test.java
やりたいことは、
　１．エクセルにあるソースが媒体にあるかどうか？あってなかったらエラーを出します。あったら、”OK”メッセージを出します。
　２．エクセルのA列に記載しているパスが媒体にあるソースに格納しているディレクトリとあっていますか？あってなかったら、エラー出します。あったら”OK”出します。
うまく説明できないですが、ご教授お願いいたします。

回答No.2

kmetu · ベストアンサー

> ２．エクセルのA列に記載しているパスが媒体にあるソースに格納しているディレクトリとあっていますか？あってなかったら、エラー出します。あったら”OK”出します

だけならDIRの結果判定だけでいけますが、あってなければ正しいパスはどこなのか
(ファイルはどこにあるのか)というのも付け加えたければ

こちらが参考になるでしょう

ファイルを検索する
http://officetanaka.net/excel/vba/tips/tips36.htm

回答No.1

imogasi

「VBA　Dir」でGoogleででも照会して勉強のこと。
初心者がやるべき課題ではなく、中級程度の課題。
ドライブぐらい既定にしたら。
ーー
エクセルシートに
A列　　　B列（ファイル名のみ）
\Documents and Settings\XXXX\My Documents 　　　　　　　01化.xls
・・・
のようなデータがあるとして
ーー
参考
Sub test01()
For i = 1 To 2
x = "C:" & Cells(i, "A") & "\" & Cells(i, "B")
MsgBox x
If Dir(x) <> "" Then
MsgBox x & vbCrLf & "が存在します"
Workbooks.Open x
Else
MsgBox x & vbCrLf & "が存在しません"
End If
Next i
End Sub
説明用なのでMsgbox やOPEN　　行は不要ならはずして。
ーー
＞VBAの初心者
質問の例からすると、JAVA（言語）をやれるのかな。それなら本件などやさしいものだろう。