如何在libreoffice-calc中合并单元格而不丢失数据？

Question

启动libreoffice-calc：

soffice --calc --accept="socket,host=localhost,port=2002;urp;StarOffice.ServiceManager" 

启动python shell将数据写入calc

import uno
localContext = uno.getComponentContext()
resolver = localContext.ServiceManager.createInstanceWithContext("com.sun.star.bridge.UnoUrlResolver", localContext)
context = resolver.resolve("uno:socket,host=localhost,port=2002;urp;StarOffice.ComponentContext")
svcmgr = context.ServiceManager
desktop = svcmgr.createInstanceWithContext("com.sun.star.frame.Desktop", context)
oDoc = desktop.loadComponentFromURL( "private:factory/scalc","_blank", 0, () )
oSheet = oDoc.getSheets().getByIndex(0)
oRange = oSheet.getCellRangeByName("A1:C3")

将数据写入oRange。

oRange.setDataArray((('a1','a2','a3'),('b1','b2','b3'),('c1','c2','c3'),))

现在计算的外观：

​

​

我想合并oRange中的所有数据，并将其格式化为垂直和水平对齐方式。

我在编辑calc中想要的效果。

​

oRange.merge()
oCell = oSheet.getCellByPosition(0, 0)
oCell.HoriJustify = 2
oCell.VertJustify = 2

合并垂直和水平对齐的数据，许多单元格b1-c1和a2-c2和a3-c3中以前的数据丢失。

真正的效果。

​

如何修复我的代码以获得期望的效果？

Answer 1

import uno
localContext = uno.getComponentContext()
resolver = localContext.ServiceManager.createInstanceWithContext("com.sun.star.bridge.UnoUrlResolver", localContext)
context = resolver.resolve("uno:socket,host=localhost,port=2002;urp;StarOffice.ComponentContext")
svcmgr = context.ServiceManager
desktop = svcmgr.createInstanceWithContext("com.sun.star.frame.Desktop", context)
oDoc = desktop.loadComponentFromURL( "private:factory/scalc","_blank", 0, () )
oSheet = oDoc.getSheets().getByIndex(0)
oRange = oSheet.getCellRangeByName("A1:C3")
tup = (('a1','a2','a3'),('b1','b2','b3'),('c1','c2','c3'),)
oRange.setDataArray(tup)
target =''
for item in tup:
    tmp = ' '.join(item)
    target = target + tmp + ' '

target = target.strip()
oRange.merge(True)
oCell = oSheet.getCellByPosition(0, 0)
oCell.String = target
oCell.HoriJustify = 2
oCell.VertJustify = 2

Answer 2

我不确定，但我认为UNO没有办法知道您希望以这种方式将数据重新排列到合并的单元格中。UNO所做的是从“主”单元格(左上角)“复制”数据，并将其数据“粘贴”到合并后的单元格中。因此，您可以在合并之前更改主单元格的数据。检查下面的示例。

# get range
oRange = oSheet.getCellRangeByName("A1:C3")

# build string
flat_list = [str(item) for sublist in oRange.getDataArray() for item in sublist]
string = ' '.join(flat_list)

# put string into main cell
main_cell = oRange.getCellByPosition(0, 0) 
main_cell.setString(string)

# merge
oRange.merge()