Hallo,
für eine Automatisierte Lösung VBA:
1. Dezimaltrennzeichen Temporär ändern:
1 | .UseSystemSeparators = False
|
2 | .DecimalSeparator = "."
|
3 | .ThousandsSeparator = ","
|
2. Datei einlesen
1 | .GetOpenFilename("Quelle (*.csv), *.csv")
|
Hier weiß ich gerade nicht den ganuen Syntax, müsste aber:
1 | Origin:= xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= xlDoubleQuote, Comma:=True, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
|
3. Zellen als Standart definieren
(Excel wird hier Wissenschaftlich Werte vermuten)
1 | .NumberFormat = "General"
|
Damit solltest du eine Datei öffnen und in Excel einlesen können, wobei
die Real Werte aus der SPS als Dezimale Werte in Excel angezeit werden.
1. Muss gemacht werden da Excel den "," als Dezimaltrenne hat und
Siemens das "."
2. Öffnet eine CSV Datei, wählt als Seperator das "," und schreibt jeden
Wert in eine eigene Zelle
3. Ändert die Anzeige von einem Wissenschaftlichen Wert (1,33E+1) auf
einen normalen Dezimalen Wert (13,3)
Gruß
Deathfun
(von unterwegs)