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:
...
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
...
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