求助指导取表格里的数

kulagen

在不打开数据源里的表格（数据源表格有N张表;因表格太大只传了一张）；在汇总表里取数据源文件夹下表的数据；求请教；拜托各位大神；我只会等号连接表格；因表格数据多而大导致汇总表打开需要半天

一、汇总表里P1工作簿：1、在不打开数据源文件夹的情况下，用VBA去取数据源文件夹下表格的数据
2、AB4:AB14的数据：取表1的1月份里HK15到HT15（HK15:HT15)行的数据
3、AC4:AC14的数据：取表1的2月份里HK15到HT15（HK15:HT15)行的数据
4、以此类推


二、汇总表里P2工作簿：
1、在不打开数据源文件夹的情况下，用VBA去取数据源文件夹下表格的数据
2、AC列从AC6行到AC250行的数据：在文件夹下表1里的1月份中取HK15到HK259（HK15:Hk259)行的数据
3、AD列从Ad6行到Ad250行的数据：在文件夹下表1里的2月份中取HK15到HK259（HK15:Hk259)行的数据
4、以此类推




三、汇总表里P3工作簿：
1、在不打开数据源文件夹的情况下，用VBA去取数据源文件夹下表格的数据
2、AC列从AC6行到AC250行的数据：在文件夹下表1里的1月份中取G15到G259（G15:G259)行的数据
3、AD列从Ad6行到Ad250行的数据：在文件夹下表1里的2月份中取G15到G259（G15:G259)行的数据
4、以此类推



四、汇总表里P4工作簿：
1、在不打开数据源文件夹的情况下，用VBA去取数据源文件夹下表格的数据
2、AC列从AC6行到AC250行的数据：在文件夹下表1里的1月份中取C15到C259（C15:C259)行的数据
3、AD列从Ad6行到Ad250行的数据：在文件夹下表1里的2月份中取C15到C259（C15:C259)行的数据
4、以此类推



五、汇总表里P5工作簿：

1、在不打开数据源文件夹的情况下，用VBA去取数据源文件夹下表格的数据（转置数据）
2、模块2中L212:IV212单元格开始的数据：取文件夹里表1的1月C15:C259的数据
3、模块2中L213:IV213单元格开始的数据：取文件夹里表1的1月D15:D259的数据
4、以此类推…
5、模块2中L420:IV420单元格开始的数据：取文件夹里表1的2月C15:C259的数据
6、模块2中L421:IV421单元格开始的数据：取文件夹里表1的2月D15:D259的数据
7、以此类推…

zmj9151

不打开数据源就无法取数

opel-wong

看你这描述，难度不大，就是需要费些时间，，
  
有空再说吧，，

donghui2363

Sub 取数()
Dim wd As Workbook, ws As Worksheet
Dim cnn, sql$
Set cnn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
Set ws = ActiveSheet
Set wd = ThisWorkbook
'------------------------
    mydir = Dir(ThisWorkbook.Path & "\数据源\" & "*.xlsx")
    Do While mydir <> ""
        If mydir = "表1.xlsx" Then
           cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.Path & "\数据源\" & mydir
           sql = "select * from[1月$g15:g250]"
           Set rs = cnn.Execute(sql)
           ws.Range("ac6").CopyFromRecordset rs
        End If
    mydir = Dir
    Loop
End Sub
这是在p3表取1月工作表g15:g250的数据

kulagen

donghui2363 发表于 2019-9-6 13:42
Sub 取数()
Dim wd As Workbook, ws As Worksheet
Dim cnn, sql$

谢谢 能取；但是我取的是1-12月的数据；我自己按你复制黏贴 ；能不能优化？？？；好像也不对

Sub 取数P3()
Dim wd As Workbook, ws As Worksheet
Dim cnn, aa, ab, ac, ad, ae, af, ag, ah, ai, aj, ak, al$
Set cnn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
Set ws = ActiveSheet
Set wd = ThisWorkbook
'------------------------
    mydir = Dir(ThisWorkbook.Path & "\数据源\" & "*.xlsx")
    Do While mydir <> ""
        If mydir = "表1.xlsx" Then
           cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.Path & "\数据源\" & mydir
           aa = "select * from[1月$g15:g250]"
           Set rs = cnn.Execute(aa)
           ws.Range("ac6").CopyFromRecordset rs
           
           ab = "select * from[2月$g15:g250]"
           Set rs = cnn.Execute(ab)
           ws.Range("ad6").CopyFromRecordset rs
           
            ac = "select * from[3月$g15:g250]"
           Set rs = cnn.Execute(ac)
           ws.Range("ae6").CopyFromRecordset rs
           
            ad = "select * from[4月$g15:g250]"
           Set rs = cnn.Execute(ad)
           ws.Range("af6").CopyFromRecordset rs
           
            ae = "select * from[5月$g15:g250]"
           Set rs = cnn.Execute(ae)
           ws.Range("ag6").CopyFromRecordset rs
           
            af = "select * from[6月$g15:g250]"
           Set rs = cnn.Execute(af)
           ws.Range("ah6").CopyFromRecordset rs
           
            ag = "select * from[7月$g15:g250]"
           Set rs = cnn.Execute(ag)
           ws.Range("ai6").CopyFromRecordset rs
           
            ah = "select * from[8月$g15:g250]"
           Set rs = cnn.Execute(ah)
           ws.Range("ad6").CopyFromRecordset rs
           
            ai = "select * from[9月$g15:g250]"
           Set rs = cnn.Execute(ai)
           ws.Range("aj6").CopyFromRecordset rs
           
               aj = "select * from[10月$g15:g250]"
           Set rs = cnn.Execute(aj)
           ws.Range("ak6").CopyFromRecordset rs
           
               ak = "select * from[11月$g15:g250]"
           Set rs = cnn.Execute(ak)
           ws.Range("al6").CopyFromRecordset rs
           
               al = "select * from[12月$g15:g250]"
           Set rs = cnn.Execute(al)
           ws.Range("am6").CopyFromRecordset rs
           
        End If
    mydir = Dir
    Loop
End Sub

kulagen

opel-wong 发表于 2019-9-6 08:33
看你这描述，难度不大，就是需要费些时间，，
  
有空再说吧，，

谢谢 抽空帮忙看看

kulagen

zmj9151 发表于 2019-9-6 07:58
不打开数据源就无法取数

可以的 ；就看你怎么弄

donghui2363

Sub 取数()
Dim wd As Workbook, ws As Worksheet
Dim cnn, sql$
Set cnn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
Set ws = ActiveSheet
Set wd = ThisWorkbook
'------------------------
    mydir = Dir(ThisWorkbook.Path & "\数据源\" & "*.xlsx")
    Do While mydir <> ""
        If mydir = "表1.xlsx" Then
           cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.Path & "\数据源\" & mydir
           For i = 1 To 12
            x = i & "月"
            sql = "select * from [" & x & "$g15:g259]"
            Set rs = cnn.Execute(sql)
            ws.Range("ab6").Offset(0, i).CopyFromRecordset rs
           Next i
        End If
    mydir = Dir
    Loop
End Sub
p3表取12个月的

kulagen

donghui2363 发表于 2019-9-6 15:21
Sub 取数()
Dim wd As Workbook, ws As Worksheet
Dim cnn, sql$

谢谢 ；逻辑对上了

kulagen

donghui2363 发表于 2019-9-6 15:21
Sub 取数()
Dim wd As Workbook, ws As Worksheet
Dim cnn, sql$

第一和第五怎么解？