Sub Activity_Resume
Dim newWorkbook As WritableWorkbook
newWorkbook.Initialize(File.DirRootExternal, "testjp.xls")
Dim sheet1 As WritableSheet
sheet1 = newWorkbook.AddSheet("Movies", 0)
Dim cell As WritableCell
cell.InitializeText(1, 0, "Hello")
sheet1.AddCell(cell)
LoadTable(File.DirRootExternal, "testjp.xls")
End Sub
Sub LoadTable(Dir As String, FileName As String)
Dim workbook1 As ReadableWorkbook
Dim moviesSheet As ReadableSheet
workbook1.Initialize(Dir, FileName)
moviesSheet = workbook1.GetSheet(0)
End Sub