VBA统计文件夹下EXCEL文件中某一工作簿的数据
某一文件夹下有许多EXCEL2003的文件,每个文件基本格式一样,现在要求把其中一个叫"基础表"的工作簿的中的数据统计出来,我试了新建个空表Book1.xls,然后在其VBA中这样写

Sub s123()
    Dim f$
    Dim i As Integer
   Dim sh1
   Set sh1 = Worksheets(1)
   
    f = Dir(ThisWorkbook.Path & "\*.xls")
    Do While f <> ""
       If f <> "Book1.xls" And f <> ThisWorkbook.Name Then
          Workbooks.Open f
          sh1.Cells(i, 1) = Workbooks(f).Sheets(1).Cells(5, 2)
            '......................
          End If
          Workbooks(f).Close False

     Loop
    
    
End Sub

这样不行在sh1.Cells(i, 1) = Workbooks(f).Sheets(1).Cells(5, 2)
这一句中提示错误424,要求对象,大家指点下,该怎么写,



原来的东东掉了,也想不起来了,人老了也没用了,在线等
[解决办法]
i 木有赋值