Excel vba錯誤1004試圖將數據數組輸出到工作表

Question

我在一張紙上覆制範圍內的數據，將其分配給一個數組，然後遍歷數組並嘗試將數據輸出到另一張紙上。我不斷收到錯誤1004：應用程序定義或對象定義的錯誤。

Worksheets("tempSort").Activate 

With Application.Worksheets("tempSort") 
    .Range("A1:B" & EndRowDummy).Sort key1:=Range("B1:B" & EndRowDummy), _ 
    order1:=xlDescending, Header:=xlNo 
End With 

i = 1 
y = i + 1 

Call ClearSortedResultsSheet 
Call PrintSortedResultsHeaders 

For i = 1 To EndRowDummy  
    x = Sheets("tempSort").Range("A" & i).text 
    Worksheets("Sorted Results").Range("A" & y) = x 
    playerData = Sheets(x).Range("C2:F2").Value 
    b = 2 

    For Each data In playerData 
     Worksheets("Sorted Results").Cells(y, b) = data 
     b = b + 1 
    Next data 
Next i 

它在For Each循環中拋出錯誤。

Answer 1

我在運行代碼時沒有收到錯誤消息。儘管我明白了這兩個調用，因爲我沒有這些子程序。

Call ClearSortedResultsSheet 
Call PrintSortedResultsHeaders 

而且我還得到了工作表第2行（「分類結果」）表中的所有結果。所以我添加了一個y = y + 1行來將它們寫在單獨的行上。

除此之外，我會搜索ClearSortedResultsSheet或PrintSortedResultsHeaders可能導致錯誤的任何更改。也許他們改變了活動表或其他東西。

這裏是你的代碼，在我的電腦上工作正常，只有一個添加暗淡和y = y + 1語句。

Sub test() 
Dim playerData() As Variant 

     Worksheets("tempSort").Activate ' copy this and place it below the subroutine calls 
     EndRowDummy = 3 

     With Application.Worksheets("tempSort") 
      .Range("A1:B" & EndRowDummy).Sort key1:=Range("B1:B" & EndRowDummy), _ 
      order1:=xlDescending, Header:=xlNo 
     End With 

     i = 1 
     y = i + 1 


     'Call ClearSortedResultsSheet 
     'Call PrintSortedResultsHeaders 
     Worksheets("tempSort").Activate ' in case the subroutine changed the activesheet 
     For i = 1 To EndRowDummy 
      x = Sheets("tempSort").Range("A" & i).Text 
      Worksheets("Sorted Results").Range("A" & y) = x 
      abc = Sheets(x).Range("C2").Value 
      playerData = Sheets(x).Range("C2:F2").Value 
     ' abc = playerData(1) 
      b = 2 

      For Each Data In playerData 
       Worksheets("Sorted Results").Cells(y, b) = Data 
       b = b + 1 
      Next Data 
      y = y + 1 
     Next i 


End Sub