Hallo,
ich muss mehrere Textdateien in Excel öffnen (mit den gleichen Importeinstellungen) und möchte anschliebend alle in eine Datei mit den jeweils einzelnen Reitern (Tabelle1, Tabelle2 usw.) kopieren.
Die Auswahl der Textdateien soll über ein Fenster erfolgen, in dem die zu importierenden Dateien markiert werden.
mfg
Workbooks.OpenText Filename:="T:\Versuch\Messd09\0300-09\R4F21.txt", Origin _
:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1)), DecimalSeparator:=".", ThousandsSeparator:=","
Workbooks.OpenText Filename:="T:\Versuch\Messd09\0300-09\R5F13.txt", Origin _
:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1)), DecimalSeparator:=".", ThousandsSeparator:=","
Sheets("R5F13").Select
Sheets("R5F13").Copy After:=Workbooks("R4F21.txt").Sheets(1)