Lotus Notes / Domino Sonstiges > OLE/COM-Programmierung

Zahlenproblem beim Export nach Excel

(1/2) > >>

bend0r:
Hallo, ...

jetzt mal in vernünftiger Schrift (zwinker an Bernhard)...

Musste mich heute um einen älteren Excel-Export kümmern. Der Export funktioniert auch teilweise.
Arbeitsweise: sc wird mit den unprocesseddocuments gefüllt und dann an eine Funktion übergeben, die diese dann in ein Excel-Sheet eingibt. Nun das "zauberhafte" .Kommawerte werden dann in Excel mit einem kleinen  grünen Dreieck gekennzeichnet und angemerkelt das es sich um einen Text-wert handeln würde. Klickt man nun in die Zelle so wird die Zelle aktualisiert und das Dreieck verschwindet.(Bild siehe unten)

Ich habe nun versucht das via Skript abzufangen und habe mal mich mal via google schlau gemacht und folgenden Code zusammengesucht:

Codeschnipsel:


--- Code: ---...
For i = 1 To Anzahl

For k = 1 To Ubound(strArray,2)

ExcelSheet.Cells ( i +1, k ).Value = Cstr(doc.getitemvalue(strArray(1,k))(0))

Print "Wert an " & Cstr(i+1) & "," & Cstr(k) & " : " & Cstr(ExcelSheet.Cells ( i +1, k ).Value)
Print "Ist Zahl :" & Cstr(Isnumeric(ExcelSheet.Cells ( i +1, k ).Value))
Print "Ist Datum :" & Cstr(Isdate(ExcelSheet.Cells ( i +1, k ).Value))

zelleninhalt=ExcelSheet.Cells ( i +1, k ).Value

If (zelleninhalt <> "") And (Isnumeric(zelleninhalt)) And (Isdate(zelleninhalt)=False) Then
zelleninhalt = zelleninhalt * 1
ExcelSheet.Cells ( i +1, k ).Value = zelleninhalt
End If

zelleninhalt = ""

Next
RestZeit(i)
Set doc = dc.GetNextDocument( doc )

Next
...

--- Ende Code ---

Leider hat das auch nicht wirklich geholfen.
Das tritt auch nur bei Kommazahlen auf.

Ich bin mir eigentlich ziemlich sicher das man die Zellen auch via Code formatieren kann nur leider finde ich die Einträge dazu bei msdn nicht.

Jemand einen Denkanstoss für mich.



Beste Grüße

Rene

bend0r:
[Update]

Habe das jetzt erstmal so gemacht das ich explizit durch jede Zelle gehe und schaue ob es eine Zahl und/oder ein Datumswert ist und dann nach Bedarf die zahl explizit als double rüberjage.
Ist zwar unschön, funktioniert aber.


so far, ...

Beste Grüsse

Rene

koehlerbv:
Naja, aber so muss man dass doch machen, Renè. Das ist nicht unschön, sondern sauber. Sonst sucht sich Excel eben das "beste" Format, das am besten gefällt ...

Bernhard

bend0r:
Hallo Bernhard!

Das was mich dabei ein wenig gewundert hat ist die Tatsache, das es in anderen Spalten bei Zahlenwerten, sei es mit Komma/negativ/whatever richtig funktioniert; auch ohen irgendwelche direkt casts. Werte wurden "einfach" als String übergeben.

Naja, war mein erster Excel-Export. Werde das demnächst immer so wie jetzt machen.


Rene

koehlerbv:

--- Zitat von: bend0r am 05.03.08 - 21:14:53 ---Werde das demnächst immer so wie jetzt machen.
--- Ende Zitat ---

Besser ist das - Ordnung und Sauberkeit im Schlachthof  ;)

Bernhard

Navigation

[0] Themen-Index

[#] Nächste Seite