Question

LibreOffice 5.2.3.3

我正在尝试将Excel VBScript程序移植到PyUno。逻辑有效，但运行速度比在Excel中慢得多。

我制作了两张Sheet1和Sheet2。引用下面的脚本，我向Sheet1添加了一个按钮来调用create，向Sheet2添加一个按钮来调用copy。运行create并等待其完成后，我运行copy。

有没有办法进一步优化copy？当它在一个单独的线程中运行时，我可以看到每一行都被填满，而我希望它会瞬间到达人眼。删除线程只会使图形等待更新。

（我的原始代码从一个看不见的CSV文件中复制数据，由于某种原因需要更长时间才能锁定Calc而没有单独的线程。我认为这会显示出这个问题，但显然我需要另一个测试用例。或者重要的是这些单元格有更多文本。）

编辑1：响应@Jim K的评论：“单独的线程”意味着一个额外的函数为业务逻辑产生一个线程，如下所示：

import threading


def _create():
    # ...
    pass


def create(clickEvent):
    t = threading.Thread(target=_create)
    t.start()


g_exportedScripts = create,

test.py（这是有问题的代码。）

import msgbox
import os
import uno


def copyFormula(a, b):
    formula = a.getFormula()
    b.setFormula(formula)

    return formula != ''


doc = XSCRIPTCONTEXT.getDocument()


def copy(clickEvent):
    sheet1 = doc.Sheets.getByName('Sheet1')
    sheet2 = doc.Sheets.getByName('Sheet2')

    for y in range(0, 5):
        for x in range(0, 150):
            source = sheet1.getCellByPosition(x, y)
            target = sheet2.getCellByPosition(x, y)
            copyFormula(source, target)


def create(clickEvent):
    sheet1 = doc.Sheets.getByName('Sheet1')
    sheet2 = doc.Sheets.getByName('Sheet2')

    for y in range(0, 5):
        for x in range(0, 150):
            target = sheet1.getCellByPosition(x, y)
            target.setFormula('({}, {})'.format(x, y))


g_exportedScripts = create, copy

Answer 1

这些功能中的任何一个都应该快得多：

def copy2(clickEvent=None):
    sheet1 = doc.Sheets.getByName('Sheet1')
    sheet2 = doc.Sheets.getByName('Sheet2')
    range1 = sheet1.getCellRangeByPosition(0,0,150,5)
    range2 = sheet2.getCellRangeByPosition(0,0,150,5)
    range2.setDataArray(range1.getDataArray())

def copy3(clickEvent=None):
    sheet1 = doc.Sheets.getByName('Sheet1')
    sheet2 = doc.Sheets.getByName('Sheet2')
    range1 = sheet1.getCellRangeByPosition(0,0,150,5).RangeAddress
    range2 = sheet2.getCellRangeByPosition(0,0,150,5).RangeAddress
    cell2 = sheet2.getCellByPosition(
        range2.StartColumn, range2.StartRow).CellAddress
    sheet1.copyRange(cell2, range1)

或者，使用调度程序复制并粘贴剪贴板。

有关复制和粘贴单元格的详细信息，请参阅Andrew Pitonyak's macro document中的第5.23节。

优化PyUno中的公式复制

1 个答案: