Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private poi As PoiWorkbook
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.SetFormStyle("UNIFIED")
'MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
'poi.InitializeExisting(File.DirAssets,"Mappe1.xls","")
poi.InitializeExistingAsync("Excel",File.DirAssets,"Mappe1.xls","")
MainForm.Show
End Sub
Sub Excel_Ready (Success As Boolean)
If Success Then
Log("No of Sheets: "&poi.NumberOfSheets)
For i = 0 To poi.NumberOfSheets-1
Dim sheet As PoiSheet = poi.GetSheet(i)
Log(sheet.Name)
Next
Dim sheets() As Object = poi.GetSheetNames
Log(sheets)
End If
End Sub