文件数据读取问题

tokem

各位大侠,小弟求助文件内数据的读取.
如何抓取批量文件中的相关数据?
如附件所示.
Test_data.rar (16.36 KB, 下载次数: 9)

2014-3-25 22:34 上传

点击文件名下载附件

zhaogang1960

ADO法请参考：

1. Sub Macro1()
   
2.     Dim cnn As Object, SQL$, MyPath$, MyFile$, n%, arr, brr(1 To 60000, 1 To 6), i&, c, d As Object
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = [a1].CurrentRegion
   
5.     For i = 3 To UBound(arr, 2) Step 2
   
6.         d(arr(1, i)) = i
   
7.     Next
   
8.     MyPath = ThisWorkbook.Path & ""
   
9.     MyFile = Dir(MyPath & "*.xls")
   
10.     Application.ScreenUpdating = False
    
11.     Do While MyFile <> ""
    
12.         If MyFile <> ThisWorkbook.Name Then
    
13.             n = n + 1
    
14.             If n = 1 Then
    
15.                 Set cnn = CreateObject("adodb.connection")
    
16.                 cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='excel 8.0;hdr=no';Data Source=" & MyPath & MyFile
    
17.                 SQL = "select * from [Sheet1$]"
    
18.             Else
    
19.                 SQL = "select * from [Excel 8.0;hdr=no;Database=" & MyPath & MyFile & ";].[Sheet1$]"
    
20.             End If
    
21.             arr = cnn.Execute(SQL).GetRows
    
22.             brr(n, 1) = Replace(MyFile, ".xls", "")
    
23.             For i = 1 To UBound(arr)
    
24.                 c = d(arr(i, 0))
    
25.                 If c <> "" Then
    
26.                     brr(n, c) = arr(i, 1)
    
27.                     brr(n, c + 1) = arr(i, 2)
    
28.                 End If
    
29.             Next
    
30.         End If
    
31.         MyFile = Dir()
    
32.     Loop
    
33.     ActiveSheet.UsedRange.Offset(2).ClearContents
    
34.     [a3].Resize(n, 6) = brr
    
35.     cnn.Close
    
36.     Set cnn = Nothing
    
37.     Application.ScreenUpdating = True
    
38. End Sub
    

复制代码

zhaogang1960

请测试附件
Test_data.rar (20.97 KB, 下载次数: 18)

2014-3-25 23:17 上传

点击文件名下载附件

tokem

zhaogang1960 发表于 2014-3-25 23:17
ADO法请参考：

非常感谢. ADO法可以用在EXCEL2007上吗？
filesearch方法好像不能用在VBA2007上。

zhaogang1960

tokem 发表于 2014-3-26 18:51
非常感谢. ADO法可以用在EXCEL2007上吗？
filesearch方法好像不能用在VBA2007上。

ADO法可以用在EXCEL2007上：
cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Extended Properties='excel 12.0;hdr=no';Data Source=" & MyPath & MyFile

tokem

zhaogang1960 发表于 2014-3-26 19:36
ADO法可以用在EXCEL2007上：
cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Extended Properties='excel ...

非常感谢! 有关于ADO方法和字典的快速入门电子书吗?

zhaogang1960

tokem 发表于 2014-3-26 21:12
非常感谢! 有关于ADO方法和字典的快速入门电子书吗?

字典方面的书籍还真没有见过，不过论坛上有很多字典方面的知识
ADO+VBA推荐：
ExcelVBA整合数据库应用从基础到实践
ExcelVBA与数据库整合应用范例精讲

tokem

zhaogang1960 发表于 2014-3-26 19:36
ADO法可以用在EXCEL2007上：
cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Extended Properties='excel ...

非常感谢! 有关于ADO方法和字典的快速入门电子书吗?

tokem

zhaogang1960 发表于 2014-3-25 23:18
请测试附件

再多请教个问题：
如果将附件中的total文档作为一个输出模板，而VBA程序在另外的一个EXCEL中？运行该EXCEL中的VBA程序后，会自动输出一个total文档。
这如何实现呢？ 如果total中的数据，包括title总体从第十行开始，如何实现呢？
先谢谢啦。

tokem

zhaogang1960 发表于 2014-3-26 21:15
字典方面的书籍还真没有见过，不过论坛上有很多字典方面的知识
ADO+VBA推荐：
ExcelVBA整合数据库应用从 ...

谢谢啦。VBA真是博大精深啊。