How to get value of cell V21 to clipboard in active sheet macro?

esiu · September 25, 2021, 10:46am

Like in topic. Can anyone help me write a macro? Please:D

sokol92 · September 25, 2021, 12:02pm

Option Explicit
Sub CopyToClipboard
  Dim oDoc, oDispatcher
  oDoc=ThisComponent      ' Calc document
  With oDoc.CurrentController
    .select .ActiveSheet.getCellRangeByName("V21")
    oDispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
    oDispatcher.executeDispatch(.Frame, ".uno:Copy", "", 0, Array())
  End With
End Sub

esiu · September 25, 2021, 1:36pm

sokol92 thank you for your help. Macro works as I wanted.

esiu · September 29, 2021, 9:01pm

Is it possible to do this without selecting the cell?

sokol92 · September 30, 2021, 10:05am

About methods of working with the clipboard: search word “Clipboard” in A.Pitonyak’s book OOME_4_0.odt.
What is the reason for the desire to avoid selecting cells?