[Solved] The problem of copy filtered data and paste

[026538]

i now use the following codes to copy the filtered data to another place,

Code: Select all

	copyrange = oExportsh.getcellrangebyposition(0,0,16,lastrow+1)
				sourcedataarray = copyrange.getdataarray
				
				'define the paste area of destination 
				newblankdoc = StarDesktop.loadComponentFromURL("private:factory/scalc","_Blank",0,Array())
				newblankdocsh = newblankdoc.sheets(0)
				newblankdocshrng = newblankdocsh.getcellrangebyposition(0,0,16,lastrow+1)
				
				'paste
				newblankdocshrng.setdataarray(sourcedataarray) 
				

now the problem is that: after execution, i found actually the hidden rows are all copied,

when i press ctrl + a to select all, and then ctrl + c to copy, then ctrl + v to paste to another new sheet, it will only copy the filtered data(visible), how to do exactly like this in macro ?

[Villeroy]

1) Record a macro for one document and see how you apply the recorded dispatches to your scenario with 2 documents.
2) Use a copying filter and export the resulting sheet to another document.
3) What you obviously try to do could be done in a database without writing a single line of silly Basic code.

[026538]

Thanks,

1, i completed the following codes, it is ok,

Code: Select all

Sub DataFromAnotherFile

dim doc as object
dim docnew as object
dim dispatcher as object

doc = thiscomponent.currentcontroller.frame

dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

dispatcher.executeDispatch(doc, ".uno:SelectAll", "", 0, Array())

dispatcher.executeDispatch(doc, ".uno:Copy", "", 0, Array())

OldDoc = StarDesktop.loadComponentFromURL("private:factory/scalc","_Blank",0,Array()) 'open it

docnew = OldDoc.currentcontroller.frame

dispatcher.executeDispatch(docnew, ".uno:Paste", "", 0, Array())

End Sub

For this method, i have a question, if i want to paste to sheets(1), not default to sheets(0), how to change the code ?

2, could you help to explain it a little more ? how to copy filtering and export the result sheet to other document ?

i try the output function in filter, and can not assign the destination in other document,

[Villeroy]

You already know how to make a filter descriptor with CopyOutput option. You copy the filter output to another sheet, get the used area's DataArray, create a new document and dump the DataArray.

Getting used to the used range:
http://forum.openoffice.org/en/forum/vi ... ge#p258433

[026538]

thanks a lot,

i do not used usedrange before, then it is very slow for function setdataarray for large files,

after i change to usedrange, it is ok now,