Pfad vba
20.05.2019 06:49:49
Anna
dies habe ich jetzt über Rekorder aufgenommen und die gedacht, das ich es hinbekomme.
Leider ist die gespeicherte Datei LEER :-(
Warum ?
ChDir "C:\Users\peters\Desktop"
Workbooks.OpenText Filename:="C:\Users\peters\Desktop\Analyse.txt",Origin _
:=xlWindows, StartRow:=7, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, 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)), _
TrailingMinusNumbers:=True
Columns("A:E").Select
ActiveSheet.Range("$A$1:$E$99999").RemoveDuplicates Columns:=2, Header:=xlNo
Range("F1").Select
Columns("E:E").EntireColumn.AutoFit
ThisWorkbook.SaveCopyAs "L:\Paket\anna\WE\" & _
Environ("username") & "_" & Format(Now, "yyyy_mm_dd_hhmm") & _
".xlsx"
End Sub
Hoffe ihr könnt mir helfen.