有什么比较好的方法能连接到excel表上面去.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 14 行

可以使用ado直接调用EXCEL的数据，而不需要使用ACCESS。 
    Dim oConn As New ADODB.Connection 
    Dim oRS As New ADODB.Recordset 
    oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
     "Data Source=C:\Book1.xls;" & _ 
     "Extended Properties=""Excel 8.0;""" 
    oRS.Open "Select * from [Sheet1$]", oConn, adOpenStatic '打开Sheet1，也可以是定义的名称，或一个Range。 
    .. 
    .. 
    .. 
    oRS.Close 
    oConn.Close 
<END>