formule van excel naar Oo

[clioke]

hoi,

In dit topic http://www.helpmij.nl/forum/showthread.php?p=2033899&posted=1#post2033899 had ik de formule voor in excel. Nu probeer ik deze in Oo.
Natuurlijk, werkt niet.

Wat moet ik veranderen?

Bedankt,

 

[clioke]

voor excel heb ik nu dit:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
End Sub

Private Sub Workbook_Open()
Sheets(1).Select
[B1].Value = [B1].Value + 1
End Sub


Ik wil dit in Oo calc maken.
Heeft iemand een goede site waar ik de vergelijking kan maken?
Of waar wat meer uitleg staat over het vb van Oo.

Bedankt,

 

[DiGro]

Wat moet ik veranderen?

Bedankt,

Zou dus zoiets worden:

Sub Workbook_BeforeClose(Cancel as Boolean)

Dim oDoc as Object
Dim currentURL as String

oDoc = thisComponent
currentURL = oDoc.Url 

oDoc.storeAsURL( currentUrl, Array() )

End Sub

Sub Workbook_Open()
Dim oDoc as Object
Dim oSheet as Object

oDoc =ThisComponent
oSheet = oDoc.getSheets().getByIndex( 0 )
oCell = oSheet.getCellByPosition(1,0)
oCell.setValue(oCell.getValue(1,0)+1)
End Sub

En dan toewijzen aan de betreffende gebeurtenissen