| Von |
chris1 |
| eMail |
|
| Am |
28. Oktober 2008 um 18:16:43 |
| Frage |
Hallo Leute
Ich habe ein Problem mit der Formatierung in Excel
ich schreibe mit VB6 (integer) in eine Exceltabelle Zellenformat (Zahl)
Mein Code:
Set ExcelDB(1) = Workspaces(0).OpenDatabase(ziel$, False, False, "EXCEL 5.0;")
' Tabelle "Werte" öffnen
Set ExcelRS = ExcelDB(1).OpenRecordset("Werte$" _
, dbOpenTable)
'Neuer Datensatz
ExcelRS.AddNew
'Uhrzeit
ExcelRS.Fields(0) = Format(Date, "dd/mm/yy") + " / " + Format(Time, "hh:mm:ss")
'Sollwert 1
ExcelRS.Fields(1).value = Sollwert_Pr(1)
'Istwert 1
ExcelRS.Fields(2).value = Istwert_Pr(1)
'Sollert 2
ExcelRS.Fields(3).value = Sollwert_Pr(2)
'Istwert 2
ExcelRS.Fields(4).value = Istwert_Pr(2)
'Sollwert 3
ExcelRS.Fields(5).value = Sollwert_Pr(3)
'Istwert 3
ExcelRS.Fields(6).value = Istwert_Pr(3)
'Istwert 4 Bandgeschwindigkeit oben
ExcelRS.Fields(7).value = Istwert_Pr(4)
'Istwert 5 Bandgeschwindigkeit unten
ExcelRS.Fields(.value = Istwert_Pr(5)
'Sollwert 6
' ExcelRS.Fields(9) = Sollwert_Pr(6)
'Istwert 6
' ExcelRS.Fields(10) = Sollwert_Pr(6)
'festschreiben
ExcelRS.Update
speicherzeit(2) = speicherzeit(2) + 1
'Exceltabelle schliessen
ExcelRS.Close
ExcelDB(1).Close
Wenn ich nun die Exceltabelle öffne ist der Zelleninhalt nicht eine Zahl
(dadurch kann ich keine Kurven erstellen)
weiss jemand eine abhilfe?
Gruss Chris
|
|
Zum Seitenanfang