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

Beiträge aus den Excel-Beispielen zum Thema " mehrere dateien in eine"