Sub LoadTable(Dir As String, FileName As String)
Dim workbook1 As ReadableWorkbook
Dim moviesSheet As ReadableSheet
workbook1.Initialize(Dir, FileName)
moviesSheet = workbook1.GetSheet(0)
table1.Initialize(Me, "Table1", moviesSheet.ColumnsCount)
table1.AddToActivity(Activity, 0, 0, 100%x, 100%y)
For row = 0 To moviesSheet.RowsCount - 1
Dim values(moviesSheet.ColumnsCount) As String
For i = 0 To values.Length -1
values(i) = moviesSheet.GetCellValue(i, row)
Next
If row = 0 Then
table1.SetHeader(values)
Else
table1.AddRow(values)
End If
Next
End Sub