[已解决]以下代码只能统计一个工作表，我要统计所有表，怎么修改

hwc2ycy

我感觉这样更符合你的要求。

1. Sub 汇总()
   
2.     Dim strFileName As String, xlApp, xlBook, xlSheet
   
3.     Dim i As Integer, arr, temp(1 To 28, 1 To 10), j As Integer, k As Integer
   
4.     strFileName = Dir(ActiveWorkbook.Path & "")
   
5.     i = 1
   
6.     Set xlApp = CreateObject("Excel.Application")
   
7.     Application.ScreenUpdating = False
   
8.     Do While strFileName <> ""
   
9.         If strFileName <> ThisWorkbook.Name And InStr(strFileName, ".xls") > 0 Then
   
10.             Set xlBook = xlApp.Workbooks.Open(ActiveWorkbook.Path & "" & strFileName)
    
11.             For Each xlSheet In xlBook.Worksheets
    
12.                 arr = xlSheet.Range("d6:m33")
    
13.                 For j = 1 To 28
    
14.                     For k = 1 To 10
    
15.                         temp(j, k) = temp(j, k) + arr(j, k)
    
16.                     Next
    
17.                 Next
    
18.             Next
    
19.             xlApp.DisplayAlerts = False
    
20.             xlBook.Close
    
21.             Sheets(i).Range("d6:m33") = temp
    
22.             i = i + 1
    
23.         End If
    
24.         strFileName = Dir
    
25.     Loop
    
26.     xlApp.Quit
    
27.     Sheets(1).Range("d6:m33") = temp
    
28.     Application.ScreenUpdating = True
    
29. End Sub
    

复制代码

hwc2ycy

1. Sub 汇总()
   
2.     Dim strFileName As String, xlApp, xlBook, xlSheet
   
3.     Dim i As Integer, arr, temp(1 To 28, 1 To 10), j As Integer, k As Integer
   
4.     strFileName = Dir(ActiveWorkbook.Path & "")
   
5.     i = 1
   
6.     Set xlApp = CreateObject("Excel.Application")
   
7.     Application.ScreenUpdating = False
   
8.     Do While strFileName <> ""
   
9.         If strFileName <> ThisWorkbook.Name And InStr(strFileName, ".xls") > 0 Then
   
10.             Set xlBook = xlApp.Workbooks.Open(ActiveWorkbook.Path & "" & strFileName)
    
11.             For Each xlSheet In xlBook.Worksheets
    
12.                 arr = xlSheet.Range("d6:m33")
    
13.                 For j = 1 To 28
    
14.                     For k = 1 To 10
    
15.                         temp(j, k) = temp(j, k) + arr(j, k)
    
16.                     Next
    
17.                 Next
    
18.             Next
    
19.             xlApp.DisplayAlerts = False
    
20.             xlBook.Close
    
21.             With Sheets(i)
    
22.                 .Range("d6:m33") = temp
    
23.                 .Range("d2").Value = Split(strFileName, ".")(0)
    
24.             End With
    
25.             i = i + 1
    
26.         End If
    
27.         strFileName = Dir
    
28.     Loop
    
29.     xlApp.Quit
    
30.     Sheets(1).Range("d6:m33") = temp
    
31.     Application.ScreenUpdating = True
    
32. End Sub

复制代码

9890b

hwc2ycy 发表于 2013-12-13 11:12
另外，你不是每个工作簿的所有工作表汇总成一个工作表？
我看你的BOOKS1里有三个工作表。

汇成三个表，

9890b

9890b 发表于 2013-12-13 11:45
汇成三个表，

三个表的数据应该是一样的呀，好像数据不是一样的

9890b

9890b 发表于 2013-12-13 11:48
三个表的数据应该是一样的呀，好像数据不是一样的

book1工作簿的工作表1或是工作表3或更多合计应该是其他三个工作簿（或更多）对应工作表累加的数。

工作簿	工作表	工作表	工作表
中学	1	2	3
	加	加	加
中心校	1	2	3
	加	加	加
茶园完小	1	2	3
	等于	等于	等于
book1	1	2	3

hwc2ycy

9890b 发表于 2013-12-13 12:20
book1工作簿的工作表1或是工作表3或更多合计应该是其他三个工作簿（或更多）对应工作表累加的数。

早要说明白嘛，绕一大圈。

9890b

9890b 发表于 2013-12-13 12:20
book1工作簿的工作表1或是工作表3或更多合计应该是其他三个工作簿（或更多）对应工作表累加的数。

我运行了你的代码，第一个工作表变成了9个工作簿相加，第二个表变成了6个工作簿相加，第三个工作表变成了9个工作簿相相，我的要求是有几个工作簿就是几个工作簿相加。

9890b

hwc2ycy 发表于 2013-12-13 12:27
早要说明白嘛，绕一大圈。

我运行了你的代码，第一个工作表变成了9个工作簿相加，第二个表变成了6个工作簿相加，第三个工作表变成了9个工作簿相相，我的要求是有几个工作簿就是几个工作簿相加。

9890b

9890b 发表于 2013-12-13 12:31
我运行了你的代码，第一个工作表变成了9个工作簿相加，第二个表变成了6个工作簿相加，第三个工作表变成了 ...

不好意思呀，辛苦了

9890b

9890b 发表于 2013-12-13 12:31
我运行了你的代码，第一个工作表变成了9个工作簿相加，第二个表变成了6个工作簿相加，第三个工作表变成了 ...

不好意思，辛苦了