求助按条件汇总工作表

alstar

大佬求助将所有表工作的指定数据复制到一张汇总表中。（有时候列的顺序会打乱，但是标题行的名称会保持一直）

最好用数组，用for each循环工作表，之后复制粘贴那样的效果我能写出来，工作表太多效率不高，所以想用数组完成，可惜的是我对数组蒙圈。最好数组的代码写上注释，那样我就好学习了。学习大佬。


汇总 (2).rar (131.26 KB, 下载次数: 11)

2018-7-30 14:52 上传

点击文件名下载附件

魂断蓝桥

序号        房号        销售日期        姓名        按揭金额        放款日期        放款金额        未放款金额        置业顾问        放款银行


这些字段每个表中都有？

alstar

魂断蓝桥 发表于 2018-7-30 15:20
序号        房号        销售日期        姓名        按揭金额        放款日期        放款金额        未放款金额        置业顾问        放款银行

有2个没有。如果没有可以忽略掉，大佬。。

魂断蓝桥

alstar 发表于 2018-7-30 15:25
有2个没有。如果没有可以忽略掉，大佬。。

         哪两个？

alstar

魂断蓝桥 发表于 2018-7-30 15:31
哪两个？

放款金额  未放款金额 放款银行  这3个。。大佬。。

魂断蓝桥

alstar 发表于 2018-7-30 15:35
放款金额  未放款金额 放款银行  这3个。。大佬。。

Sub a()
Dim cnn As Object
Dim Sql As String, bt$, SH
bt = "序号,房号,销售日期"
Set cnn = CreateObject("ADODB.CONNECTION")
For Each SH In Sheets
    If SH.Name <> ActiveSheet.Name Then
        Sql = Sql & "SELECT " & bt & " FROM [" & SH.Name & "$A1:BP] WHERE 房号 is not null UNION ALL "
     End If
Next
Sql = Left(Sql, Len(Sql) - 11)
cnn.Open "Provider=Microsoft.ACE.OleDb.12.0;Extended Properties='Excel 12.0;HDR=YES'; Data Source=" & ThisWorkbook.FullName
Range("A2:Z999").ClearContents
[A2].CopyFromRecordset cnn.Execute(Sql)
cnn.Close: Set cnn = Nothing
End Sub

BT 变量定义标题字段，这些字段必须在每个表格中都有，并且是统一的，

比如有的是姓名，有的是业主姓名，这个不行的，需要统一字段标题。

alstar

魂断蓝桥 发表于 2018-7-30 15:39
Sub a()
Dim cnn As Object
Dim Sql As String, bt$, SH

大佬。我看着这个代码怎么那么繁琐呢。。。。。。

alstar

魂断蓝桥 发表于 2018-7-30 15:39
Sub a()
Dim cnn As Object
Dim Sql As String, bt$, SH

大佬。。能不能简单点。。这个太高深，有点看不懂啊。。CreateObject对象都弄出来了。还没学那么远。。哎

魂断蓝桥

alstar 发表于 2018-7-30 15:44
大佬。。能不能简单点。。这个太高深，有点看不懂啊。。CreateObject对象都弄出来了。还没学那么远。。哎

其实不复杂，重点的就是一句

Sql = Sql & "SELECT " & bt & " FROM [" & SH.Name & "$A1:BP] WHERE 房号 is not null UNION ALL

其余的都是固定格式，用ado的好处是不用管字段的顺序，只要有就行。

LMY123

ADO,同薄多表，标题行相同，数据自动复制