Basic w arkuszu kalkulacyjnym Calc

0

Dzień dobry,

Mam następujący problem. Piszę pewne makro i wyskakuje mi błąd o treści:

Błąd uruchomieniowy języka BASIC.
Nie ustawiono zmiennej obiektu.

w linii:

lastDestinationRowNumber = ThisComponent.Sheets.getByName(sDest).createCursor().gotoEndOfUsedArea(True).RangeAddress.EndRow

Całe makro wygląda tak:

Sub moveRowFromToEndAndSortDestinationSheet(sDest As String, sSource As String, iRowNum As Integer)
	Dim firstColumn
	Dim lastColumn
	Dim rowNumber
	Dim lastDestinationRowNumber
	
	firstColumn = 0
	lastColumn = 255
	rowNumber = iRowNum + 3
	lastDestinationRowNumber = ThisComponent.Sheets.getByName(sDest).createCursor().gotoEndOfUsedArea(True).RangeAddress.EndRow
	
	MsgBox lastDestinationRowNumber
	
	'Dim oRangeAddress = ThisComponent.Sheets.getByName(sSource).getCellRangeByPosition(firstColumn, rowNumber, lastColumn, rowNumber).getRangeAddress
	'Dim oCellAddress = ThisComponent.Sheets.getByName(sDest).getCellByPosition
End Sub

Nie wiem, co powoduje ten błąd. Czy winna jest zbyt długa linia z wieloma odwołaniami do składowych i metod tych obiektów?

0

Ok, już wiem. Źle przeczytałem.

cursor.gotoEndOfUsedArea(True)

ta linia musi być osobno

1 użytkowników online, w tym zalogowanych: 0, gości: 1