如何汇总近300张表？

hupanshan

原帖由 gzwby 于 2008-12-24 11:01 发表
如果一个单位只上缴一个月度汇总表，哪有该怎么汇总？

“一个月度汇总表”指的是什么？
你现在不就是一个单位上缴“一个月度汇总表”吗？

hupanshan

原帖由 aa7338267 于 2008-12-25 09:03 发表
能够讲一下流程吗？

    Dim RG, WB$, SQL$, ST$, LJ As Object
    Set LJ = CreateObject("adodb.connection") '（抄的）
    WB = Dir(ThisWorkbook.Path & "\*.xls") '从本工作簿所在目录取Excel文件名
    Do While WB <> "" '如取到文件进入循环
        If WB <> ThisWorkbook.Name Then '取到文件不是本工作簿则进行处理
            LJ.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.Path & "\" & WB '与取到的文件连接（抄的）
            For i = 1 To 5 '处理01到05表
                SQL = "select * from [" & "0" & i & "$]"  '确定读入范围和表名（抄的）
                With Sheets("01-05") '选择目标：01-05表
                    .[a40].CopyFromRecordset LJ.Execute(SQL) '按读入范围将数据拷贝过来，临时放到40行以下（抄的）
                    RG = .Range("g43:i68") '将要处理的数据存入数组
                    For j = 5 To 30  '从5行到30行
                        For k = 7 To 9  '从7列到9列
                            .Cells(j, k).Value = .Cells(j, k).Value + RG(j - 4, k - 6)  '每个单元格的数值与数组对应值相加
                        Next k
                    Next j
                End With
            Next i
            For i = 6 To 10 '处理06到10表，方法同上
                SQL = "select * from [" & "0" & i & "$]"
                If i = 10 Then SQL = "select * from [10$]"  '对10特别处理，去掉前面的0
                With Sheets("06-10")
                    .[a40].CopyFromRecordset LJ.Execute(SQL)
                    RG = .Range("g43:i68")
                    For j = 5 To 30
                        For k = 7 To 9
                            .Cells(j, k).Value = .Cells(j, k).Value + RG(j - 4, k - 6)
                        Next k
                    Next j
                End With
            Next i
            For i = 11 To 15  '处理11到15表，方法同上
                SQL = "select * from [" & i & "$]"
                With Sheets("11-15")
                    .[a40].CopyFromRecordset LJ.Execute(SQL)
                    RG = .Range("g43:i68")
                    For j = 5 To 30
                        For k = 7 To 9
                            .Cells(j, k).Value = .Cells(j, k).Value + RG(j - 4, k - 6)
                        Next k
                    Next j
                End With
            Next i
            For i = 16 To 20  '处理16到20表，方法同上
                SQL = "select * from [" & i & "$]"
                With Sheets("16-20")
                    .[a40].CopyFromRecordset LJ.Execute(SQL)
                    RG = .Range("g43:i68")
                    For j = 5 To 30
                        For k = 7 To 9
                            .Cells(j, k).Value = .Cells(j, k).Value + RG(j - 4, k - 6)
                        Next k
                    Next j
                End With
            Next i
            For i = 21 To 24 '处理21到24表，方法同上
                SQL = "select * from [" & i & "$]"
                With Sheets("21-24")
                    .[a40].CopyFromRecordset LJ.Execute(SQL)
                    RG = .Range("g43:i68")
                    For j = 5 To 30
                        For k = 7 To 9
                            .Cells(j, k).Value = .Cells(j, k).Value + RG(j - 4, k - 6)
                        Next k
                    Next j
                End With
            Next i
            For i = 25 To 31  '处理25到31表，方法同上
                SQL = "select * from [" & i & "$]"
                With Sheets("25-31")
                    .[a40].CopyFromRecordset LJ.Execute(SQL)
                    RG = .Range("g43:i68")
                    For j = 5 To 30
                        For k = 7 To 9
                            .Cells(j, k).Value = .Cells(j, k).Value + RG(j - 4, k - 6)
                        Next k
                    Next j
                End With
            Next i
            LJ.Close  '关闭连接
        End If
        WB = Dir   '取下一个Excel文件名
    Loop
    Set LJ = Nothing

chideyun

关于汇总大量表格的工作，我以前也遇到过，当初是借助VBA才能完成，但使用VBA有一个前提是每一个工作表格式必须完全一致，因为我的VBA只是按照地址来取值。
hupanshan你附件中的VBA代码中，我看了一下使用了SQL Select语言，我看的不是很懂，这是不是你所说的ADO啊，你能不能上传一份关于ADO学习的资料啊？非常感谢！

hupanshan

不要误会，VBA是一种计算机语言，可以处理多种格式的表格。当然，规范的数据处理起来更容易一些。至于ADO，指的是一种数据访问接口，VBA可以应用这种接口进行操作。一般说来，处理Excel表的数据可以将工作簿打开装入内存，然后对有关的数据进行操作。但是，当要处理的表比较多时，这种打开装入内存，和退出内存关闭文件的操作耗费时间就比较多了。比方说，处理一个文件多花2秒钟的时间，300个文件就要多600秒，也就是10分钟。而用ADO的方式，速度稍微快一点。我对ADO的认识十分粗浅，只是用的时候抄人家一点东西。我提交的程序只是ADO的一种简单应用，就是 .[a40].CopyFromRecordset LJ.Execute(SQL)，一次性把要用的数据拷贝到当前文件里，然后再用我熟悉的语句进行处理。

gzwby

我的意思是每个月我收到便利店上交的月度汇总表，然后我再他们提供的报表的基础上再进行汇总。
附件中“便利店报表”是300多个便利店提供的，我要做的就是“所有便利店汇总”这个表。

hupanshan

便利店销售报表.rar (47.88 KB, 下载次数: 56)

2009-1-1 15:54 上传

点击文件名下载附件

saxo

高手啊.ADO是什么?没接触过

gzwby

非常感谢！