Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2445|回复: 7

[已解决]请大家帮帮改下,以前汇总的是,目录下各个工作薄第一个工作表的数据,现在想改成...

[复制链接]
发表于 2014-3-25 21:01 | 显示全部楼层 |阅读模式
请大家帮帮改下,以前汇总的是,目录下各个工作薄第一个工作表的数据,现在想改成汇总各个工作薄中 报表3 中指定单元格的数据,请看附件件,请大家帮帮忙,谢谢大家了!!!

VBA汇总各个文件的 报表3工作表.rar (26.8 KB, 下载次数: 9)
发表于 2014-3-25 21:26 | 显示全部楼层    本楼为最佳答案   
  1. Sub Macro1()
  2. On Error Resume Next
  3. Dim wb As Workbook, mypath$, wj$, arr, brr
  4. arr = [b4:g21]
  5. mypath = ThisWorkbook.Path & ""
  6. wj = Dir(mypath & "*.xls")
  7. Application.ScreenUpdating = False
  8. Union([c5:c21], [e5:e21], [g5:g21]).ClearContents
  9. Do While wj <> ""
  10.     If wj <> ThisWorkbook.Name Then
  11.         Set wb = GetObject(mypath & wj)
  12.         brr = wb.Sheets("报表3").[b4:g21]
  13.         For i = 2 To UBound(brr)
  14.             For j = 2 To UBound(brr, 2) Step 2
  15.                 arr(i, j) = arr(i, j) + brr(i, j)
  16.             Next
  17.         Next
  18.         wb.Close 0
  19.     End If
  20.     wj = Dir
  21. Loop
  22. [b4:g21] = arr
  23. Application.ScreenUpdating = True
  24. End Sub
复制代码

评分

参与人数 1 +9 收起 理由
yjwdjfqb + 9 很给力!

查看全部评分

回复

使用道具 举报

发表于 2014-3-25 21:27 | 显示全部楼层
………………

VBA汇总各个文件的 报表3工作表.zip

32.21 KB, 下载次数: 6

回复

使用道具 举报

 楼主| 发表于 2014-3-25 21:33 | 显示全部楼层
dsmch 发表于 2014-3-25 21:27
………………

Option Explicit
Sub 数据汇总()  '要显示统计文件数
    Dim Newapp As Excel.Application, iName$, wPath$, wName$
    Dim wb As Workbook, Sht As Worksheet, iRng As Range, c As Range, n
    Set iRng = Worksheets("汇总表").Range("C5,C6,C7,C8,E6,E20,E21,G5,G6,G7,G10,G14")
   
    Application.ScreenUpdating = False
    iRng.ClearContents
    Set Newapp = CreateObject("Excel.Application")
    With Newapp
        .AutomationSecurity = msoAutomationSecurityForceDisable
        .Visible = False
        .DisplayAlerts = False
        iName = ThisWorkbook.Name
        wPath = ThisWorkbook.Path
        wName = Dir(wPath & "\*.xls")
        Do While wName <> "" And wName <> iName
            n = n + 1
            Set wb = .Workbooks.Open(wPath & "\" & wName, ReadOnly:=True)
            With wb.wb.Sheets("报表3")
                For Each c In iRng.Cells
                    c.Value = c.Value + .Range(c.Address)
                Next
            End With
            wb.Close False
            wName = Dir
        Loop
        .Quit
        .DisplayAlerts = True
    End With
    Set Newapp = Nothing
    Application.ScreenUpdating = True
   
    MsgBox "数据汇总完成!" & "共汇总文件 " & n & " 个。", , "统计系统提示您" '一行显示
   
   'MsgBox "数据汇总完成!" & vbCrLf & vbCrLf & "统计文件" & n & "个!"'二行显示
End Sub



我改成这样怎么不行呀,想在这个代码的基础上改,麻烦老师了!!!
回复

使用道具 举报

发表于 2014-3-25 21:50 | 显示全部楼层
yjwdjfqb 发表于 2014-3-25 21:33
Option Explicit
Sub 数据汇总()  '要显示统计文件数
    Dim Newapp As Excel.Application, iName$, w ...

你的代码打开文件用open方法且循环单元格速度较慢,用后台打开文件和数组解决吧
回复

使用道具 举报

 楼主| 发表于 2014-3-25 22:07 | 显示全部楼层
dsmch 发表于 2014-3-25 21:50
你的代码打开文件用open方法且循环单元格速度较慢,用后台打开文件和数组解决吧

帮我做个附件可以吧,老师,谢谢你了!
回复

使用道具 举报

 楼主| 发表于 2014-3-25 22:09 | 显示全部楼层
请大师们帮帮忙!
回复

使用道具 举报

发表于 2014-3-25 22:11 | 显示全部楼层
yjwdjfqb 发表于 2014-3-25 22:07
帮我做个附件可以吧,老师,谢谢你了!

附件在3楼
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 22:59 , Processed in 0.463109 second(s), 14 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表