LibreOffice-Forum

Code: Alles auswählen

REM  *****  BASIC  *****

Sub Main
	odoc=thiscomponent
	quelle=odoc.sheets(0)
	ziel=odoc.sheets(1)
	daten()=quelle.getcellrangebyname("C9:O9").getdataarray()
	i=8
	do while ziel.getcellbyposition(2,i).type>0
			i=i+1
		
	loop
	ziel.getcellrangebyposition(2,i,14,i).setdataarray(daten())
End Sub

Code: Alles auswählen

Sub Main
	'Zugriff auf dieses Dokument
	oDoc=ThisComponent
	'Zugriff auf Tabelle1
	oTab=oDoc.Sheets.getByName("Tabelle1")
	'Zugriff auf Zellebereich
	oBereich=oTab.getCellRangeByName("A27:Q27")
	'Auslesen der Inhalten in Array
	aDaten=oBereich.getDataArray
	'Zugriff auf Tabelle2
	oZiel=oDoc.Sheets.getByName("Tabelle2")
	'Bestimmung der nächste freien Zeile
	'dazu suche ich die leeren Zellen der Spalte A
	aLeer=oZiel.Columns(0).queryEmptyCells.RangeAddresses
	n=aLeer(uBound(aLeer)).StartRow
	'Zielbereich mit Daten füllen
	oZiel.getCellRangeByPosition(0,n,uBound(aDaten(0)),n).SetDataArray(aDaten)
	'eventuell löschen des ursprünglichen Bereiches
	oBereich.ClearContents(1+2+4)
End Sub

Code: Alles auswählen

def bereich_kopieren():
    oDoc = XSCRIPTCONTEXT.getDocument()
    oTab1 = oDoc.Sheets.getByName("Tabelle3")
    oBereich = oTab1.getCellRangeByName('A27:Q27')
    aDaten=oBereich.getDataArray()
    oTab2 = oDoc.Sheets.getByName("Tabelle4")
    oLeer=oTab2.Columns[0].queryEmptyCells()
    n=oLeer.RangeAddresses[-1].StartRow
    m=len(aDaten[0])-1
    oTab2.getCellRangeByPosition(0,n,m,n).setDataArray(aDaten)
    oBereich.clearContents(1+2+4)

Code: Alles auswählen

doc = XSCRIPTCONTEXT.getDocument()
sheets = doc.Sheets
# ↓↓ Object-zugriff auf Tabelle 
# ↓ !Vorsicht Syntax-Falle bei Tabellennamen mit Leerzeichen etcpp.
quelle = sheets.Tabelle1 
# besser Dictionary-zugriff, siehe unten:
bereich = quelle['A8:I8']
data = bereich.DataArray
ziel = sheets["Tabelle2"] # ↑↑↑ vergleiche oben!
# ↓ Object-zugriff per Spalten_bezeichnung  !
leer= ziel.Columns.A.queryEmptyCells() 
row = leer[-1].RangeAddress.StartRow
# ↓ slice-syntax hier im speziellen 2-D [zeilen , spalten],  möglich seit LO 5.1
ziel[ row, :len(data[0]) ].DataArray = data
# ↓ alternativ per Name-Access und f-String ! Achtung row+1
# ziel[f"A{ row+1 }:I{ row+1 }"].DataArray = data
bereich.clearContents(1+2+4)

Code: Alles auswählen

def copy_row(*_):
    doc = XSCRIPTCONTEXT.getDocument()
    sheets = doc.Sheets
    quelle = sheets.Tabelle1 
    bereich = quelle['A8:I8']
    data = bereich.DataArray
    ziel = sheets["Tabelle2"] 
    leer= ziel.Columns.A.queryEmptyCells() 
    row = leer[-1].RangeAddress.StartRow
    ziel[ row, :len(data[0]) ].DataArray = data
    bereich.clearContents(1+2+4)