|
【質問】
デスクトップの『test』フォルダーの中に複数のエクセルがあり、それらエクセルには全て『あ』シートがあります。
それらエクセルのシート『あ』のD列に『2-』があるか否か調べたいのですが、下記のコードでは上手く行きません。
Targetの列の指定がまずいのかも知れませんし、Findの検索対象にExecuteExcel4Macro(Target)が使えないのかも知れません。
宜しくご教授お願いします。
Private Sub CommandButton1_Click()
Dim buf As String, Target As String
Const Path = "C:\Users\○●\Desktop\test\"
buf = Dir(Path & "*.xls")
Do While buf <> ""
Target = "'" & Path & "[" & buf & "]あ'!R4" 'D列
'*****シート『あ』のD列をチェックする*****
Dim f As Range
Set f = ExecuteExcel4Macro(Target).Find("2-", LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False, matchbyte:=False)
If Not f Is Nothing Then 'もしもあったら
MsgBox "『2-』が見つかりました"
Else
MsgBox "このシートに不備を見つけました(『2-』が見当たらない)"
End If
buf = Dir()
Loop
End Sub
|
|