OOo Basic: копи-пастинг данных программно

2008-04-24T07:50:08Z

Пример для Calc.
Позиционируется на ячейке $B$3, выполняет команду "Copy", затем позиционируется на ячейке $A$1 и выполняет команду "Paste".

Dim oDisp, oFrame
Dim a(1) As New com.sun.star.beans.PropertyValue
a(0).Name = "ToPoint" : a(0).Value = "$B$3"
oFrame = ThisComponent.CurrentController.Frame
oDisp = createUnoService("com.sun.star.frame.DispatchHelper")
oDisp.executeDispatch(oFrame, ".uno:GoToCell", "", 0, a())
oDisp.executeDispatch(oFrame, ".uno:Copy",     "", 0, Array())
a(0).Value = "$A$1"
oDisp.executeDispatch(oFrame, ".uno:GoToCell", "", 0, a())
oDisp.executeDispatch(oFrame, ".uno:Paste",    "", 0, Array())

Серый форум — OOo Basic: копи-пастинг данных программно

OOo Basic: копи-пастинг данных программно