For i = 0 To Table.Columns.Size - 1
Dim c As B4XTableColumn = Table.Columns.Get(i)
Dim Cn As String = c.Title
Dim cell As WritableCell
cell.InitializeText(i, 0, Cn)
cell.SetCellFormat(cellFormat)
sheet1.AddCell(cell)
'sheet1.SetColumnWidth(i, 15)
Dim jsheet As JavaObject = sheet1
Dim jcell As JavaObject = jsheet.RunMethod("getColumnView", Array(i))'= sheet1.RunMethod("getColumnView", Array(i))
jcell.RunMethod("setAutoSize", Array(True))
jsheet.RunMethod("setColumnView", Array(i, jcell))
Next