不打开CSV表，用VBA进行查询

Curry_Chen

查询表中CellID为ADD TCELL.CSV表中的CellID（剔除CellID为50006-50010），CELLPARAID来自ADD TCELL.CSV表中，PCCPCHPOWER来自ADD TPCCPCH.CSV表中，怎样从ADD TCELL.CSV和ADD TPCCPCH.CSV表中提取信息放到查询表中，谢谢！！！
查询.zip (146.09 KB, 下载次数: 56)

2015-1-18 13:55 上传

点击文件名下载附件

该贴已经同步到 Curry_Chen的微博

liu-aguang

1. Sub test()
   
2.     Dim rst As New ADODB.Recordset
   
3.     Dim strRst$, Sql$
   
4.     strRst = "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & _
   
5.         ";Extended Properties=Text;"
   
6.     Sql = "select a.CELLID,a.CELLPARAID,b.PCCPCHPOWER From " & _
   
7.     "[ADD TCELL.csv] a LEFT JOIN [ADD TPCCPCH.csv] b ON a.CELLID=b.CELLID"
   
8.     rst.Open Sql, strRst, adOpenDynamic, adLockOptimistic, adCmdText
   
9.     rst.Filter = "CELLID<50006 or CELLID>50010"
   
10.     Range("a2").CopyFromRecordset rst
    
11.     rst.Close
    
12.     Set rst = Nothing
    
13. End Sub
    

复制代码

Curry_Chen

liu-aguang 发表于 2015-1-18 15:30

非常感谢liu-aguang老师！！！

Curry_Chen

liu-aguang 发表于 2015-1-18 15:30

liu-aguang

Curry_Chen 发表于 2015-1-18 16:08

ABE-工具-引用-Microsoft ActiveX Data Objects 2.8 Library
如果是EXCEL2007或英文版,最好同时引用Microsoft ActiveX Data Objects Recordset 2.8 Library

Curry_Chen

liu-aguang 发表于 2015-1-18 16:12
ABE-工具-引用-Microsoft ActiveX Data Objects 2.8 Library
如果是EXCEL2007或英文版,最好同时引用Mic ...

还有两个问题麻烦请教：
1、如果我想根据CellID从更多的表格里查询更多的信息的话，也可以用这种方法嘛？
2、这方面查询知识该从哪学起，想完整的学习一遍？
谢谢！！！

liu-aguang

Curry_Chen 发表于 2015-1-18 16:23
还有两个问题麻烦请教：
1、如果我想根据CellID从更多的表格里查询更多的信息的话，也可以用这种方法嘛？ ...

可以.
这是ADO方式,涉及的知识很多;建义先学习VBA的知识,有一定基础后再去学ADO.俺也是刚刚在摸索.

liu-aguang

Curry_Chen 发表于 2015-1-18 16:23
还有两个问题麻烦请教：
1、如果我想根据CellID从更多的表格里查询更多的信息的话，也可以用这种方法嘛？ ...

代码还可以修改一下,也许速度会快一点:

1. Sub test()
   
2.     Dim rst As New ADODB.Recordset
   
3.     Dim strRst$, Sql$
   
4.     strRst = "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & _
   
5.         ";Extended Properties=Text;"
   
6.     Sql = "select a.CELLID,a.CELLPARAID,b.PCCPCHPOWER From " & _
   
7.     "[ADD TCELL.csv] a LEFT JOIN [ADD TPCCPCH.csv] b ON a.CELLID=b.CELLID Where not a.CELLID BETWEEN 50006 and 50010 Order by a.CELLID"
   
8.     rst.Open Sql, strRst, adOpenDynamic, adLockOptimistic, adCmdText
   
9.     Range("a2").CopyFromRecordset rst
   
10.     rst.Close
    
11.     Set rst = Nothing
    
12. End Sub
    

复制代码

Curry_Chen

liu-aguang 发表于 2015-1-18 16:57
代码还可以修改一下,也许速度会快一点:

谢谢老师了！！辛苦！！