[Solved] Copy Sheet to another sheet

[Rosinha]

Hello,

In OpenOffice Calc, I need to copy all the data present from one sheet to another sheet in the same document using Delphi.
Say For Example: In sheet1, I have loaded a template and now i try to copy the same template to sheet2.
Is there any way that i can copy the data from one sheet to another?

[FJCC]

Here is an example in Basic of copying the used area of Sheet 1 to Sheet2.

Code: Select all

oSheets = ThisComponent.Sheets
oSheet1 = oSheets.getByName("Sheet1")
oSheet2 = oSheets.getByName("Sheet2")

oCurs = oSheet1.createCursor()
oCurs.gotoStart()
oCurs.gotoEndOfUsedArea(True)
oRangeAddr = oCurs.RangeAddress

oTrgCell = oSheet2.getCellrangeByName("A1")
oCellAddr = oTrgCell.CellAddress

oSheet1.copyRange(oCellAddr, oRangeAddr)

Alternatively, you could just copy the sheet

Code: Select all

oSheets = ThisComponent.Sheets
oSheets.copyByName("Sheet1", "NewSheet", 1) 'put the sheet in position 1, which is second from the left

[jackrcook]

Sounds to me that all you need to do is click on the column/row intersection (upper left corner) of the sheet to copy then do an edit > copy and then open the second sheet and do an and edit > paste special. The paste special will allow you to keep all of the first sheet's formatting.

Hope this helps.

[Rosinha]

When using oSheets.copyByName("Sheet1", "NewSheet", 1) on windows 7/ windows 8 we get an error message " com.sun.star.uno.RuntimeException".
Are there any other alternatives for "copyByName" command?

[Villeroy]

When using oSheets.copyByName("Sheet1", "NewSheet", 1) on windows 7/ windows 8 we get an error message " com.sun.star.uno.RuntimeException".
Are there any other alternatives for "copyByName" command?

Of course. This happens when there already is a sheet named "NewSheet".

[Rosinha]

When using oSheets.copyByName("Sheet1", "NewSheet", 1) on windows 7/ windows 8 we get an error message " com.sun.star.uno.RuntimeException".
Are there any other alternatives for "copyByName" command?

Of course. This happens when there already is a sheet named "NewSheet".

I am changing the "NewSheet" name everytime when i try to copy the sheet.In the above post i have mentioned for example purpose.

[Villeroy]

The macro simply works if there is a "Sheet1" but not any "NewSheet" and if the document is not protected.

[Rosinha]

Does CopyByName command supports on Windows 7 and windows 8?

[FJCC]

All of the macro functions should still work on Windows 7 and 8. CopyByName certainly works on Windows 7.