如何将DW中不同内容保存到EXCEL不同的SHEET当中？

如何将DW中不同内容保存到EXCEL不同的SHEET当中？（原创）
OLEObject excelapp
excelapp = CREATE OLEObject

IF excelapp.ConnectToNewObject("excel.application") <> 0 THEN
messageBox('OLE错误','OLE无法连接!请检查您的EXCEL是否正确安装！')
return
END IF

excelapp.Workbooks.Add
excelapp.DisplayAlerts = FALSE

excelapp.activeworkbook.worksheets[1].cells(1,1).value = "这是第一张SHEET"
excelapp.activeworkbook.worksheets[2].cells(1,1).value = "这是第二张SHEET"


excelapp.activeworkbook.worksheets[3].cells(1,1).value = "这是第三张SHEET"

//通过指定worksheets[1]中的参数1、2、3来设定到不同的sheet即可

excelapp.activeworkbook.saveas("c:\multisheet.xls",39)
excelapp.activeworkbook.close()
excelapp.quit()
excelapp.disconnectobject()

DESTROY excelapp

补充：如果想要添加一个SHEET，可以通过：

ExcelServer.Application.ActiveWorkbook.Worksheets.add() //此处添加一个SHEET
Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=322061