Source code

Option Explicit

'
'  Demo for Excel access via JExcel 
'
'  Migrated from Java to Jabaco from 
'  http://www.tutorials.de/forum/java/267257-kleines-beispiel-zur-jexcel-api.html
'
'  JExcel:  http://jexcelapi.sourceforge.net/
'
'  Download JExcel distribution from URL above and add jxl.jar to
'  Jabaco classpath (press F1)


' import java.io.File;
' import java.util.Date;

' import jxl.Workbook;
' import jxl.write.DateFormats;
' import jxl.write.DateTime;
' import jxl.write.Label;
' import jxl.write.Number;
' import jxl.write.NumberFormats;
' import jxl.write.WritableCellFormat;
' import jxl.write.WritableSheet;
' import jxl.write.WritableWorkbook;

 
Public Sub ExcelDemo
   Dim workbook As jxl#write#WritableWorkbook 
   Dim testSheet As jxl#write#WritableSheet 
   Dim file As java#io#File 
   Dim numberFormat As jxl#write#WritableCellFormat 
   Dim dateFormat As jxl#write#WritableCellFormat 
   Dim number As jxl#write#Number 
   Dim dateCell As jxl#write#DateTime 
   
   Dim fileName As String 
   Dim currentColumn As Integer = 0
   Dim currentRow As Integer = 0
   
   fileName = system.getenv("TEMP") & "\text-jexcel1.xls"
   file = New java#io#File(fileName)
   
   workbook = jxl#Workbook.createWorkbook(file)

   testSheet = workbook.createSheet("test", 0)

   numberFormat = New jxl#write#WritableCellFormat(jxl#write#NumberFormats.FLOAT)

   number = New jxl#write#Number(currentColumn, currentRow, 12345.0, numberFormat)
   currentColumn = currentColumn + 1

   testSheet.addCell(number)

   testSheet.addCell(New jxl#write#Label(currentColumn, currentRow, "TEST"))
   currentColumn = currentColumn + 1

   dateFormat = New WritableCellFormat(jxl#write#DateFormats.DEFAULT)

'  the following line leads to a Jabaco compile error
   dateCell = New jxl#write#DateTime(currentColumn, currentRow, New java#util#Date(), dateFormat)
   currentColumn = currentColumn + 1

   testSheet.addCell(dateCell)

   workbook.write

   workbook.close
End Sub

Source code

myDate = Conversion.CDate("03.02.2009");
dateCell = new DateTime(currentColumn, currentRow, myDate, (CellFormat)dateFormat);
 

Jabaco Source

'  Download JExcel distribution from URL above and add jxl.jar to
'  Jabaco classpath (press F1)