XPages在SSJS中创建Excel

Question

我想在SSJS中创建一个excel文件.它在LotusScript中是相同的(你可以在这个问题的底部找到代码示例.)我开始这个但我还没有完成它:(

var response = facesContext.getExternalContext().getResponse(); 
var DataWriter = facesContext.getResponseWriter(); 
response.setContentType("application/vnd.ms-excel");
response.setHeader("Cache-Control", "no-cache");
response.setHeader("Content-Disposition","attachment; filename='ExportedExcel1.xls'");

DataWriter.write("Denenee");
DataWriter.endDocument();



xlsFile =Environ("Temp") & "\firstExcel.xls"
Call object.ExtractFile( xlsFile )
Set excelappl = Nothing
Set excelappl = CreateObject("Excel.Application")
ver$ = excelappl.Version    
Select Case Left(ver$,2)
Case "9.":
Set excelappl = CreateObject( "Excel.Application.9" )       
Case "10":
Set excelappl = CreateObject( "Excel.Application.10" )      
Case "11":
Set excelappl = CreateObject( "Excel.Application.11" )      
Case "12":
Set excelappl = CreateObject( "Excel.Application.12" )  
Case "13":
Set excelappl = CreateObject( "Excel.Application.13" )  
End Select
excelappl.visible = False
Set wb = excelappl.Workbooks.Open(xlsFile)
If wb Is Nothing Then
Error 10003, "Hata: Dosya bulunamad?."
End If
Set excelSheet = excelappl.workbooks(1).Worksheets(1)
Call excelsheet.Activate
row = 1

Answer 1

XPages的SSJS在服务器上运行.CreateObject("Excel.Application")在服务器上使用像LotusScript这样的OLE对象并不是一个好主意.

请改用POI 4 XPages.它允许您以批准的方式创建Excel文件.