请教VBA如何与excel,acess进行连接??

simon_hbedi

Taoyimaier

认真找吧，很容易就会找到的

efan2000

VBA可以有两种方式来与excel,acess进行连接。
1、使用OLE方式，即启动相应的应该程序，通过其COM接口来控制。这种方式需要熟悉它的接口，即对象体系。功能强大，但真正掌握需要一段时日。
2、做为数据库看待，即通过数据连接组件，以类似访问其它数据库的途径来控制。这种方式需要熟悉结构化查询语言SQL。只能实现一般的数据操作，但是通用性好，其它数据库如SQL Server和Oracle都兼容SQL。

dazhangyu

efan2000版主,能不能具体点呢？for example.........
我也正想解决这个问题呢！

dazhangyu

或者提供一些这方面的资料，那样我会自己去找一个很安静的地方，不会再烦劳版主了，当然如果没看明白的话，我还会来的哟！

bluemoon

前面我不是做了个例子吗 你没看到？

efan2000

2. 
   
3. 
   
4. Sub Test_Excel()
   
5.     Dim cn As New ADODB.Connection
   
6.     Dim rs As New ADODB.Recordset
   
7.     cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
   
8.         "Data Source=C:\Book1.xls;" & _
   
9.         "Extended Properties=""Excel 8.0;"
   
10.     rs.Open "Select * from [Sheet1$]", cn, adOpenStatic
    
11.    
    
12.     ' 或者通过OLE
    
13.     Dim xl As Excel.Application
    
14.     Set xl = CreateObject("Excel.Application")
    
15. End Sub
    
16. 
    
17. Sub Test_Access()
    
18.     Dim cn As New ADODB.Connection
    
19.     Dim rs As New ADODB.Recordset
    
20.     cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    
21.         "Data Source=C:\db1.mdb;"
    
22.     rs.Open "Select * from Table", cn, adOpenStatic
    
23.    
    
24.     ' 或者通过OLE
    
25.     Dim ac As Access.Application
    
26.     Set ac = CreateObject("Access.Application")
    
27. End Sub
    

<br /> <br /> Sub Test_Excel()<br />     Dim cn As New ADODB.Connection<br />     Dim rs As New ADODB.Recordset<br />     cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _<br />         "Data Source=C:\Book1.xls;" & _<br />         "Extended Properties=""Excel 8.0;"<br />     rs.Open "Select * from [Sheet1$]", cn, adOpenStatic<br />     <br />     ' 或者通过OLE<br />     Dim xl As Excel.Application<br />     Set xl = CreateObject("Excel.Application")<br /> End Sub<br /> <br /> Sub Test_Access()<br />     Dim cn As New ADODB.Connection<br />     Dim rs As New ADODB.Recordset<br />     cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _<br />         "Data Source=C:\db1.mdb;"<br />     rs.Open "Select * from Table", cn, adOpenStatic<br />     <br />     ' 或者通过OLE<br />     Dim ac As Access.Application<br />     Set ac = CreateObject("Access.Application")<br /> End Sub<br />