Private Workbook1 As ReadableWorkbook
Private Sheet1 As ReadableSheet
Workbook1.Initialize(File.DirAssets, "test.xls")
Sheet1 = Workbook1.GetSheet(0)
Table1.InitializeTable(Sheet1.ColumnsCount, Gravity.CENTER, False)
For row = 0 To Sheet1.RowsCount - 1
Private values(Sheet1.ColumnsCount) As String
For col = 0 To Sheet1.ColumnsCount - 1
values(col) = Sheet1.GetCellValue(col, row)
Next
If row = 0 Then
Table1.SetHeader(values)
Table1.SetAutomaticWidths
Else
Table1.AddRowAutomaticWidth(values)
End If
Next