【VBAでシート名の存在チェックを行いたい】

目的は、特定したExcelファイルを開き、そこに存在するシート名が、あるシート名リストと一致するかどうかの判断を行うことです。
シート名を参照しようとすると、存在しない場合エラーになります。

例：
Excelブック　　　　　シート名リスト
「顧客」シート　　　「住所」
「住所」シート　　　「趣味」
「会社」シート
シート名リストの「趣味」がブックに存在しないので、エラーになります。

他の方法をご存知の方、教えて頂けますでしょうか？

宜しくお願いいたします。

Excel2000を使用しています。

No.2 ベストアンサー 回答者： BLUEPIXY 回答日時： 2005/06/27 15:15

指定したシート名が存在するかテストする関数を作ってみました。

もっと良いやり方があるかもしれませんが・
-----------------------------------------------------------
Public Function hasSheet(name As String) As Boolean
Dim x As Worksheet

For Each x In Sheets
If StrComp(name, x.name, vbTextCompare) = 0 Then
hasSheet = True
Exit Function
End If
Next
hasSheet = False
End Function

この回答へのお礼

具体的な内容まで提示して頂き、ありがとうございます。
早速実装してみたいと思います。

お礼日時：2005/06/27 16:02

No.1 回答者： Wendy02 回答日時： 2005/06/27 13:33

＞シート名を参照しようとすると、存在しない場合エラーになります。

ローテクですが、
「On Error Resume Next」で、エラーを解除したらいかがですか？

この回答へのお礼

ひとつの方法として参考になりました。
ありがとうございます。

お礼日時：2005/06/27 15:59