循環運行時錯誤9

Question

我有三個工作簿;所有信息都包含相同的政策信息，但來自不同的文檔。我試圖在同一單元格的值從具有在工作簿1 &工作簿3.同一工作表名稱爲每個工作表複製這是我的代碼：

Sub foo() 

    Dim wbk1 As Workbook 
    Dim wbk2 As Workbook 
    Dim wkb3 As Workbook 
    Dim shtName As String 
    Dim i As Integer 

    Set wkb1 = Workbooks.Open("C:\Users\lliao\Documents\Trad Reconciliation.xlsx") 
    Set wkb2 = Workbooks.Open("C:\Users\lliao\Documents\TradReconciliation.xlsx") 
    Set wkb3 = Workbooks.Open("C:\Users\lliao\Documents\Measure Trad Recon LS.xlsx") 

    shtName = wkb2.Worksheets(i).Name 

    For i = 2 To wkb2.Worksheets.Count 
     wkb2.Sheets(shtName).Range("D3").Value = wkb1.Sheets(shtName).Range("D2") 
     wkb2.Sheets(shtName).Range("E3").Value = wkb1.Sheets(shtName).Range("E2") 
     wkb2.Sheets(shtName).Range("F3").Value = wkb1.Sheets(shtName).Range("F2") 
     wkb2.Sheets(shtName).Range("D4").Value = wkb3.Sheets(shtName).Range("D2") 
     wkb2.Sheets(shtName).Range("E4").Value = wkb3.Sheets(shtName).Range("E2") 
     wkb2.Sheets(shtName).Range("F4").Value = wkb3.Sheets(shtName).Range("F2") 
    Next i 

End Sub 

我不明白我怎麼使用下標錯誤。這是我第一次編寫VBA（5年以上的第一次），所以我不熟悉編碼錯誤。

謝謝！

Answer 1

Dim i As Integer 

Set wkb1 = Workbooks.Open("C:\Users\lliao\Documents\Trad Reconciliation.xlsx") 
Set wkb2 = Workbooks.Open("C:\Users\lliao\Documents\TradReconciliation.xlsx") 
Set wkb3 = Workbooks.Open("C:\Users\lliao\Documents\Measure Trad Recon LS.xlsx") 

shtName = wkb2.Worksheets(i).Name 

可變i聲明，但它的分配之前使用 - 因此它的值是一個隱含的0。

由於VBA集合是基於1的，這使得wkb2.Worksheets(i)超出範圍。

Dim i As Integer 
i = 1 

'... 

shtName = wkb2.Worksheets(i).Name 

將解決它。

雖然你可能想要在循環中移動它。

Answer 2

可能是你在這之後：

For i = 2 To wkb2.Worksheets.Count 
    wkb2.Sheets(i).Range("D3:F3").Value = wkb1.Sheets(i).Range("D2:F2") 
    wkb2.Sheets(i).Range("D4:F4").Value = wkb3.Sheets(i).Range("D2:F2") 
Next i