|
【質問】
『test』フォルダーの中に複数のエクセルがあります。
それぞれのエクセルのシート名が『01あいうえお』だったり『05あいうえお』だったり『89あいうえお』だったりします。
下記のコードは、シート名が『01あいうえお』の場合だけ機能します。
これを、上記のシート名でも動くコードにしたいのです。
御教授お願いします。
なお、シート名『あいうえお』は不変で、必ずその頭に2桁の数字が来ます。
一桁の数字の表現は『1』ではなく、『01』となります
Private Sub CommandButton1_Click()
Worksheets("調査結果").Range("B8:B1000").Value = "" 'クリア
Dim buf As String, Target As String, i As Integer, n As Integer, nn As Integer
Const Path = "C:\Users\○●\Desktop\test\"
buf = Dir(Path & "*.xls")
Do While buf <> ""
For i = 1 To 1000
n = 0
nn = 0
Target = "'" & Path & "[" & buf & "]01あいうえお!R" & i & "C7"
If ExecuteExcel4Macro(Target) = "2-" Then
nn = n + 1 'セルに『2-』があったときに1を加える
Exit For
End If
Next i
If nn = 0 Then '合計が0のとき、そのエクセルの名前を書き出す
Worksheets("調査結果").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = buf
End If
buf = Dir()
Loop
End Sub
|
|