0

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
4

1 回答 1

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 的宏文档中的第 5.23 节。

于 2016-12-21T01:01:06.743 回答