aus Writer Makro in Calc Tabelle schreiben

[F3K Total]

Moin,
angenommen, du möchtest einen in einer Writer-Datei markierten Text in die Calc-Datei mit dem Namen MeineCalcDatei.ods schreiben.
Der markierte Text soll in Spalte A der Tabelle1 in die erste leere Zelle, ab Zeile 2 geschrieben werden.
Dann

• Öffne die Calc Datei
• Öffne die Writer-Datei
• Markiere in der Writer Datei ein Stück Text
• Führe das Makro S_insert_into_calc einmal aus

Code: Alles auswählen

Sub S_insert_into_calc
    sMeinMarkierterText = thiscomponent.currentselection(0).string
    oCalcDoc = F_get_CalcDocument("MeineCalcDatei.ods")
    oSheet =  oCalcDoc.Sheets.getbyname("Tabelle1")
    oColumn = oSheet.columns.getbyname("A")
    nCounter = 1
    do 
        ocell = oColumn.getcellbyposition(0,nCounter)
        nCounter = nCounter + 1
    loop until ocell.Type = com.sun.star.table.CellContentType.EMPTY
    ocell.String = sMeinMarkierterText
End Sub

function F_get_CalcDocument(sTitle) as Object
    oComponentenumeration = Stardesktop.Components.createEnumeration
    while oComponentenumeration.hasmoreelements
        ocomponent = oComponentenumeration.nextelement
        if ocomponent.title = sTitle then
            F_get_CalcDocument = ocomponent
        endif
    wend
end function

HTH Gruß R