Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: tfrenz am 03.05.07 - 12:37:31
-
Hallo,
ich muss einen Excel-Export machen, indem einen Excelspalte dann als Zahlenspalte Definiert werden soll.
Habe keine ahnung,m wie man bei einer Spalte die Formatierung ändert.
Gibt es villeicht auch eine möglich keit eine zus. Spalte in Excel zu erzeugen, die mir best Zellen addiert?
Zb. B1 + C1; B2 + C2 etc.
Danke
Thomas
Ach ja haben Notes 6.5 auf Windows BS
-
zeichne ein Macro auf und schau Dir dann den Code an. Diesen Code kannst Du mit kleinen Änderungen in LotusScript einbauen.
-
Danke für die Info.
Das mit der Spaltenformat änderung hat funktioniert.
Aber habe da noch ne weitere Frage, wie man alle Daten Markieren kann und dann nach einer best. Spalte Absteigend sorteiren?
Das aufzeiichnen des Makros bringt mich hier leider nicht weiter.
Notes läuft auf einen Fehler.
Danke
Thomas
-
dies geht auch mit dem Makro aufzeichnen. Wie sieht denn Dein Code im Notes aus?
-
Hier der kleine ausschnitt:
xlApp.Columns("D:D").Select
xlApp.Selection.NumberFormat = "#.##0,00"
'Sortierung nach Spalte D absteigend
xlApp.Columns("A:D").Select
X xlApp.Selection.Sort Key1= Range("D2")
xlApp.Selection.Order = xlDescending
xlApp.Selection.Header = xlGuess
xlApp.Selection.OrderCustom = 1
xlApp.Selection.MatchCase = False
xlApp.Selection.Orientation = xlTopToBottom
xlApp.Selection.DataOption1 = xlSortNormal
Ab der Zeile X Sort Key1 bricht der Designer mit der Meldung
"Illegal Pharenthsized reference: RANGE" ab
Lasse ich Range weg, nur "D2", dann kann ich den Designer abspeichern, aber bei ablauf kommt:
Fehler 213: Microsoft Office Excel: Bezug ist ungültig
in Zeile 62 etc.
Das ist genau die Zeile wo ich den Range rausgenomen habe.
Thomas
-
probier es mal mit
xlApp.Selection.Sort xlApp.Range("D2")
-
Fehlermeldung:
Variant does not Containan Object
Thomas
-
habe gerade kein Excel zur Hand.
Probier es mal mit
xlApp.Range("D2").Select
xlApp.Selection.Sort
Ansonsten kannst Du auch erst die DocumentCollection sortiert und dann exportieren.
-
Das hat leider auch nicht funktioniert.
Habe aber im Internet noch was gefunden
xlApp.columns("A:D").sort xlApp.cells(4,4),2
Ich weiss zwar nicht genau was das genau passiert, aber es funktioniert.
Na ja "A:D" da werden die Spalten markiert, das ist ja noch einfach
Und am ende die ,2 heist, das ab zeile 2 Sortiert wird.
Nur was das dazwischen macht ist mir unklar.
Danke
Thomas
-
xlapp.cells(4,4) ... bezeichnet die Zelle in der 4. Spalte und der 4. Zeile.
-
Danke für Die Info.
Thomas