关于用ado读excel表问题，急用，各位帮帮忙

Question

Private Sub Command1_Click()
Dim AdoCn As ADODB.Connection
Dim AdoRst As ADODB.Recordset
Set AdoCn = New ADODB.Connection
Set AdoRst = New ADODB.RecordsetAdoCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.mdb;Jet OLEDB:Database Persist Security Info=Fals"
AdoCn.Open
AdoRst.CursorLocation = adUseClient
AdoRst.CursorType = adOpenDynamic
AdoRst.LockType = adLockBatchOptimistic
AdoRst.ActiveConnection = AdoCnAdoRst.Open "select * from TestTable"
Debug.Print AdoRst.RecordCountEnd Sub

Answer 1

具体问题具体分析,Excel表格不规则也应该能读出数据吧

Answer 2

把我刚才发的代码连接字符串改改就针对excel了，但是没有测试过，不知道对不对。
Provider=AdsDSOObject;Password="",Encrypt Password=False;Data Source=Book1.xls;Location=c:\temp\;Mode=ReadWrite;Bind Flags=0;ADSI Flag=-2147483648