Hi!,
just a little update - Eros is making impressive progress on the Excel module. He took my base and did his legendary magic again to make it even cooler:
Uses "Excel"
Function TBMain() As Long
Dim xApp As Excel_Application
Dim xWorkBook As Excel_Workbook
Dim xSheet As Excel_Worksheet
Dim x, y As Long
xApp = New Excel_Application
MsgBox 0, "Excel version is: " + xApp.Version
xApp.Visible = 1
'---Pass Excel Instance to create a Workbook
xWorkBook = New Excel_WorkBook(xApp)
'---Pass Workbook instance to create a sheet
xSheet = New Excel_Worksheet(xWorkBook)
'---Write some text
For y = 1 To 50
For x = 1 To 5
xSheet.Cells(y, x) = "Cell " & Chr$(x + 64) & Format$(y)
Next
xSheet.Cells(Y, X) = y + y / 10
Next
MsgBox 0, "OK, test done. thinBasic will now close."
'xApp.ActiveWindow.Close()
xApp.Quit
End Function
You can download updated module in the attachement, stay tuned...
Petr
Bookmarks