|
本帖最后由 541181001 于 2014-6-22 15:44 编辑
我想把一个文件夹下所有的工作表第一个表的数据粘贴到汇总表中,可是运行代码只能粘贴其中一个表,不知道什么原因,麻烦大家帮我看看哈,先谢过!
将k = 1移到Do While f <> ""后面 - Sub 汇总()
- Dim r&, k&
- Application.ScreenUpdating = False
- f = Dir(ThisWorkbook.Path & "\*.xls")
- Do While f <> ""
- k = 1
- If f <> ThisWorkbook.Name Then
- Workbooks.Open (ThisWorkbook.Path & "" & f)
- Set th = ThisWorkbook.Worksheets("汇总")
- Set ac = ActiveWorkbook.Worksheets("新目录")
- 10:
- k = k + 1
- If ac.Cells(k, 1) <> "" Then
- r = th.Cells(th.Cells.Rows.Count, 1).End(xlUp).Row + 1
- th.Cells(r, 1) = ac.Cells(k, 1)
- th.Cells(r, 2) = ac.Cells(k, 2)
- th.Cells(r, 3) = ac.Cells(k, 3)
- GoTo 10
- Else
- ActiveWorkbook.Close 0
- End If
- End If
- f = Dir
- Loop
- Application.ScreenUpdating = True
- End Sub
复制代码
|
|