Herbers Excel-Forum - das Archiv

mehrere dateien in eine

Bild

Betrifft: mehrere dateien in eine
von: Adrian
Geschrieben am: 24.09.2003 10:57:07
ich sollte den inhalt einer anderen datei in eine master datei eifügen doch dies sollte automatisch gehen.
ich fand einen code der jedoch bei mir nicht funktioniert!!!

Sub Dateien_in_eine_Tabelle_zusammenfuehren()
'(C) Ramses
Dim Datei As String
Dim Arbeitsmappe As String
Dim Pfad As String
Pfad = "E:\Daten\SBB\"
Datei = Dir(Pfad & "*.xls")
Application.ScreenUpdating = False
'Active Mappe
Arbeitsmappe = ActiveWorkbook.Name
Do While Datei <> ""
'Öffnet eine Datei
Workbook.Open Fehler erscheint hier!!!
'Kopiert von den Zeilen 6 bis zum Ende
'in die aktive Mappe und fügt sie jeweils unten an
Rows("6:" & ActiveWorkbook.ActiveSheet.Range("A65536").End(xlUp).Row).Copy _
Destination:=Workbooks(Arbeitsmappe).ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0)
'Schliesst die geöffnete Datei
ActiveWorkbook.Close False
'Prüft für die nächste Datei
Datei = Dir()
Loop
Application.ScreenUpdating = True
End Sub


Der fehler Objekt erforderlich erscheint bei workbook.open könnt ihr mir helfen??

gruss
Bild

Betrifft: AW: mehrere dateien in eine
von: GerdW
Geschrieben am: 24.09.2003 10:59:14
Ohne deinen Code weiter zu prüfen, das muss so lauten:

Workbooks.Open

Gerd
Bild

Betrifft: AW: mehrere dateien in eine
von: Adrian
Geschrieben am: 24.09.2003 11:12:56
OK jetzt erscheint der Fehler argument ist nicht optional
Bild

Betrifft: AW: mehrere dateien in eine
von: GerdW
Geschrieben am: 24.09.2003 11:15:36
Du hast nicht angegeben, welche Datei geöffnet werden soll.

Gerd
Bild

Betrifft: AW: mehrere dateien in eine
von: Adrian
Geschrieben am: 24.09.2003 11:25:01
Danke! habe es geändert....


nun erscheint jedoch wieder ein neuer fehler Anwendungs oder objektdefinierter fehler
Bild

Betrifft: AW: mehrere dateien in eine
von: GerdW
Geschrieben am: 24.09.2003 11:30:29
Poste doch mal den geänderten Code.

Gerd
Bild

Betrifft: AW: mehrere dateien in eine
von: Adrian
Geschrieben am: 24.09.2003 11:38:32
Sub Dateien_in_eine_Tabelle_zusammenfuehren()
'(C) Ramses
Dim Datei As String
Dim Arbeitsmappe As String
Dim Pfad As String
Pfad = "E:\Daten\SBB\"
Datei = Dir(Pfad & "*.xls")
Application.ScreenUpdating = False
'Active Mappe
Arbeitsmappe = ActiveWorkbook.Name
Do While Datei <> ""
'Öffnet eine Datei
Workbooks.Open Datei hier geändert
'Kopiert von den Zeilen 6 bis zum Ende
'in die aktive Mappe und fügt sie jeweils unten an
Rows("6:" & ActiveWorkbook.ActiveSheet.Range("A65536").End(xlUp).Row).Copy _
Destination:=Workbooks(Arbeitsmappe).ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0)
'Schliesst die geöffnete Datei
ActiveWorkbook.Close False
'Prüft für die nächste Datei
Datei = Dir()
Loop
Application.ScreenUpdating = True
End Sub

Bild

Betrifft: Bin raus...oT
von: GerdW
Geschrieben am: 24.09.2003 12:19:14
ot
 Bild
Excel-Beispiele zum Thema " mehrere dateien in eine"
Suche über mehrere Tabellen Mehrere Schaltflächen für ein Makro
Suchbegriff über mehrere Tabellenblätter suchen. Benutzerdefinierte SVERWEIS-Funktion über mehrere Bereiche
Druck aus mehreren Tabellenblättern auf eine Druckseite AutoFilter über mehrere Arbeitsblätter setzen
Daten von mehreren Blättern auf ein Druckblatt Prozentuale Erhöhung über mehrere Arbeitsblätter hinweg
Werte in mehreren Spalten sortieren Textreihe auf mehrere Spalten mit fester Seitenlänge verteilen