Excel不引用DAO直接对Access数据库操作

盗梦

一般Excel要读写Access数据库，需要引用DAO或ADO数据库操作组件以下方法 是不引用DAO对数据库操作 （摘录自网络）  

1. 
   
2. Sub DaoWithoutReferences()       '定义变量.      
   
3.     Dim dbEng As Object      
   
4.    Dim Db As Object      
   
5.    Dim Rs As Object       '使用OLE方式创建dbEngine对象。Set the dbEng object using OLE      
   
6.    Set dbEng = CreateObject("DAO.DBEngine")      
   
7.    'NOTE: In Microsoft Excel 97, use this line of code instead of the       'above line of code:       '      
   
8.    '   Set dbEng = CreateObject("DAO.DBEngine.35")       '打开数据库 Open a database. Note that the statement contains the dbEng object.      
   
9.      Set Db = _           
   
10.         dbEng.workspaces(0).opendatabase("c:\MSOffice\Access" & _           
    
11.          "Samples\Northwind.mdb")       '在数据库中打开记录信 Open a recordset in the database.      
    
12.          Set Rs = Db.openrecordset("Customers")      
    
13.          '获取数据库记录数 Perform a move last and find the number of records       'in the database to test if the operation worked.      
    
14.           Rs.movelast      
    
15.            MsgBox Rs.recordcount      
    
16.           Set Rs = Nothing      
    
17.          Set Db = Nothing      
    
18.          Set dbEng = Nothing   
    
19. End Sub               
    

复制代码

fatman

谢谢您的分享！