es ist echt zum kotzen. Ich möchte eine Datei mit dem Format .s01 überführen in ein Excel-Datei
Mit dem Code:
----------------------------------------------------------------
Sub CreateXlsFile()
Dim XlsFile As Variant
Dim TptFile As Variant
Dim XlsName As String
TptFile = Application.GetOpenFilename("Messdateien (*.s01),*.s01,")
XlsName = Left(TptFile, Len(TptFile) - 4) + ".xls"
XlsFile = Application.GetSaveAsFilename(XlsName, "Exceldateien (*.xls),*.xls,")
ActiveWorkbook.SaveAs XlsFile
End Sub
----------------------------------------------------------------
Öffnet er die s01-Datei und öffnet die Anweisung Speichern unter. Jetzt habe ich aus dem Recorder mal so einen Konvertierungscode eingebaut, aber irgendwie chekt der das nicht
Application.Workbooks.Open 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, 2)
Weiß jemand, warum dieser Mist nicht funktioniert, irgendwie chekt der nicht, was er machen soll ...