AW: Mehrere Dateien in eine Tabelle zusammenführen
08.02.2005 15:48:06
Dunya
im moment habe ich das benutzt:
Sub Dateien_in_eine_Tabelle_zusammenfuehren()
Dim Datei As String
Dim Arbeitsmappe As String
Dim Pfad As String
Pfad = "C:\Eigene Dateien\"
Datei = Dir(Pfad & "*.txt")
Application.ScreenUpdating = False
Arbeitsmappe = ActiveWorkbook.Name
Do While Datei <> ""
Workbooks.Open Datei
Workbooks.OpenText Filename:= _
Datei _
, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1) _
, DecimalSeparator:=".", ThousandsSeparator:=" "
Rows("1:" & ActiveWorkbook.ActiveSheet.Range("A65536").End(xlUp).Row).Copy _
Destination:=Workbooks(Arbeitsmappe).ActiveSheet.Range("A65536").End(xlUp).Offset
(0, 0)
ActiveWorkbook.Close False
Datei = Dir()
Loop
Application.ScreenUpdating = True
End Sub
aber hier werden die daten untereinander angeordnet, ich will sie nebeneinander haben, also jeweils eine geöffnete datei in einer spalte.