散分啊......怎么把数据库里的数据导到Excel里去啊???~~~~~~

Question

这是偶们老师示范的,但好象不行,请高手指点!!!!Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strconn
Dim strcoon1
Dim strsql
Dim strsql1strconn1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\综合设计\高速公路收费系统\db.mdb;Persist Security Info=False"
strsql1 = "select * from 收费明细表"
conn.Open strconn1
rs.Open strsql1, conn, 1, 3
i = rs.Source
MsgBox i
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\综合设计\高速公路管理系统\backup.xls;Extended Properties=excel 8.0;Persist Security Info=False"
strsql = "insert into [sheet1$] values (i)"rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing

Answer 1

'將數據導出 mdb﹐成為Excel文件
Private Sub Command3_Click()
 conn.Execute "select * into [Excel 8.0;database=e:\test\test4.xls].[test4] from Phonebook"
 Unload Me
End Sub

Answer 2

原因是你已经用Select Into建立了这个表