Calc Tabelle, Zellen per Script auslesen

sub getEMails
        dim maxRows
	maxRows = 10
	dim myDoc as Object
	dim mySheet as Object
	Dim FileNo As Integer
	Dim Filename As String
	myDoc = thisComponent
	mySheet = myDoc.Sheets.getByName("Tabelle1")  
	FileNo = FreeFile
	Filename = "C:\emails.txt"  
	Open Filename For Output As #FileNo
	For i = 0 to maxRows - 1
		dim col1,col2
		col1 = mySheet.getCellByPosition(4,i).String
		col2 = mySheet.getCellByPosition(5,i).String
		If col1 <> "" Then	  
			Print #FileNo, col1
		End If
		If col2 <> "" Then	  
			Print #FileNo, col2
		End If
	Next i
	Close #FileNo
	Msgbox "Fertig" & chr(13) & "Die Datei liegt hier: " & Filename  
end sub