File.Copy(File.DirAssets,"book1.xlsx",File.DirInternal,"book1.xlsx")
xls.Initialize("",File.Combine(File.DirInternal,"book1.xlsx"))
Log($"ActiveSheetIndex=${xls.ActiveSheetIndex}"$)
Dim sheet As XLSSheet = xls.getSheetAt(xls.ActiveSheetIndex)
Log($"ActiveSheet.ActiveCell=${sheet.ActiveCell}"$)
Log($"ActiveSheet.hasComments=${sheet.hasComments}"$)
Dim firstrow As Int = sheet.FirstRowNum
Dim lastrow As Int = sheet.LastRowNum
Log($"Row FirstRow=${firstrow}, LastRow=${lastrow}"$)
For i= firstrow To lastrow
Dim row As XSSFRow =sheet.getRow(i)
'Log(row)
Dim firstcell As Int = row.FirstCellNum
Dim lastcell As Int = row.LastCellNum
Log($"Row #${i} FirstCell=${row.FirstCellNum}, LastCell=${row.LastCellNum}"$)
' If i = 1 Then
' Dim cell As XSSFCell =row.getCell(13)
' cell.StringCellValue = "Test.pdf"
' End If
For o= firstcell To lastcell-1
Dim cell As XSSFCell =row.getCell(o)
Log($"Cell #${o}"$)
'Log(cell.IsInitialized)
If cell.IsInitialized Then
Log($"CellValueType=${cell.CellType}"$)
'Log("Raw:"&cell.RawValue)
If cell.CellType = 1 Then
Log(cell.StringCellValue)
else if cell.CellType = 0 Then
Log(cell.NumericCellValue)
End If
' Log(cell)
End If
'Log(row)
Next
Next
Dim row As XSSFRow = sheet.createRow(30)
Dim cell As XSSFCell =row.createCell(0)
cell.NumericCellValue = 29
Dim cell As XSSFCell =row.createCell(1)
cell.StringCellValue = "Erel Rocks"
Dim cell As XSSFCell =row.createCell(2)
cell.StringCellValue = "B4X :-)"
Dim cell As XSSFCell =row.createCell(3)
cell.NumericCellValue = 99
Dim cell As XSSFCell =row.createCell(4)
cell.NumericCellValue = 2019
Dim cell As XSSFCell =row.createCell(5)
cell.StringCellValue = "aPOI"
Dim cell As XSSFCell =row.createCell(6)
cell.NumericCellValue = 9.9
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
wait for Activity_PermissionResult (Permission As String, Result As Boolean)
If Result Then
Dim outstream As OutputStream = File.OpenOutput(File.DirRootExternal,"excelout.xlsx",False)
xls.write(outstream)
outstream.Close
End If
