conn.Execute "Select 字段名 INTO [Excel 8.0;DATABASE=" & App.Path & "\电子表格.xls].[工作表] From 数据表 "
Dim path
path="D:\123.xls"
Set Excel = createobject("Excel.Application")
Excel.visible = true
Excel.workbooks.Add
Excel.ActiveWorkBook.Saveas path
Excel.quit