能詳細(xì)指點(diǎn)些嗎？

如果結(jié)構(gòu)相同,代碼如下:你把文件名改一下就行了.

 Dim xlsstr As String, mdbString As String
 xlsstr = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties='DSN=Excel Files;DBQ=" & App.Path & "\Book1.xls';DriverId=1046;MaxBufferSize=2048;PageTimeout=5;"
 mdbString = "Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source=" & App.Path & "\db.mdb;Persist Security Info=True"
 
 Dim cnnXls As New ADODB.Connection, cnnMDB As New ADODB.Connection
 cnnXls.Open xlsstr
 cnnMDB.Open mdbString
 
Dim rsxls As New ADODB.Recordset, rsmdb As New ADODB.Recordset
rsxls.Open "select * from [sheet1$]", cnnXls

rsmdb.Open "select top 1 * from tb ", cnnMDB, adOpenKeyset, adLockReadOnly
Dim i As Integer

Do Until rsxls.EOF
    rsmdb.AddNew
    For i = 0 To rsmdb.Fields.Count - 1
        rsmdb.Fields(i) = rsxls.Fields(i)
    Next
    rsmdb.Update
    rsxls.MoveNext
 Loop
rsmdb.Close
rsxls.Close

其實(shí)方法我已經(jīng)找到了，只是這樣的方法如何Excel的數(shù)據(jù)量很大，顯得非常的緩慢，容易給人造成沒(méi)有響應(yīng)的認(rèn)為，有沒(méi)有快速的方法？比如從數(shù)據(jù)庫(kù)導(dǎo)出到Excel使用CopyFromRecordset

我上面的方法不會(huì)太慢。ado不慢，如果用excel.application，會(huì)慢很多。

如果的確數(shù)據(jù)量很大，可以加個(gè)進(jìn)度條，doevents一下就不會(huì)死了。

我只是用了一個(gè)2003的測(cè)試了一下，我的系統(tǒng)是2007的，另存2003的。

說(shuō)來(lái)太煩，遠(yuǎn)程方便。