保存された配列から複数のシートを繰り返します。

Question

私はこれについて複数の投稿を見てきましたが、私が何を探しているのかはわかりません。

私はさまざまなシートを繰り返し、各シートのデータをテーブルにフォーマットします。一見非常にシンプルですが、forループを使ってシートを簡単な反復のために配列に格納することに苦労しています。

私はそれに保存されている次のデータを持っている、メインからformatSheetsArrayに渡している：formatTablesArray = Array(lo.Name, wa.Name, sevenA.Name, oh.Name, at.Name, ob.Name, ra.Name, cvr.Name, ln.Name)

シートは、すべてのコード名は、より簡単に操作するために変更されましたが、今はどのように混乱していますアレイの観点からそれらを反復すべきである。ワークブックには他のシートがありますので、sheets.countを使用することはできません。For Each Worksheet In formatSheetArrayを使用しようとしましたが、私は今受け取ったのと同じエラーを受け取りました。これはエラー424オブジェクトが必要です。何かご意見は？

Private Sub FormatOiTables(ByVal formatSheetsArray As Variant, ByRef cmeBook As Workbook) 

    Dim loopCounter As Integer, lastRow As Integer 


    For loopCounter = 0 To UBound(formatSheetsArray) 

     lastRow = cmeBook.Sheets(formatSheetsArray(loopCounter)).Cells(formatSheetsArray(loopCounter).Rows.Count, "A").End(xlUp).Row 

    Next 


End Sub 

Answer 1

あなたはワークシート・オブジェクトの配列を作成し、使用することができます。その後、

formatTablesArray = Array(lo, wa, sevenA....)

とは、私はちょうど、上記の問題のために働いてしまった

for each tbl in formaTablesArray 
    tbl. 
next 

Answer 2

ソリューションを行います。 @Siddhartも指摘したように、ワークブックの入力ミスは、最初はcmeBookと入力されていました。ありがとうございます！

Private Sub FormatOiTables(ByVal formatSheetsArray As Variant, ByRef cmeDataBook As Workbook) 

    Dim WshtNameCrnt As Variant 
    Dim lastRow As Integer 

    For Each WshtNameCrnt In formatSheetsArray 

     cmeDataBook.Sheets(WshtNameCrnt).Activate 

     With Worksheets(WshtNameCrnt) 

      lastRow = .Cells(Worksheets(WshtNameCrnt).Rows.Count, "A").End(xlUp).Row 

     End With 

     MsgBox (lastRow & " " & WshtNameCrnt) 

    Next WshtNameCrnt 


End Sub