循环运行时错误 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