Dim oServiceManager as Object, OpenPar() as Object, CALC_SHOW as boolean
Dim Dispatcher as Object, oDesk as Object, oCalc  as Object
Dim tmp_str As String, s As String
Dim toPoint( 0 ) As Object


CALC_SHOW = True

tmp_str = "1" + vbTab + "2" + vbTab + "3" + vbCrLf
tmp_str = tmp_str + "1,01" + vbTab + "2,02" + vbTab + "3,03" + vbCrLf
tmp_str = tmp_str + "1,02" + vbTab + "2,03" + vbTab + "3,04" + vbCrLf
tmp_str = tmp_str + "1,03" + vbTab + "2,04" + vbTab + "3,05" + vbCrLf
tmp_str = tmp_str + "1,04" + vbTab + "2,05" + vbTab + "3,06" + vbCrLf
tmp_str = tmp_str + "1,05" + vbTab + "2,06" + vbTab + "3,07" + vbCrLf
tmp_str = tmp_str + "1,06" + vbTab + "2,07" + vbTab + "3,08" + vbCrLf

Clipboard.Clear
Clipboard.SetText tmp_str
'Проверяем установили ли в клипбоард текст
s = Clipboard.GetText
MsgBox s


Set oServiceManager = CreateObject("com.sun.star.ServiceManager")
ReDim OpenPar( 0 )
Set OpenPar( 0 ) = MakePropertyValue("SpellOnline", False)  'отключение орфографии
                                                                                                            
If Not CALC_SHOW Then
    ReDim Preserve OpenPar( 1 )
    Set OpenPar( 1 ) = MakePropertyValue("Hidden", True) 'Открываем не показывая
End If
                                                                                                            
Set Dispatcher = oServiceManager.createInstance("com.sun.star.frame.DispatchHelper")
Set oDesk = oServiceManager.createInstance("com.sun.star.frame.Desktop")
Set oCalc = oDesk.loadComponentFromURL("private:factory/scalc", "_blank",  0 , OpenPar())                                                                                                            '|

oCalc.getCurrentController.GetActiveSheet.getCellByPosition( 0 ,  0 ).setString ("Колонка 1")
oCalc.getCurrentController.GetActiveSheet.getCellByPosition( 1 ,  0 ).setString ("Колонка 2")
oCalc.getCurrentController.GetActiveSheet.getCellByPosition( 2 ,  0 ).setString ("Колонка 3")

Set toPoint( 0 ) = MakePropertyValue("ToPoint", "$A$2")
Set oFrame = oCalc.getCurrentController().getFrame()
Call Dispatcher.executeDispatch(oFrame, ".uno:GoToCell", "",  0 , toPoint())
Call Dispatcher.executeDispatch(oFrame, ".uno:Paste", "",  0 , Array())