如何批量提取表格中的数据？

Fushuic

附件 批量提取表格数据.rar (162.59 KB, 下载次数: 25)

2013-2-28 17:53 上传

点击文件名下载附件

谢谢！

zhaogang1960

Fushuic 发表于 2013-2-28 19:06
老师您好！谢谢您帮助。试了一下，很给力。

但当我增加到4张表格或更多时，仍是只读取三张表格。第4张 ...

1. Sub 宏1()
   
2.     Dim cnn As Object, SQL$, arr, p$, f$, n&, i&
   
3.     p = ThisWorkbook.Path & "\数据文件"
   
4.     arr = Range("A3:C" & Range("A" & Rows.Count).End(xlUp).Row)
   
5.     n = 12
   
6.     [l:v] = ""
   
7.     For i = 1 To UBound(arr)
   
8.         f = p & arr(i, 1) & ".xlsx"
   
9.         If Dir(f) <> "" Then
   
10.             If i = 1 Then
    
11.                 Set cnn = CreateObject("adodb.connection")
    
12.                 cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='excel 12.0;hdr=no';Data Source=" & f
    
13.                 SQL = "select * from [Sheet1$a" & arr(i, 2) & ":c" & arr(i, 3) & "]"
    
14.             Else
    
15.                 SQL = "select * from [Excel 12.0;hdr=no;Database=" & f & "].[Sheet1$a" & arr(i, 2) & ":c" & arr(i, 3) & "]"
    
16.             End If
    
17.             Cells(1, n).CopyFromRecordset cnn.Execute(SQL)
    
18.             n = n + 4
    
19.         End If
    
20.     Next
    
21.     cnn.Close
    
22.     Set cnn = Nothing
    
23. End Sub
    

复制代码

zhaogang1960

ADO法请测试:

1. Sub 宏1()
   
2.     Dim cnn As Object, SQL$,arr, p$, f$, n&, i&
   
3.     p = ThisWorkbook.Path & "\数据文件"
   
4.     arr = Range("A3:C5")
   
5.     n = 12
   
6.     [l:v] = ""
   
7.     For i = 1 To 3
   
8.         f = p & arr(i, 1) & ".xlsx"
   
9.         If Dir(f) <> "" Then
   
10.             If i = 1 Then
    
11.                 Set cnn = CreateObject("adodb.connection")
    
12.                 cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='excel 12.0;hdr=no';Data Source=" & f
    
13.                 SQL = "select * from [Sheet1$a" & arr(i, 2) & ":c" & arr(i, 3) & "]"
    
14.             Else
    
15.                 SQL = "select * from [Excel 12.0;hdr=no;Database=" & f & "].[Sheet1$a" & arr(i, 2) & ":c" & arr(i, 3) & "]"
    
16.             End If
    
17.             Cells(1, n).CopyFromRecordset cnn.Execute(SQL)
    
18.             n = n + 4
    
19.         End If
    
20.     Next
    
21.     cnn.Close
    
22.     Set cnn = Nothing
    
23. End Sub

复制代码

zhaogang1960

请看附件
批量提取表格数据.rar (174.35 KB, 下载次数: 28)

2013-2-28 18:53 上传

点击文件名下载附件

Fushuic

zhaogang1960 发表于 2013-2-28 18:53
请看附件

老师您好！谢谢您帮助。试了一下，很给力。

但当我增加到4张表格或更多时，仍是只读取三张表格。第4张表格，没有动静。

数据文件 夹下的表格，是个变数，有时候多，有时候少。

greenboater

SQL没用过。。呵呵

LMY123

SQL = "select * from [Excel 12.0;hdr=no;Database=" & f & "].[Sheet1$a" & arr(i, 2) & ":c" & arr(i, 3) & "]"