VBA if文での条件分岐を行いたい

Question

お疲れ様です。

先日質問させて頂いた続きになるのですが

Sheet1がある時はSheet１のみをPDF出力し、Sheet1がない場合はSheet2,Sheet3,Sheet4,Sheet5,Sheet6の複数のシートを一つにしてPDFにして出力という作業を行いたく以下のようなコードを追記致しました。

Sub EXCELファイルPDF化03() 'フォルダのEXCELファイルの一括変換
        
    Dim Button, T, I, L As Integer
    Dim OpenExcelFileName, ExcelFileName, ExcelFilePath, ExFileName As String
     
    Application.DisplayAlerts = False  '確認メッセージを無効化します。
    
    
    Button = MsgBox("EXCEファイルの一括PDF変を行いますか？", vbYesNo + vbQuestion, "確認")
    If Button = vbYes Then
            
            OpenExcelFileName = Application.GetOpenFilename 'ダイアログを表示取り込むフォルダーにあるファイルを選択します。
            
            If OpenExcelFileName <> "False" Then
                ExcelFileName = Dir(OpenExcelFileName)  '指定したファイルパスからファイル名を代入します。
                ExcelFilePath = Replace(OpenExcelFileName, ExcelFileName, "")  '指定したファイルパスを指定します。（ファイルパスからファイル名を取り除く）
                        
                MsgBox ExcelFilePath & "この選択フォルダからPDFに変換します。"
            Else
                MsgBox "キャンセルされました"
                Exit Sub  'キャンセルでプログラムを終了します。
                
            End If
        
            ExFileName = Dir(ExcelFilePath & "*.xls?")  '指定したフォルダーから一件目のEXCELファイルを指定します。
 

            Do While ExFileName <> ""    '読み込むファイルがなくなるまで繰り返す。
                
##########今回追加したコード部分#############    
       If Worksheets = ("Sheet1") Then

 　　　　Worksheets("Sheet1").ExportAsFixedFormat _
   　　　　　Type:=xlTypePDF, _
   　　　　　fileName:=ExcelFilePath & ExFileName, _
   　　　　　OpenAfterPublish:=True
　　　　Else

  　　Worksheets(Array("SHeet2", "Sheet3", "Sheet4", "Sheet５", "Sheet6")).Select
   　　　ActiveSheet.ExportAsFixedFormat _
   　　　Type:=xlTypePDF, _
   　　　fileName:=ExcelFilePath & ExFileName, _
   　　　OpenAfterPublish:=True

　　　　End If
###########################            
            
            ActiveWindow.Close  '読み込んだファイルを閉じます。
            
            ExFileName = Dir() '次のファイルを指定する。
 
            Loop
            
            MsgBox "PDFファイルに一括変換しました。"
    Else
        MsgBox "処理を中断します"
    End If
    
    Application.DisplayAlerts = True  '確認メッセージを有効化します。
    
End Sub

こちらを実行するとコンパイルエラーが出てしまいます。
If Worksheets = ("Sheet1") Then　この部分でWorksheetsとSheet1が一致していればif文に入る
と思ったのですが上手く動作しません。

まだまだ検索不足かもしれないですが、ワークシートと条件が一致していればという条件分岐の書き方が知りたいです。
初歩的な質問で大変恐縮ですが、宜しくお願い致します。

Comments

[DreamTheater]

文法的な誤り以前に、Sheet2～Sheet6はいかなる場合も存在するのですか？

[taka-hoop]

ご回答ありがとうございます。
Sheet1が存在する箇所には存在しないです。

[mako1972]

worksheet名をindex番号で取得するのか、名前で取得するのかぶれていませんか？？

シート名を取得する場合は

sub test()
dim myname as string

myname=ActiveSheet.Name

if myname="sheet1" then
XX
endif

end sub

とかの記述のようなものが必要な気がします。

[DreamTheater]

質問を変更します。
Sheet1が存在しない場合、Sheet2～Sheet6は必ず存在するのですね？
質問の意図は、Sheet2～Sheet6がオンコーディング（ハードコーディング）で決め打ちされているからです。
Sheet1とSheet6が存在しない状態で実行すれば、当然エラーとなるので。

[taka-hoop]

返答ありがとうございます！
はい、Sheet1が存在しない場合、Sheet2～Sheet6は必ず存在しております！

[mako1972]

議論が活性化してきて、詳しい方がどんどん来ました！宜しくお願い致します。

Answer 1

以下参考
Excel VBAでシートの存在有無を判定するのにループはいらない。On Errorステートメントを使おう
ブック・シートが存在するか調べる

必ずとちらかのパターンになるとは限らない（Sheetが揃っているとは限らない）なら、結局ループ処理した方が良いかと思いますが。

Comments

[mako1972]

シート名の取得に失敗していることを教えてあげないとダメです。

[taka-hoop]

ご回答ありがとうございます。
ありがたく拝見させて頂きます！

[mako1972]

おっ、余計なことをいいました。申し訳ありません。

[sazi]

@mako1972さん
質問のコメントに書かれているような事ですか？
ActiveSheet前提とは限らないのではないですか？
なら結局リンク先の処理のようになると思いますけど。

[mako1972]

なるほど、確かに！
少し色々まじってきたでコメント控えます。

Answer 2

Sheet1の存在チェックはsaziさんの回答を参考にされれば解決できると思います。

ただ質問者さんのシート名判定方法が出鱈目すぎるので、Worksheetsを始めとする各オブジェクトの
どのメソッドなりプロパティを使用（参照）すべきかという学習が必要ですね。
ググればオブジェクトの用法くらいすぐ見つかりますから暗記しなくてもOKです。

Comments

[sazi]

同じサンプルコードを見ても、基礎が分かっているかどうかで理解や応用に差が出ますしね。
質問者さんには、精進して欲しいところです。

[taka-hoop]

ご返答ありがとうございます！
先日より突然業務で扱う事になり、訳がわかないまま質問してしまっていました。
そんな中丁寧にご回答頂きありがとうございました！

一旦落ち着いて基礎的な情報さらってみようと思います！

Answer 3

すみません。精査はしていません。配列を入れたことで
Active.workbookの記述が抜けている気がしますが・・。

Comments

[taka-hoop]

ご回答ありがとうございます！
シート名取得後　以下のように書き換えると

Dim Sheet As Variant
Sheet = ActiveSheet.Name
If Sheet = Worksheets("Sheet1") Then

Worksheets("Sheet1").ExportAsFixedFormat _
Type:=xlTypePDF, _
fileName:=ExcelFilePath & ExFileName, _
OpenAfterPublish:=True

Else

Worksheets(Array("Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6")).Select
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
fileName:=ExcelFilePath & ExFileName, _
OpenAfterPublish:=True

End If

実行エラー９のインデックスが有効範囲にないとのエラーが出ました。
これがworksheet名をindex番号で取得するのか、名前で取得するのかぶれていると言うことでしょうか？

[mako1972]

シート名を配列に
しているのですからループでsheet1じゃなければなど
配列をまわさないといけないと思います。
ネットでサンプルがあると思います。

[taka-hoop]

ご回答ありがとうございます！

実行エラー９の内容はWorkSheets("Sheet1")は見つかりませんよ
のような意味だとは思ってたんですが間違いでしょうか？

配列を回すのはdo while文の中ででしょうか？

重ね重ねかつ的外れな質問でしたら申し訳ないですが、宜しくお願い致します。