|
γさん kanabunさん
アドバイス有難う御座いました。
みなさんのコードを使わせて頂いて下記のようなコードに変更したら、上手くゆきました。
ExecuteExcel4Macro は無闇に使わない方が良いという記事は参考になりました。
これからも宜しくお願いします。
Private Sub CommandButton1_Click()
On Error Resume Next 'エラーを無視する
Dim buf As String
Dim wb As Workbook
Dim sh As Worksheet
Dim sh2 As Worksheet
Set sh2 = Worksheets("調査結果")
Const path = "C:\Users\○●\Desktop\test\"
buf = Dir(path & "*.xls")
Do While buf <> ""
Set wb = Workbooks.Open(path & buf)
MsgBox "これからチェックするブックは『" & buf & "』です"
For Each sh In Worksheets
MsgBox "チェックするシートは『" & sh.Name & "』です"
If sh.Name Like "*あいうえお*" Then
Set obj = sh.Range("G:G").Find(what:="2-")
MsgBox "objの内容は『" & obj & "』です"
If obj Is Nothing Then
MsgBox "『2-』が無いブック名は『" & buf & "』です"
sh2.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = buf
End If
Else
MsgBox "このシートは調査対象ではありません"
End If
Next sh
wb.Close False
buf = Dir()
Loop
End Sub
|
|