能否用vb的ado的方法访问excel文件.txt

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

Dim adoConnection As New ADODB.Connection 
    Dim adoRecordset As New ADODB.Recordset 
    'OLE DB + ODBC Driver 方 式 : 
    'adoConnection.Open "Data Provider=MSDASQL.1;driver=Microsoft Excel Driver (*.xls);DBQ=e:\temp\book2.xls" 
    'Microsoft.Jet.OLEDB.4.0 方 式 ,(建 议 ) 
    adoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=e:\temp\book2.xls;Extended Properties='Excel 8.0;HDR=Yes'" 
     
    adoRecordset.Open "select * from [sheet1$]", adoConnection, adOpenKeyset, adLockOptimistic 
    Debug.Print adoRecordset.RecordCount 
    Dim i As Integer 
    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 
     Next i 
     adoRecordset.MoveNext 
    Loop 
     
    '注 : OLE DB + ODBC Driver 方 式 不 支 持 以 下 语 句 ,但 Microsoft.Jet.OLEDB.4.0 方 式 支 持 ! 
    adoConnection.Execute "insert into [sheet1$](F1) values(3)" 
    adoRecordset.AddNew Array("f1", "f2", "f3", "f4"), Array(1, 2, 3, 4)