工作簿002单元格调用工作簿001，看哪儿错了？

工作簿002单元格显示对应工作簿001单元格内容，提示“下标越界”看哪儿错了？Sub daoru() Dim i%, srcWB As Workbook, dstWB As Workbook For i = 1 To Sheets.Count Set srcWB = Workbooks.Open("F:001.xlsx") Set dstWB = Workbooks("002.xlsx") dstWB.Sheets("Sheeti").Cells(1, 1) = srcWB.Sheets("Sheeti").Cells(1, 1) Next End Sub