VBA Excelでワークシートを検索して有効にする

Question

シート名の配列があります。私は、別のファイルからデータをコピーして、それぞれのワークシートにデータを貼り付けたいと思います。しかし、それはシートを見つけることはありません。それは、この段階でエラーが作成されます。ここでは

worksheets.(sheets(i)).Activate 

は私のコードです：。

Sub NewWorkshet() 
    Dim criteria(40) As Integer 
    Dim i As Integer  
    Dim MyFile As String 

    MyFile = Application.GetOpenFilename() 

    criteria(0) = 335 
    criteria(1) = 336  
    criteria(2) = 337   
    criteria(3) = 338 
    criteria(4) = 339   
    criteria(5) = 351   
    criteria(6) = 392   
    criteria(7) = 393 

    Dim sheets As Variant   
    sheets = Array(a335, a336, a337, a338, a339, a351, a392, a393) 

    For i = 0 To 7   
     ' Remove Filter 
     Windows("firstbook.xlsx").Activate 
     ActiveSheet.Range("$A$1:$S$6274").AutoFilter Field:=17 
     Workbooks.Open (MyFile) 
     Worksheets("first").Select 
     ActiveSheet.Range("$A$1:$O$3339").AutoFilter Field:=2, Criteria1:=criteria(i) 

     Range("A2").Select 
     Range(Selection, Selection.End(xlToRight)).Select 
     Range(Selection, Selection.End(xlDown)).Select 
     Selection.Copy 

     Windows("firstbook").Activate 
     Worksheets("sheets(i)").Select 
     Range("B2").Select 
     Selection.End(xlDown).Select 
     Selection.Offset(1, -1).Select 
     ActiveSheet.Paste 

     Workbooks(MyFile).Close SaveChanges:=False 
    Next i 
End Sub 

Answer 1

その治療のワークシート（ "シート（I）"）の単語シート（I）として文字通り選択します変数ではありません。だから変わらず、あなたのシートを見つけることができません。

このための文字列を作成する必要があります。

MySheet = "sheets(" & i & ")" 

続いてMySheetを参照することができ、あなたが望むように変更します：

は、ループ内でこれを使用し、その後Dim MySheet As String

を追加してみます。

Answer 2

問題が

Worksheets("sheets(i)").Select 

は、テキスト/名称として "シート（I）" と呼ばれるワークシートを探しているということです。
あなたの代わりに

Worksheets(sheets(i)).Select 

を使用する場合、それはあなたの問題は、あなたがテキストとしてあなたの「シート」の値を設定していないということである変数/配列sheets(i)

Answer 3

の値のように呼ばれるworkhseetを探しています。

sheets = Array(a335, a336, a337, a338, a339, a351, a392, a393) 

コードは次のように参照そして

Dim sheets(0 To 7) As Variant 
sheets(0) = "a335" 
sheets(1) = "a336" 
sheets(2) = "a337" 
sheets(3) = "a338" 
sheets(4) = "a339" 
sheets(5) = "a351" 
sheets(6) = "a392" 
sheets(7) = "a393" 

を読んでください。

Worksheets(sheets(i)).Select