多个工作薄汇总到一个工作薄（急！急！急！）

85584544

大家好！我是新手哈，现在遇到一个问题，我有很多张工作薄，每个工作薄都有一张表，现在要把这些工作薄表里面的内容全部汇总到一张总表里面去，复制肯定是一个繁琐又浩大的工作咯。我也看了不少分类汇总的帖子，可我不会写代码，看不懂
求高手帮忙解决一下哈，问题附件已经上传了哈！
谢谢！！（急！急！急！）

fengbin7506

关注一下。

sgjackey

Sub 将同路径下的多张工作薄中的工作表合并到当前活动的工作表()
    Application.ScreenUpdating = False
    Dim lj, dirname, nm
    Dim a As Long
    Dim i As Long
    Dim Directory As String
   Dim stMedd As String

   stMedd = "请选择拆分文件保存目录：" '选择目录
   Set obMapp = CreateObject("Shell.Application").BrowseForFolder(0, stMedd, &H1)
   If Not obMapp Is Nothing Then
      Directory = obMapp.self.Path & "\"
   Else
      Exit Sub
   End If
   
'    lj = ActiveWorkbook.Path
    nm = ActiveWorkbook.Name
   
    dirname = Dir(Directory & "*.xls")
    Do While dirname <> ""
       If dirname <> nm Then '不能是当前的工作簿
            Workbooks.Open Filename:=Directory & dirname
            a = Sheets.Count  '读当前工作薄中的所有的工作表
            Workbooks(nm).Activate
            For i = 1 To a
                Workbooks(dirname).Sheets(i).UsedRange.Copy Range("a65536").End(xlUp).Offset(1, 0)    '复制新打开的工作簿的第一个工作表的已用区域到rng
            Next i
            Workbooks(dirname).Close False
        End If
        dirname = Dir
    Loop
   
End Sub

fengbin7506

我怎么没有操作成功？ 总表.rar (18.04 KB, 下载次数: 92)

2010-2-8 11:37 上传

点击文件名下载附件

huanglicheng

看不懂代码，建议用实用工具
推荐一下
http://www.onlinedown.net/soft/48647.htm
里面工具很多，其中里面有一个“汇总”---“文件合并”
很实用。

85584544

感谢关注，我也是文盲，看不懂代码哦

yluin

同问，不懂代码怎么办啊？？？

85584544

问题已解，非常感谢，工具很实用，对不懂代码的使用者来说太方便了。
谢谢哈！

luckforall

我倒支持三楼，虽然我现在也看不懂，

ahui21

多谢5楼提供的工具，那个工具论坛里有介绍：http://club.excelhome.net/thread-514654-1-1.html