2
VBScript Next For Schleife
Hallo, ich habe in meimem Script versucht den Wert einer Zelle in einem odt Dokument abzufragem, was auch super funktioniert aber dann wollte ich im Dokument den Wert der nächsten Zelle abfragen wenn in der ersten etwas steht und so weiter, bis eine leehre Zelle kommt.
In die leehre Zelle soll dann ein Text rein, der Array funktioniert aber nicht weil Do While oder For Eatch In ... noch vor If Not rein muss, weiss leider nicht wie ichs genau Impletieren muss.
Kann mir da bitte wer Helfen?
Gruß waldgnarf
In die leehre Zelle soll dann ein Text rein, der Array funktioniert aber nicht weil Do While oder For Eatch In ... noch vor If Not rein muss, weiss leider nicht wie ichs genau Impletieren muss.
Kann mir da bitte wer Helfen?
Set SSM=WScript.CreateObject("com.sun.star.ServiceManager")
Set DESKTOP=SSM.createInstance("com.sun.star.frame.Desktop")
Set CALC=DESKTOP.loadComponentFromURL("file:///C:/Documents and Settings/psi.HP-P-T3257/Desktop/ODS/TEST.ods", "_blank", 0, Array())
Set SHEET=CALC.getSheets().getByName("A1")
POSY=0
POSX=0
Set ZELLE=SHEET.getCellByPosition(POSY, POSX)
INHALT=ZELLE.getFormula()
If Not INHALT="" Then
POSY=POSY+1
Set ZELLE=SHEET.getCellByPosition(POSY, POSX)
INHALT=ZELLE.getFormula()
Else
Call SHEET.getCellByPosition(POSY, POSX).setFormula("2")
End IfGruß waldgnarf
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 95515
Url: https://administrator.de/contentid/95515
Printed on: April 16, 2024 at 21:04 o'clock
2 Comments
Latest comment
Hallo waldgnarf!
Das sollte etwa so aussehen:
Grüße
bastla
Das sollte etwa so aussehen:
Set SSM=WScript.CreateObject("com.sun.star.ServiceManager")
Set DESKTOP=SSM.createInstance("com.sun.star.frame.Desktop")
Set CALC=DESKTOP.loadComponentFromURL("file:///C:/Documents and Settings/psi.HP-P-T3257/Desktop/ODS/TEST.ods", "_blank", 0, Array())
Set SHEET=CALC.getSheets().getByName("A1")
POSY=0
POSX=0
Do
Set ZELLE=SHEET.getCellByPosition(POSY, POSX)
INHALT=ZELLE.getFormula()
If INHALT="" Then Call SHEET.getCellByPosition(POSY, POSX).setFormula("2")
POSY=POSY+1
Loop Until INHALT=""
POSY=POSY-1 'falls die Zeilennummer der (vormals) leeren Zeile noch benötigt wird bastla
Passt super, vielen Dank!
Gruß waldgnarf
Gruß waldgnarf
