Doch nicht
13.04.2003 11:13:14
Reto
HAllo Jens
Ich habe es jetzt mal so, aber es gibt mir einen LAufzeitfehler 13 Typen unverträglich. Was kann man da machen?Reto
Selection:
fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt", 1, _
"Bitte wähle die gewünschte .txt-Datei von DEINEM Verzeichnis aus ...", MultiSelect:=False)
If fileToOpen = False Then
MsgBox "Die Datei konnte wegen Benutzerabbruch nicht gespeichert werden!", vbOKOnly + vbCritical, "Speichern fehlgeschlagen"
Exit Sub 'Vorzeitiges Ende
Else
'Konvertierung
Workbooks.OpenText FileName:=fileToOpen, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False _
, Space:=False, Other:=True, OtherChar:="|", FieldInfo:=Array(Array(1, 1 _
), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)) ', _
TrailingMinusNumbers:=True
'Zeile 1-3 und die letzte Zeile löschen
Dim LoLetzte As Long
LoLetzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
Rows(LoLetzte).Delete
Rows("1:3").Delete
End If