VB将access数据库数据导出至excel的问题，求高手进呀!!

Question

我想把db1中的X1，X2，X3导出至用户可以自定义文件名的xls文件，并要求格式和已有文件book1.xls文件一致。db1中连接数据名为b1,引用ADO,并已用ADOcn联接数据库!哪位高手发个代码!!
上面的问题自行解决，现在出现一个新的问题，怎么用VB新建ACCESS数据库,引用已存在的数据表，要实现另存为!

Answer 1

Private Sub Command5_Click()
Dim rs As DAO.Recordset
Dim Filnum As Long
Dim Recnum As Long
Dim xlapp As Object

Set rs = Me.打印价签导出子窗体.Form.Recordset
Set xlapp = CreateObject("excel.application")
xlapp.Visible = True
xlapp.Workbooks.Open ("D:\购好超市\促销及价格管理\标签格式\促销标签打印格式--特价.xlsx")
Dim sheet As Object
Set sheet = xlapp.sheets("内容")
rs.MoveFirst
Recnum = 2
Do Until rs.EOF
For Filnum = 0 To rs.Fields.Count - 1
sheet.cells(Recnum, Filnum + 1) = rs.Fields(Filnum)
Next
Recnum = Recnum + 1
rs.MoveNext
Loop
Set sheet = xlapp.sheets("格式1")

sheet.cells(3, 3) = "12345678"
End Sub
这是从ACCESS里导出数据到EXCEL文件里，导出完成后，如何用代码关闭这个Excel文件？代码怎么写？
问题补充：xlapp.ActiveWorkbook.Close savechanges:=True
这样可以，但是这样仅仅关闭了这个EXCEL文件，EXCEL程序还没有关闭，就是那种没有打开任何一个工作薄的界面，所以如果这样重复导出很多次数据以后，就会出现很多没有打开任何工作薄的Excel程序！如何关闭工作簿的同时也关闭应用程序呢
xlapp.quit
set xlapp=nothing

Answer 2

csdn论坛。

Answer 3

再查查吧，我拿点分。