请问如何把ACCESS数据库的内容导入EXCEL中去？

源代码网整理以下 "需引用Microsoft ActiveX Data Objects 2.7 Library
Dim Export_Str As String
Dim conn As New ADODB.Connection
conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C: emp1.mdb;"
Export_Str = "select * into [Excel 8.0;database=C:Book1.xls].[sheet1] from tempA"
conn.Execute Export_Str