特定の名前のシートがあるか確認するには

質問

1つのフォルダの中に
４つのエクセルファイルがあります。

そのエクセルファイルの中に12というファイル名がある場合は
メッセージを出したいと考えて以下のコードを書きました。
この４つのファイルのうち1つのファイルに12のシートを
存在させてみて、以下のコードで実行しました。

Sub シートの確認2()
Const MyPath As String = "C:\test\"
Dim MyBook As Workbook
Dim MyFileName As String
Dim MyRng As Range
Dim i As Long
Dim ws As Worksheet, flag As Boolean

MyFileName = Dir(MyPath & "*.xlsx")
Do While MyFileName <> ""
If ThisWorkbook.Name <> MyFileName Then
Set MyBook = Workbooks.Open(MyPath & MyFileName)

For i = 1 To Worksheets.Count
If Worksheets(i).Name <> "12" Then
MsgBox "[12]シートが存在しません。"
Else
MsgBox "[12]シートが存在します。"
End If
Next i

MyBook.Close

End If

MyFileName = Dir()
Loop
End Sub

すると、
12という名前のあるシートを持つブックの場合、
"[12]シートが存在しません。"
"[12]シートが存在します。"
の両方のメッセージが出てきます。

おそらく考えるに
そのブックにはシートが２枚あり、
そのうち１つが12という名前のシートであり
もう一つは違う名前なので
このような現象が出てくるのではないかと。

ただ単純に、その同一フォルダ内のブックに12というがあるかないかを
取得するにはどうしたらよいでしょうか？

回答No.3

KURUMITO · ベストアンサー

次のようにすればよいでしょう。

For i = 1 To Worksheets.Count + 1
If i = Worksheets.Count + 1 Then
MsgBox "[12]シートは存在しません"
Exit For
End If
If Worksheets(i).Name = "12" Then
MsgBox "[12]シートが存在します。"
Exit For
End If
Next i

お礼

うまく動きました

なぜ
Worksheets.Count + 1
とするのですか？

回答No.4

K Kazz（@JazzCorp）

Option Explicit
Sub シートの確認2()
Const MyPath As String = "d:\tmp\tmp\"
Dim MyBook As Workbook
Dim MyFileName As String
Dim xMsgBox As String
Dim MyRng As Range
Dim i As Long
Dim ws As Worksheet, flag As Boolean
MyFileName = Dir(MyPath & "*.xls*")
Do While MyFileName <> ""
If ThisWorkbook.Name <> MyFileName Then
Set MyBook = Workbooks.Open(MyPath & MyFileName)
For i = 1 To Worksheets.Count
If Worksheets(i).Name = "12" Then
'MsgBox "[12]シートが存在します。"
If xMsgBox = Empty Then
xMsgBox = "[12]シートが存在します。" & vbNewLine & MyPath & vbNewLine & MyFileName
Else
xMsgBox = xMsgBox & vbNewLine & MyFileName
End If
Exit For
End If
Next i
MyBook.Close (False)
End If
MyFileName = Dir()
Loop
If xMsgBox = Empty Then
MsgBox "[12]シートが存在しません。"
Else
MsgBox xMsgBox
End If
End Sub

回答No.2

okormazd

For i = 1 To Worksheets.Count
・
・
・
Next i

↓

For i = 1 To Worksheets.Count
If Worksheets(i).Name = "12" Then
MsgBox "[12]シートが存在します。"
Exit For
End If
Next i
if i> Worksheets.Count then
MsgBox "[12]シートが存在しません。"
End If

とか。

回答No.1

maiko0318

ERR = 1;
For i = 1 To Worksheets.Count
If Worksheets(i).Name == "12" Then やることがないので反対にしました。
ERR = 0;
End If
Next i

If ERR == 1 Then
MsgBox "[12]シートが存在しません。"
Else
MsgBox "[12]シートが存在します。"
End If