请问在VB中如何新建一个Excel文件?

Question

我有一个程序，把我所查询的记录集导出成Excel但是它必需选择已经存在的Excel表，请问如何新建一个表?

Answer 1

Dim objExcelApp2 As Excel.Application
Dim objExcelBook2 As Excel.Workbook
Dim objExcelSheet2 As Excel.SheetsDim objExcelApp1 As Excel.Application
Dim objExcelBook1 As Excel.Workbook
Dim objExcelSheet1 As Excel.SheetsSet objExcelApp2 = New Excel.Application
objExcelApp2.Visible = FalseSet objExcelBook2 = Nothing
Set objExcelSheet2 = Nothing
Set objExcelBook2 = objExcelApp2.Workbooks.Open(App.Path & "\book2.xls")Set objExcelApp1 = New Excel.Application
objExcelApp1.Visible = FalseSet objExcelBook1 = Nothing
Set objExcelSheet1 = Nothing
Set objExcelBook1 = objExcelApp1.Workbooks.Open(App.Path & "\book1.xls")