Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Set xlApp = New Excel.Application 'Set xlBook = xlApp.Workbooks.Open("C:\Book1.xls")'打开已存在的文件 Set XlBook=xlApp.Workbooks.Add'新建Sheet ...... xlBook.Close False xlApp.Quit Set xlBook = Nothing Set xlApp = Nothing
Dim xlBook As Excel.Workbook
Set xlApp = New Excel.Application
'Set xlBook = xlApp.Workbooks.Open("C:\Book1.xls")'打开已存在的文件
Set XlBook=xlApp.Workbooks.Add'新建Sheet
......
xlBook.Close False
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing