bin irgendwie am verzweifeln:
Um eine Messdatei umzuwandeln in eine Exceldatei habe ich folgenden Code geschrieben:
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"
XlsFile = Application.GetSaveAsFilename(XlsName, "Exceldateien (*.xls),*.xls,")
End Sub
Die Messdatei wird geöffnet, er öffnet auch das Dialogfeld "Speichern unter" man drückt den Button "Speichern" aber er speichert letztlich nichts. Scheinbar fehlen ihm die notwendigen Informationen für die Umwandlung.
Die Messdaten haben die Form:
R105_1 7,5268000000E+01
R106_1 7,5296000000E+01
R107_1 7,5251000000E+01
Er soll daraus einfach eine zweispaltige Exceltabelle machen + dieser wissenschaftliche Wert rechts, soll in eine normale Zahl umgewandelt werden.
Scheinbar bin ich zu blöd, um das hinzukriegen.
Gruß eines völlig Entnervten
Dari