[SOLVED]Export from OO curent sheet to a text document

[vladi]

Hello,

I need a macro that gets all the information from all the rows and columns from the current opened spreadsheet. Searching this forum i found out that 2 for structures might be the answear thing is i dont know how to specify where should the for start and where should the for end
Up till now i got this piece of code:

Sub Exp
Dim Sheet As Object
Dim Cell As Object
Dim strTmp As String

Sheet=ThisComponent.CurrentController.ActiveSheet
For Row=RowStart To RowEnd
For Col=ColStart To ColEnd
Cell=Sheet.GetCellByPosition(Col,Row)
strTmp=Cell.String
Next Col
Next Row


i=FreeFile()
Open "D:\example.txt" For Output As i
Print #i, strTmp
Close #i

End Sub

Thanks in advance hope you can help me

[patel]

this macro export to csv file, you can arrange delimiters

[vladi]

Hey again tnx for the help but it doesnt work first of all when running the macro i get and error (error type:com.sun.star.taskErrorCodeIOException)
And secondly i already have a data in an open office spreadsheat (.ods).Thing is i need the data from my spreadsheet to be exported to .txt file. I dont have any business with excel spreadsheets but with OOffice spreadsheets.

So is what im asking even possible?
PS im a newbie when it comes to OO macros and code.

THanks

My Code:

Sub Test
Dim Sheet As Object
Dim Cell As Object
Dim str As String
Dim Count As Integer
count=0

i=FreeFile()
Open "D:\vladi.txt" For Output As i

Sheet=ThisComponent.CurrentController.ActiveSheet
Cell=Sheet.GetCellByPosition(0,count)
str=Cell.String


While Not(Cell.string="")
Print #i, str
count=count+1
Cell=Sheet.GetCellByPosition(0,count)
Wend
Close #i
End Sub

There are two problems with this code:
1. The macro exports to my .txt file only the first cell of my Open Office spreadsheet.
2. It prints into .txt file the first cell multiple times


i want it to print to the txt file all of my data from the Open Office spreadsheet

[patel]