Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
928to932
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
928to932
928to932
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Nicht bestimmte Datei - alle Datein lesen

Nicht bestimmte Datei - alle Datein lesen
23.11.2007 15:33:00
Fabio
Hallo zusammen,
der Code (mit lieben Ergängzungen aus dem Forum!) funktioniert.
Ich lasse jeweils eine Datei öffnen, auslesen, ausschneiden, einfügen.
Nun die Frage, wie kann ich "anstatt" jede "einzelne" Datei anzugeben (die sind ja alle in einem Ordner)
alle "*.xls" Datein auslesen.
Also anstatt :
" Workbooks.Open Filename:="C:\Testordner\Sport_1.xls""
" Workbooks.Open Filename:="C:\Testordner\SPort_2.xls""
etc.
dachte ich mit :
" Workbooks.Open Filename:="*.xls"
-> nur - dann habe ich eine Fehlermeldung (400).
Jemand einen Tipp für mich ?
Grüße
Fabio

Sub Dateien_in_eine_Tabelle_zusammenfuehren()
'(C) Unbekannt (Internet)
Dim Datei As String
Dim Arbeitsmappe As String
Dim Pfad As String
Pfad = "C:\Testordner\"
Datei = Dir(Pfad & "*.xls")
Application.ScreenUpdating = False
'Active Mappe
Arbeitsmappe = ActiveWorkbook.Name
'Öffnet eine Datei
Workbooks.Open Filename:="C:\Testordner\Sport_1.xls"
'Kopiert von den Zeilen 2 bis zum Ende
'in die aktive Mappe und fügt sie jeweils unten an
If ActiveWorkbook.ActiveSheet.Range("A65536").End(xlUp).Row > 1 Then
Rows("2:" & ActiveWorkbook.ActiveSheet.Range("A65536").End(xlUp).Row).Cut _
Destination:=Workbooks(Arbeitsmappe).ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0)
End If
'Schliesst die geöffnete Datei
ActiveWorkbook.Save
ActiveWindow.Close
'Öffnet eine Datei
Workbooks.Open Filename:="C:\Testordner\SPort_2.xls"
'Kopiert von den Zeilen 2 bis zum Ende
'in die aktive Mappe und fügt sie jeweils unten an
If ActiveWorkbook.ActiveSheet.Range("A65536").End(xlUp).Row > 1 Then
Rows("2:" & ActiveWorkbook.ActiveSheet.Range("A65536").End(xlUp).Row).Cut _
Destination:=Workbooks(Arbeitsmappe).ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0)
End If
'Schliesst die geöffnete Datei
ActiveWorkbook.Save
ActiveWindow.Close
Application.ScreenUpdating = True
End Sub


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nicht bestimmte Datei - alle Datein lesen
23.11.2007 15:36:28
Hajo_Zi
Hallo Fabio,

Sub Dateiliste_Öffnen()
'   erstellt von Hajo.Ziplies@web.de
' http://home.media-n.de/ziplies/
'   alle Dateien eines Ordners öffnen
Dim strVerzeichnis As String
Dim StrDatei As String
Dim StrTyp As String
Dim Dateiname As String
strVerzeichnis = "D:\Eigene Dateien\Hajo\"
StrTyp = "*.xls"
Dateiname = Dir(strVerzeichnis & StrTyp)
Do While Dateiname  ""
Workbooks.Open Filename:=strVerzeichnis & Dateiname
' Dein Makro
ActiveWorkbook.Close True
Dateiname = Dir
Loop
End Sub



Anzeige
AW: Nicht bestimmte Datei - alle Datein lesen
27.11.2007 16:37:25
Fabio
Hallo Hajo,
jetzt habe ich glatt die Antwort übersehen. Sorry das ich mich erst jetzt melde.
Danke - damit werde ich das mal versuchen!
Liebe Grüße
Fabio

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige