VBA统计文件夹下EXCEL文件中某一工作簿的数据,该怎么处理

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 木有赋值