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
BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das LibreOffice Forum zu erhalten!
> 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
Re: 2 Tabellen vergleichen und Werte übergeben
Ich bin mittlerweile bei:
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
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
bei loop while bekomme ich ne Fehlermeldung und ich raff nicht wieso
Wer kann helfen
Marko
Re: 2 Tabellen vergleichen und Werte übergeben
Korrektur:
oop until buchzelle = kassezelle
trotzdem "falscher Wert für Eigenschaft" - Warum?
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 ❤️