VBAの質問(シートのコピーについて)

質問

VBAの質問(シートのコピーについて)
VBAのシートのコピーについてご教授願います。
あるマクロを実行すると、以下のようなシートが作成されます。

シート名：aaaa
シート名：bbbb
シート名：cccc
シート名：dddd

上記シート名のうち、aaaa、bbbb、cccc、ddddを別ワークブックへコピーしたく、以下のように
マクロを書いております。
(既に配列strA()にaaaa、bbbb、cccc、ddddが入っております。)

Dim strA() As String
　・・・
　処理　
　・・・

'シートのコピー
For i = 0 To UBound(strA)
If i = 0 Then
CopySheet = Chr(34) & strA(i) & Chr(34)
ElseIf i > 0 Then
CopySheet = CopySheet & "," & Chr(34) & strA(i) & Chr(34)
End If
Next i
Sheets(Array(CopySheet)).Copy

---エラーメッセージ---------------
上記処理を流すと、実行時エラー'9':
インデックスが有効範囲にありません。
--------------------------------

しかし、以下のように配列を直接指定すると、正常にコピーされます。
'Sheets(Array(strA(0), strA(1),strA(2),str(3))).Copy

初歩的な問題かもしれませんが、宜しくお願い致します。

回答No.3

hige_082 · ベストアンサー

質問のコードを使用するなら

Sub test()
Dim i
Dim CopySheet
Dim strA(2)
strA(0) = "sheet1"
strA(1) = "sheet2"
strA(2) = "sheet3"
'シートのコピー
For i = 0 To UBound(strA)
If i = 0 Then
CopySheet = strA(i)
ElseIf i > 0 Then
CopySheet = CopySheet & "," & strA(i)
End If
Next i
MsgBox CopySheet
Sheets(Split(CopySheet, ",")).Copy
End Sub

こんな感じにしないとね

上のコードを要約すると
Sub test()
Dim i
Dim strA(2)
strA(0) = "sheet1"
strA(1) = "sheet2"
strA(2) = "sheet3"
'シートのコピー
Sheets(Split(Join(strA()))).Copy
End Sub

こんな感じです

参考まで

お礼

Sheets(Split(CopySheet, ",")).Copy
　↑
Splitを使ってやれば、簡単に出来るのですね。
文字列(CopySheet)を作るのに、必死になっていました・・・

大変有難うございました。

回答No.2

myRange

回答１、myRangeです。

＞ご回答どおりにやってみましたが、NGでした。

配列に入っているシートがないのでは？

ま、それは置いといて、
新しいブックで下記を試してみてください。
質問者のExcelも新しいブックではシートが３枚開くという前提。
違ったら適宜変更のこと。

Sub test()
　　Dim strA() As String
　　ReDim strA(1)
　　strA(0) = "Sheet2"
　　strA(1) = "Sheet3"
　　Sheets(strA()).Copy
End Sub

以上です。

回答No.1

myRange

あっさりと

　　Sheets(strA()).Copy

ではどうでしょうか。
以上です。

補足

ご回答どおりにやってみましたが、NGでした。
エラーメッセージは同じです。