#PackagerProperty: AdditionalModuleInfoString = opens schemaorg_apache_xmlbeans.system.sD023D6490046BA0250A839A9AD24C443;
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private xui As XUI
Private Button1 As B4XView
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1")
MainForm.Show
End Sub
Sub Button1_Click
loadXlsx
End Sub
Private Sub loadXlsx
Dim xls As PoiWorkbook
If File.Exists(File.DirApp,"1.xlsx")=True Then File.Delete(File.DirApp,"1.xlsx")
File.Copy(File.DirAssets,"1.xlsx",File.DirApp,"1.xlsx")
fx.Msgbox(MainForm,"ok till here","MsgBox_OK")
Try
xls.InitializeExisting(File.DirApp ,"1.xlsx","")
Catch
fx.Msgbox(MainForm,LastException.Message,"MsgBox_ERROR")
End Try
fx.Msgbox(MainForm,"file loaded","MsgBox_END")
End Sub