如何用VBA批量汇总同文件夹下多个工作薄数据

bajifeng

>>>>>>>>>>>>>>>>>

jy01309791

bajifeng 发表于 2016-1-15 20:26
>>>>>>>>>>>>>>>>>

谢谢大神！

bajifeng

不客气，有问题跟帖回复即可。

jy01309791

bajifeng 发表于 2016-1-15 19:22
还有一个疑问，是汇总在同一个工作表里还是汇总在同一个工作簿的各个工作表里？

大神，如果我还想汇总一栏合计得分，要加入哪些代码呢？

jy01309791

jy01309791 发表于 2016-1-18 17:25
大神，如果我还想汇总一栏合计得分，要加入哪些代码呢？

怎么批量多处理一栏合计得分

jy01309791

bajifeng 发表于 2016-1-15 22:01
不客气，有问题跟帖回复即可。

像这个图里这样

qinhuan66

zhaogang1960 发表于 2016-1-15 20:01
附件……………………

赵老师，我按照你的代码照搬另一个版本有占出错，有空的话能否帮看一下。谢谢
http://club.excelhome.net/forum. ... 935&pid=9405486

LMY123

Sub 学习ADO法()
    Dim cnn As Object, MyPath$, MyFile$, SQL$, m%
    MyPath = ThisWorkbook.Path & "\"
    MyFile = Dir(MyPath & "*.xlsx")
    Application.ScreenUpdating = False
    Cells.ClearContents
    [a1:d1] = Array("序号", "村民小组", "户主姓名", "家庭人口 数")
    Set cnn = CreateObject("adodb.connection")
    Do While Len(MyFile)
        m = m + 1
        If m = 1 Then
            cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & MyPath & MyFile
            SQL = "select * from [Sheet0$a3:d] where 村民小组 is not null"
        Else
            SQL = "select * from [Excel 12.0;Database=" & MyPath & MyFile & "].[Sheet0$a3:d] where 村民小组 is not null"
        End If
        Cells(2, (m - 1) * 4 + 1).CopyFromRecordset cnn.Execute(SQL)
        MyFile = Dir
    Loop
    With [a1].CurrentRegion
        .Value = .Value
    End With
    cnn.Close
    Set cnn = Nothing
   Application.ScreenUpdating = True
End Sub

补充内容 (2019-1-1 15:32):
同夹_多薄_指定表_合并成一薄一表_ADO法,已入库。

StarLink2020

zhaogang1960 发表于 2016-1-15 20:01
附件……………………

我学习赵老师的代码，但是在附件这里报错了，请问这是什么问题呢？有知道的老师可否帮忙解答？  谢谢~

radarzhong

zhaogang1960 发表于 2016-1-15 20:00
ADO法速度很快，请参考：

大师，请否对代码进行说明下，谢谢。还有帮忙加一段数据清除代码啦