编译错误：对于每个控制变量必须是变量或对象

Question

我得到错误：

编译错误：对于每个控制变量必须是变量或对象

我正在尝试：
从 Excel 的列表中打开文件（路径、文件名和扩展名在 A 列中），
然后将相应行（D列）中的特定帐户信息复制到打开文件中的指定单元格，
将文件另存为新文件名（在 C 列中指定扩展名），
关闭然后转到下一行并重复。

这是代码。需要设置数据列表的大小吗？

Sub CM_Details()

Dim wb1 As Workbook 'Details
Dim wb2 As Workbook 'New CM
Dim i As Long   'row
Dim rng As Range

Set wb1 = ThisWorkbook
Set rng = Range("A2", Range("A" & Rows.Count).End(xlUp))

With wb1
    For Each i In rng
        If .Sheets("Detail").Range("A" & i).Value <> "" Then

            Set wb2 = Workbooks.Open(.Sheets("Detail").Range("A" & i).Value)

            wb1.Sheets("Detail").Range("D" & i).Copy    'RoC
            wb2.Sheets("Home").Range("B1").PasteSpecial Paste:=xlPasteValues
            Application.CutCopyMode = False

            wb2.SaveAs Filename:="R:\ASSL v4\" & wb1.Sheets("Detail").Range("C" & i).Value
            wb2.Close

        End If
    Next i
End With

End Sub

Answer 1

第一次替换：

For Each i In rng

与：

for i = 2 to Range("A" & Rows.Count).End(xlUp).Row

然后继续调试。