excel - 如何修复无效的下一个控制变量引用

Question

我正在尝试构建一个摘要工作表，将源数据从标准化工作表中提取到单独工作簿中的一个合并页面中。我对 VBA 很陌生，所以我从网上提取了一些东西，并在自己身上添加了一些东西。我现在的问题是在“下一个工作簿”点的代码底部附近出现“无效的下一个控制变量”错误。

Sub ConslidateWorkbooks()
Dim FolderPath As String
Dim Filename As String
Dim Sheet As Worksheet
Dim Workbook As Workbook
Dim rng As Range
rng = ("a1:a10")
Application.ScreenUpdating = False
Filename = "C:\Users\Patrick\Desktop\Consolidating Macro"
Filename = Dir(FolderPath & "*.xls*")
Do While Filename <> ""
 Workbooks.Open Filename:=FolderPath & Filename, ReadOnly:=True
 For Each rng In ActiveWorkbook.Worksheet("Update")
 rng.Copy
 Workbook("Testing").Select
 Sheets("Tracker").Select
 Selection.Offset(0, 1).Select
 rng.Paste
 Next Workbook
 Workbooks(Filename).Close
 Filename = Dir()
Loop
Application.ScreenUpdating = True
End Sub

我曾尝试引用工作表和工作簿，但似乎没有任何效果。有谁知道如何解决这个错误？我已经环顾了一段时间，找不到另一种方法来引用循环中的下一个工作簿。任何帮助深表感谢！

标签： excelvba