EXCEL VBA 下标越界如何解决？

Question

Sub 选择文件夹()
Application.ScreenUpdating = False
Dim wb As Workbook
fl = Application.GetOpenFilename("excel Files(*.csv*),*.csv*", , "请选择文件", , True)
For i = 1 To UBound(fl)
Set wb = Workbooks.Open(fl(i))
wb.Worksheets(Worksheets1).Range("C2").Copy ThisWorkbook.Worksheets(1).Range("A10").End(3).Offset(1, 0)
wb.Close False
Next
Application.ScreenUpdating = True
End Sub
代码如下
提示 wb.Worksheets(Worksheets1).Range("C2").Copy ThisWorkbook.Worksheets(1).Range("A10").End(3).Offset(1, 0)
这一行下标越界，该怎么修改
我的目的是选择CSV文件，将CSV表1的某个单元格数据复制到宏所在.xlsm的某个单元格。
注：CSV文件名和单元表名都不确定

Answer 1

下标越界主要是括号里面的东西不存在，例如：

wb.Worksheets(Worksheets1).Range("C2").Copy
这个语句会导致下标越界，因为Worksheets1变量没有正确赋值，正确的写法是：
wb.Worksheets(1).Range("C2").Copy
表示第一个工作表的C2复制，或者这样写：
wb.Worksheets("sheet1").Range("C2").Copy
表示名字叫做sheet1的表的C2复制
如果要使用变量来引用，例如：
x=1

wb.Worksheets(x).Range("C2").Copy

追问

你好，问一下
wb.Worksheets(Worksheets1).Range("C2").Copy ThisWorkbook.Worksheets(1).Range("E8").End(3).Offset(1, 0)
为什么结果是复制到E7了？是附近有合并的单元格吗？正确的该怎么写呢

追答

我不知道你想复制到哪里呀，建议你看看end和offset的帮助说明