用ＡＤＯ打开ＥＸＣＥＬ、ＴＸＴ

Question

等微軟件的下一版本ADO吧
........
不過在等的這段時間不妨討論一下其它方法用VBA命令打開EXCEL表,對它進行讀取就行了,讀完后關閉
TXT文件那你就得一點一點讀了,如果很有規律,把它轉到EXCEL或ACCESS甚麼的里面,再行讀取了

Answer 1

可以得ado是基于uda的程序级接口什么数据都是可以得你用ole db不能连接就用odbc 连接
完全可以！！！

Answer 2

我就操作过excel，不过是很久以前了

Answer 3

shawls(小山(坚持VB,学VB.net和C#)) ＯＤＢＣ使用自由方式的连接串该如何？给个例子

Answer 4

这个很难,里面的odbc api太多了,最好找一本书,有一本美国idg出的叫
<<vb6 数据库编程大全>>的书上有详细的介绍

Answer 5

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordsetcn.Open " Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
          " Dbq=" & ReadPath & ";" & _
          " Extensions=asc,csv,tab,txt;hdr=no"

Answer 6

http://www.csdn.net/expert/topic/352/352686.xml?temp=.5530817
http://www.csdn.net/Expert/topicview.asp?id=536540

Answer 7

Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(sExcelPath, True, False, "Excel 5.0")

Answer 8

以下应该对你有用
Text 转换为 Access MDB
Text 文件类型在很多软件中都为一般应用程序与数据库之间架起一座桥梁。你可以使用 Text ISAM 驱动程序和 SQL 来把 Text 文件转换成 Access MDB 数据库文件，首先，为文本文件创建一个 SCHEMA.INI 文件。然后，你可以使用下面的代码来实现转换： 
Dim db As Database, tbl as TableDef Set db = DBEngine.CreateDatabase(App.Path & "\mymdb.mdb", dbLangGeneral, dbVersion_0) Set tbl = db.CreateTableDef("Temp") tbl.Connect = "Text;database=c:\vbpj\data" tbl.SourceTableName = "Customer#txt" db.TableDefs.Append tbl db.Execute "Select Temp.* into NewTable from Temp" db.TableDefs.Delete tbl.Name db.Close Set tbl = Nothing Set db = Nothing

Answer 9

Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(sExcelPath, True, False, "Excel 5.0") 
 
那rs怎么引用？