BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das LibreOffice Forum zu erhalten!

❤️ DANKE >><< DANKE ❤️

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des LibreOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗

2 Tabellen vergleichen und Werte übergeben

Alles zur Programmierung im LibreOffice.
Antworten
MarkoR
Beiträge: 5
Registriert: Do 11. Okt 2018, 13:32

2 Tabellen vergleichen und Werte übergeben

Beitrag von MarkoR » Di 16. Okt 2018, 08:38

Hallo,

ich möchte 2 Tabellen vergleichen (also nicht 2 Tabellenblätter)
jetzt weiss ich nicht wie ich die zwei geöffneten Tabellen handlen muss.
Es sollen außerdem nach Werten in der einen Datei gesucht und like SVERWEIS an die 2. Übergeben werden.
Ich bin Anfänger und mach das hier seit ca 4 Tagen... :)

Auszug:
sub oeffnen
dim test as string
dim zahl as string
dim desktop as string
dim url as string
dim oDocument1 as object
dim oDocument2 as object
dim tabelle1 as object
dim tabelle2 as object
dim zelle1 as string
dim zelle2 as string
dim mystring1 as string
dim mystring2 as string

test = ("test.ods")
zahl = ("zahl.ods")
desktop = ("C:\Users\Mega-PC\Desktop\")

url=converttourl(desktop + test )
dim myFileProp() as new com.sun.star.beans.PropertyValue
oDocument1 = StarDesktop.loadComponentFromURL(url, "_blank", 0, myFileProp() )

url=converttourl(desktop + zahl )
dim myFileProp2() as new com.sun.star.beans.PropertyValue
oDocument2 = StarDesktop.loadComponentFromURL(url, "_blank", 0, myFileProp2() )

tabelle1 = oDocument1.sheets.getbyname ("Tabelle1")
tabelle2 = oDocument2.sheets.getbyname ("Zahl1")

zelle1 = mysheet.getCellByPosition (0,0)
zelle2 = mysheet.getCellByPosition (0,0)

myString = zelle1.string
mystring2 = zelle2.string

zelle2.string=myString + mystring2

Wie mache ich weiter um die zwei zu vergleichen?
Wie verwende ich die zwei Dateien?


(Ja, ich habe schon nach Hinweisen gesucht)

Danke

MarkoR
Beiträge: 5
Registriert: Do 11. Okt 2018, 13:32

Re: 2 Tabellen vergleichen und Werte übergeben

Beitrag von MarkoR » Di 16. Okt 2018, 12:36

Ich bin mittlerweile bei:

Code: Alles auswählen

sub oeffnen
	dim buch as string
	dim kasse as string
	dim desktop as string
	dim url as string
	dim BuchDoc
	dim KasseDoc
	dim Buchtabelle as object
	dim BKassetabelle as object
	dim Buchzelle
	dim Kassezelle
	dim Buchmystring
	dim Kassemystring
	dim Buchmysheet
	dim Kassemysheet
	dim bz as long, bs as long, bMax as long
	dim kz as long, ks as long, kMax as long
		
	Buch = ("buch.ods")
	Kasse = ("kasse.ods")
	desktop = ("C:\Users\Mega-PC\Desktop\")
	
	
	
	url=converttourl(desktop + buch )
    dim myFileProp() as new com.sun.star.beans.PropertyValue
    BuchDoc = StarDesktop.loadComponentFromURL(url, "_blank", 0, myFileProp() )
    
   
	url=converttourl(desktop + kasse )
    dim myFileProp2() as new com.sun.star.beans.PropertyValue
    KasseDoc = StarDesktop.loadComponentFromURL(url, "_blank", 0, myFileProp2() )

	
	bMax = (10)
	kMax = (100)
	bz = (0)
	bs = (0)
	kz = (0)
	ks = (1)
	 
	for bz = 0 TO bMAX
		buchmysheet = buchDoc.sheets(0)
		buchzelle = buchmysheet.getCellByPosition(bz, bs)
		
			do	
				kz = kz + 1
				Kassemysheet = KasseDoc.sheets(0)
				kassezelle = kassemysheet.getCellByPosition(ks, kz)
				'if buchzelle = kassezelle then exit do
						
			loop while buchzelle = kassezelle
			ks = ks - 1
			kassezelle = kassemysheet.getCellByPosition(ks, kz)
			Kassemysheet = KasseDoc.sheets(0)
			kassemystring = kassezelle.string
			bs = bs + 1
			buchmysheet = buchDoc.sheets(0)
			buchzelle = buchmysheet.getCellByPosition(bs, bz)
			buchmystring = buchzelle.string
			
			buchzelle.string = kassemystring + (" ") + buchmystring
	
	next bz


end sub
angelangt und man kann erkennen worauf ich hinaus will
bei loop while bekomme ich ne Fehlermeldung und ich raff nicht wieso

Wer kann helfen

Marko

MarkoR
Beiträge: 5
Registriert: Do 11. Okt 2018, 13:32

Re: 2 Tabellen vergleichen und Werte übergeben

Beitrag von MarkoR » Di 16. Okt 2018, 12:42

Korrektur:

oop until buchzelle = kassezelle

trotzdem "falscher Wert für Eigenschaft" - Warum?

An alle, die das LibreOffice-Forum nutzen:


Bitte beteiligen Sie sich mit 7 Euro pro Monat und helfen uns bei unserem Budget für das Jahr 2024.
Einfach per Kreditkarte oder PayPal.
Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet.

❤️ Vielen lieben Dank für Ihre Unterstützung ❤️

Antworten