[已解决]如何将同目录内多工作簿中的单工作表汇总？

sendsend

如何将同目录内多工作簿中的单工作表汇总？

最佳答案

月排行榜 / 总排行榜

liuts

2011-4-10 13:47

(, 下载次数: 80)

上传

点击文件名下载附件 上附件了

跳转到最佳答案楼层

无聊的疯子

楼主的表太复杂了...帮你顶一下,我来傍观

wbzxz

确实有点复杂，看着有点晕啊，能把问题简化一下否？

liuts

Sub Macro3()
Application.DisplayAlerts = False
    ActiveWorkbook.Save '先保存目标文件
    Dim FilesToOpen
    Dim X As Integer
    Dim i As Integer
    Dim Mname As String
    Dim Oname As String
    Application.ScreenUpdating = False
    Mname = ActiveWorkbook.Name '目标文件名
    FilesToOpen = Application.GetOpenFilename(FileFilter:="MicroSoft Excel文件(*.xls),*.xls", Title:="", MultiSelect:=True) '在此导入的EXCEL2007文件,扩展名在这里可自己指定
   
      If TypeName(FilesToOpen) = "Boolean" Then
        MsgBox "没有选中文件"
        Exit Sub
    End If
    X = 1
    While X <= UBound(FilesToOpen)
        Workbooks.Open Filename:=FilesToOpen(X)
        With ActiveWorkbook
            Oname = .Name '源文件名
    Workbooks(Oname).Sheets("汇总").Select
       Application.WindowState = xlMinimized
    ActiveWindow.SmallScroll Down:=-39
    Range("A8:FX8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("全部单位汇总.xls").Activate
    Sheets("汇总").Select
    Range("a8").Select
    If Range("a8") = "" Then
    GoTo 100
    End If
    Selection.End(xlDown).Select
    X = Selection.Row + 1
    Cells(X, 1).Select
100:
   
    Selection.Insert Shift:=xlDown
            .Close '源文件关闭
            X = X + 1
        End With
    Wend
Application.DisplayAlerts = True
End Sub

按照我的理解，应该能够达到你的要求。

liuts

感觉你全部单位汇总和分单位汇总，公式都是一样的 所以公式复制了应该也没关系 对吗

sendsend

liuts 发表于 2011-4-10 09:14
感觉你全部单位汇总和分单位汇总，公式都是一样的 所以公式复制了应该也没关系 对吗

是的，上面的代码没有结果啊！谢谢您的关注！请再改改！

liuts

sendsend 发表于 2011-4-10 11:38
是的，上面的代码没有结果啊！谢谢您的关注！请再改改！

有结果哦？你意思是明细到汇总吗？

sendsend

liuts 发表于 2011-4-10 11:42
有结果哦？你意思是明细到汇总吗？

把你的代码复制到《全部单位汇总.xls》后执行，按提示打开《单位1.xls》，它停留在《全部单位汇总.xls》表中的复制状态啊！没有将各工作簿的《汇总》表中的数据汇总到《全部单位汇总.xls》？请再看看，谢谢！

liuts

回复 sendsend 的帖子

选择文件把单位1 2 3圈选，不要单选

sendsend

liuts 发表于 2011-4-10 12:02
回复 sendsend 的帖子

选择文件把单位1 2 3圈选，不要单选

全选也一样，它还是停留在《全部单位汇总.xls》表中的复制状态啊？