Falsche Datei !
24.07.2003 11:08:57
Dari
seltsam, ich habe ein Makro gemacht, das nacheinander zwei txt-Dateien (bei mir heißen sie (.s01)) öffnen und überführen soll. Die zwei Dateien habe ich A und B genannt. Ich öffne und überführe A. Geht problemlos. Ich öffne B. Er öffnet und überführt aber wieder A. Das verstehe ich nicht ...
Gruß
Dari
Sub Makro1()
Dim ...
'Öffnen der Messdatei und Speichern als Exceldatei
TptFile = Application.GetOpenFilename("Messdateien (.s01),*.s01,")
TmpFile = Left(TptFile, Len(TptFile) - 4) + ".tmp"
If TptFile = False Then Exit Sub
'Überführen der Textdateidaten
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))
XlsFile = Application.GetSaveAsFilename(XlsName, "Exceldateien (.xls),*.xls,")
ActiveWorkbook.SaveAs XlsFile, xlWorkbookNormal
Sheets(1).Select
Sheets(1).Name = "Rohdaten"
'Dialogfeld einfügen"
Dim i As Integer
i = MsgBox _
("Wollen Sie die Messwerte der 2.Messung ebenfalls einfügen?", vbOKCancel)
If i = 1 Then
Application.GetOpenFilename ("Messdateien (.s01),*.s01,")
Else
MsgBox "Sie haben die Aktion abgebrochen!"
Exit Sub
End If
'2.Messdatei öffnen und einfügen
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))
End Sub