Code: Select all
Dim oDoc, oMySheet As Object
oDoc = ThisComponent
oMySheet = oDoc.Sheets.getByName("Base")
Thanks!
Code: Select all
Dim oDoc, oMySheet As Object
oDoc = ThisComponent
oMySheet = oDoc.Sheets.getByName("Base")
Code: Select all
iSheetNr = oMySheet.RangeAddress.Sheet