求高手指教，多个表格合并？急

284299875

我有一套表，其中sheet1,sheet2,sheet3,sheet4.......sheet8里面都有数据，这样的表共20几份，要把这些表分别汇总到一张表汇总表的sheet1,sheet2,......sheet8.怎么做，我从网上搜了一个代码，看看时否有帮助
'取得该目录下的所有excel文件（包括子目录）Sub getFolder(strPath As String)Dim fileCount As IntegerDim subPath As String'目录列表Dim folderList(1000) As String'目录列表下标Dim folderCount As IntegerDim fileList(1000) As StringfolderCount = 0Dim i As Long'取得目录和文件信息subPath = Dir(strPath & "\", vbDirectory) Do While subPath <> ""     '除去上层目录    If subPath <> "." And subPath <> ".." Then            '如果是目录就加入目录列表        If GetAttr(strPath & "\" & subPath) = vbDirectory Then                    folderList(folderCount) = strPath & "\" & subPath            Debug.Print folderList(folderCount)            folderCount = folderCount + 1                    '如果是excel文件就加入文件列表        ElseIf InStr(Right(subPath, 4), "xls") > 0 Then                    fileList(fileCount) = strPath & "\" & subPath            Debug.Print fileList(fileCount)            fileCount = fileCount + 1                End If        End If    '取下一个目录或文件    subPath = DirLoop '如果该目录下还有子目录If folderCount > 0 Then     For i = 0 To folderCount - 1                getFolder (folderList(i))        Next i End If End Sub
自已不懂怎么修改，请高手指教。

284299875

从发一下从网上下的代码，请高手看一下。

1. '取得该目录下的所有excel文件（包括子目录）
   
2. Sub getFolder(strPath As String)
   
3. Dim fileCount As Integer
   
4. Dim subPath As String
   
5. '目录列表
   
6. Dim folderList(1000) As String
   
7. '目录列表下标
   
8. Dim folderCount As Integer
   
9. Dim fileList(1000) As String
   
10. folderCount = 0
    
11. Dim i As Long
    
12. '取得目录和文件信息
    
13. subPath = Dir(strPath & "", vbDirectory)
    
14. 
    
15. Do While subPath <> ""
    
16. 
    
17.     '除去上层目录
    
18.     If subPath <> "." And subPath <> ".." Then
    
19.    
    
20.         '如果是目录就加入目录列表
    
21.         If GetAttr(strPath & "" & subPath) = vbDirectory Then
    
22.         
    
23.             folderList(folderCount) = strPath & "" & subPath
    
24.             Debug.Print folderList(folderCount)
    
25.             folderCount = folderCount + 1
    
26.             
    
27.         '如果是excel文件就加入文件列表
    
28.         ElseIf InStr(Right(subPath, 4), "xls") > 0 Then
    
29.         
    
30.             fileList(fileCount) = strPath & "" & subPath
    
31.             Debug.Print fileList(fileCount)
    
32.             fileCount = fileCount + 1
    
33.         
    
34.         End If
    
35.    
    
36.     End If
    
37.     '取下一个目录或文件
    
38.     subPath = Dir
    
39. Loop
    
40. 
    
41. '如果该目录下还有子目录
    
42. If folderCount > 0 Then
    
43. 
    
44.     For i = 0 To folderCount - 1
    
45.         
    
46.         getFolder (folderList(i))
    
47.    
    
48.     Next i
    
49. 
    
50. End If
    
51. End Sub
    

复制代码

qinqindelulu

帮你支持一下，让别人来解决