Folgendes Problem. Habe eine Textdatei mit
wissenschaftlichen Zahlen:
7,5122000000E+01
7,3135000000E+01
usw.
mein Makro
> Sub CreateXlsFile()
>
> Dim XlsFile As Variant
> Dim TptFile As Variant
> Dim XlsName As String
>
> 'Öffnen der Messdatei und Speichern als Exceldatei
> TptFile = Application.GetOpenFilename("Messdateien (*.s01),*.s01,")
> XlsName = Left(TptFile, Len(TptFile) - 4) + ".xls"
> If TptFile = False Then Exit Sub
>
> Application.Workbooks.OpenText FileName:=TptFile, Origin:= _
> xlWindows, StartRow:=1, DataType:=xlDelimited,
> TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True,
> Semicolon:=False, _
> Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 2),
> Array(2, 1))
>
> Columns("B:B").Select
> Selection.NumberFormat = "0.00E+00"
> Selection.NumberFormat = "0.00"
> Range("C1").Select
>
> XlsFile = Application.GetSaveAsFilename(XlsName, "Exceldateien
> (*.xls),*.xls,")
> ActiveWorkbook.SaveAs XlsFile, xlWorkbookNormal
überführt die Werte in Excel und in die normale Zahlenform:
75,12
73,13
usw.
Nun habe ich aber auch Dateien, bei denen di Ursprungsmessdateien statt dem Komma ein Punkt haben, also:
7.5122000000E+01
7.3135000000E+01
und plötzlich bricht das Chaos aus, da er schon bei der Umwandlung aus obigen Zahlen
7,5122000000E+11 (!!!)
7,3135000000E+11
macht, d.h. die Daten kommen schon falsch rüber.
Mit den bisherigen Ratschlägen konnte ich wenig anfangen. Ein Tipp war, mach doch vorher ein Umwandlungs-Makro. Mir ist nicht ganz klar, wie das gehen soll, da doch eben bei der Umwandlung von der Textdatei zur Exceldatei das Problem auftritt, dass aus 7.5122000000E+01 plötzlich 7,5122000000E+11 wird. D.h. ich müsste dann die Textdatei von Hand umwandeln (Punkt suchen >>> ersetzen, usw.). Das kann doch wohl nicht die Lösung sein, oder ???
Gruß
Dari