如何将这行 VBA 转换为 LibreOffice Basic？

Posted 2023-02-24

【中文标题】如何将这行 VBA 转换为 LibreOffice Basic？

【英文标题】：How do I convert this line of VBA into LibreOffice Basic?

【发布时间】：2021-02-02 16:33:42

【问题描述】：

如何转换 VBA

 With Worksheets("Sheet1")
        .Range("A1:A10").Copy
        .Range("D1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    End With

到带有选项 VBASupport 1 的 LibreOffice Basic

我认为这会起作用，但 PasteSpecial 的工作方式与 Excel 中的不同，我看不到任何模式。

【参考方案1】：

你可以这样编码

With ThisComponent.getSheets().getByName("Sheet1")
    .getCellRangeByName("D1:D10").setDataArray(.getCellRangeByName("A1:A10").getDataArray())
End With

【讨论】：

谢谢@JohnSUN！