Hallo, bin nochmal da
Importiere mit folgendem Makro eine Tabelle in Txt. und wandle sie in xls um
Funkrioniert auch prima.
Leider muss ich den Pfad auwendig wissen und muss jedesmal zu beginn des Pfades "Text/,
schreiben.
Wenn ich mit Application dispay.show arbeite, öffnet sich nach anklicken der Datei das eingebaute
Excel feature zum wandeln von txt in xls. genau das möchte ich aber nicht, da es für einen Laien zu schwierig ist.
Kann mir jemand helfen?
Sub AOriginal() ' Holt die Originaldatei als Txt und wandelt sie in xls um
Application.DisplayAlerts = False
Sheets("Daten").Select
Dim Pfad As Variant
Pfad = InputBox("Der Pfad muss mit Text; beginnen!!!", "Geben Sie den komplettenPfad an", _
"TEXT;D:\AFips\Lugauer\PM3logcard4.txt")
If Pfad = "" Then _
Exit Sub
End If
With ActiveSheet.QueryTables.Add(Connection:=Pfad, Destination:=Range("A1"))
.Name = "PM3logcard4_2"
.FieldNames = True
usw.
Gruß
Fritz