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

编程问答 2022-05-27

问题描述

如何转换 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 中的不同，我看不到任何模式。

解决方法

你可以这样编码

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