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