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

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

VB code

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

查看更多 下一篇