Workbook = xl.CreateWriterFromTemplate(File.DirAssets, "Template.xlsx")
Dim sheet As XLSheetWriter = Workbook.CreateSheetWriterByName("Sheet1")
For i = 0 To CustomListView1.Size - 1
Dim item() As Object = CustomListView1.GetValue(i)
sheet.PutString(xl.AddressOne("B", 3 + i), item(0))
sheet.PutNumber(xl.AddressOne("C", 3 + i), item(1))
Next
Dim LastRow1 As Int = sheet.LastAccessed.Row0Based + 1
Workbook.AddNamedRange("Item", xl.CreateXLRangeWithSheet(xl.AddressName("B3"), xl.AddressOne("B", LastRow1), sheet.PoiSheet)) 'overwrite the name range
Workbook.AddNamedRange("Amount", xl.CreateXLRangeWithSheet(xl.AddressName("C3"), xl.AddressOne("C", LastRow1), sheet.PoiSheet))
Dim f As String = FileChooser.ShowSave(B4XPages.GetNativeParent(Me))
If f <> "" Then
f = Workbook.SaveAs(f, "", True)
xl.OpenExcel(f)
CustomListView1.Clear
End If
End Sub