一括印刷vba エラー

質問

複数シートの印刷vbaを作成したのですが、インデックスが有効範囲ではありませんのエラーが発生します。該当部分のコードは以下のとおりで、配列変数に格納したシート名でシートを選択しようとするときにエラーとなります。
デバックで追ってみると、シート名の変数への格納も、配列変数の個数の宣言もきちんと入っているようなのですが・・・。
vbaは初心者で、基本的なこともあまりわからないレベルです。ヘルプやインターネットで調べても何が悪いのかよくわかりませんでした。
どこを直せばよいのか教えてもらえると助かります。

'連続印刷(１ファイル内のシート全てをひとかたまりで印刷)

Dim Sh As Worksheet
Dim AllShName() As Variant
Dim x As Long

For i = 1 To iRow

Workbooks.Open Filename:=fil_path & ran1(i) & ".xlsx"

x = 0

For Each Sh In ActiveWorkbook.Worksheets
x = x + 1
ReDim Preserve AllShName(x)
AllShName(x) = Sh.Name
Next

Worksheets(AllShName).Select　　　←　ここで「インデックスが有効範囲ではありません」のエラー
ActiveWindow.SelectedSheets.PrintOut

ActiveWindow.Close

Next i

End Sub

回答No.1

WindFaller · ベストアンサー

こんにちは。

コードは試してはみませんでしたが、変数の宣言の抜けとかは別にして、直感的にみて、コードが変です。

> x = x + 1
>ReDim Preserve AllShName(x)
>AllShName(x) = Sh.Name

この順序がおかしいです。配列は、0からですから、
「インデックスが有効範囲ではありません」
は、1から進んでいるので、配列の[0]の場合に、Emptyが含まれているからです。

ReDim Preserve AllShName(x)
AllShName(x) = Sh.Name
x = x + 1

のはずです。ただし、Worksheetは、見えているものに限りますから、
万が一には、

If Sh.Visible = xlSheetVisible Then
　ReDim Preserve AllShName(x)
　AllShName(x) = Sh.Name
　x = x + 1
End if

という必要があるかもしれません。
他にも大丈夫なのかなと、疑問に付くところはあるのですが、それは、そのままにしておきます。

お礼

なるほど。配列変数は0からなのですね。
1からだと思い込んでおりました。
こんな基本的なことも知らないなんてはずかしいかぎりです。
ご指摘のとおり、X=X+1をシート名取得後にもってくるとうまくいきました。
ありがとうございました。
ちなみに、ファイル名を取得する前段階のVBAは文字数が足りなかったので省略している関係で変数の宣言抜け等があった次第です。情報量が少ない中で的確なご指摘ありがとうございました。