从SQL导出数据到Excel 怎么新建Excel

从SQL导出数据到Excel 如何新建Excel
从SQL导出数据到Excel   如何新建Excel到内存而不是到任何磁盘。
我建了个Excel，如果不指定路径文件他就会自动一book1为民保存到我的文档。
请教如何？

[解决办法]
Dim xlsApp As Object
Set xlsApp = CreateObject( "excel.application ")
dim xlsBook as object
set xlsbook=xlsapp.workbooks.add
dim xlsSheet as object
set xlssheet=xlsapp.worksheets.add
这样就是新建一个excel的book
如果要保存的话就用
xlsbook.saveas "路径以及文件名 "