江湖救济～如何用ADO方式连接EXCEL文件???

用ADO方式连接EXCEL文件 问题点数：50、回复次数：3Top

1 楼bluebill（天蓝蓝，海蓝蓝）回复于 2002-05-10 17:17:22 得分 0

最好再说详细一点儿？？Top

2 楼bluebill（天蓝蓝，海蓝蓝）回复于 2002-05-10 17:18:51 得分 35

试试这个！！！Dim   adoConnection   As   New   ADODB.Connection  
  Dim   adoRecordset   As   New   ADODB.Recordset  
  '非   DSN   ,ODBC   Provider   +   ODBC     Microsoft   Excel   Driver     连接:  
  adoConnection.Open   "Data   Provider=MSDASQL.1;driver=Microsoft   Excel   Driver   (*.xls);DBQ=e:\temp\book2.xls"    
  'adoConnection.Open   "Provider=Microsoft.Jet.OLEDB.3.51;Persist   Security   Info=False;Data   Source=e:\temp\book1.xls"  
  'adoRecordset.CursorLocation   =   adUseClient  
  adoRecordset.Open   "select   *   from   [sheet1$]",   adoConnection,   adOpenKeyset,   adLockOptimistic  
  Debug.Print   adoRecordset.RecordCount  
  Do   Until   adoRecordset.EOF  
        'For   i   =   0   To   adoRecordset.Fields.Count   -   1  
                Debug.Print   adoRecordset.Fields.Item(0).Name  
                Debug.Print   adoRecordset.Fields.Item(0).Value  
                adoRecordset.MoveNext  
        'Next   i  
  Loop  
   
   
  Top

3 楼N_chow（Yukon）回复于 2002-05-10 17:24:37 得分 15

http://www.csdn.net/Expert/TopicView1.asp?id=709589Top

相关问题

• 连接
• excel
• microsoft
• adorecordset
• adoconnection
• xls
• driver
• fields
• print
• provider

• 帖主：flyfang
• bluebill
• N_chow

• Visual Basic类图书
• Visual Basic类源码下载