将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