Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1692to1696
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Pfad vba

Pfad vba
20.05.2019 06:49:49
Anna
Hallo,
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.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pfad vba
20.05.2019 07:55:46
Marco
Guten morgen Anna,
versuche es einmal so:
Sub txt2xls()
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
ActiveWorkbook.SaveCopyAs "L:\Paket\anna\WE\" & Environ("username") & "_" & Format(Now, " _
yyyy_mm_dd_hhmm") & ".xls"
End Sub
Viele Grüße
Marco
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige