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

Alle Excel-Dateien öffnen

Alle Excel-Dateien öffnen
18.07.2005 18:57:59
Rolf
Hallo Excel-Profis,
über einem Makro möchte ich alle Excel-Dateien die sich in einem Ordner mit dem Namen "Test" befinden öffnen, ohne die Dateien beim Namen zu nennen.
Beispiel:

Sub Schaltfläche1_BeiKlick()
Workbooks.Open Filename:= _
"C:\Eigene Dateien\Test\......xls"
End Sub

Hat jemand eine Idee wie das Makro aussehen müßte?
Vielen Dank im voraus
Rolf

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Excel-Dateien öffnen
18.07.2005 19:08:03
Hajo_Zi
Hallo Rolf,

Sub Dateiliste_Öffnen()
'   erstellt von Hajo.Ziplies@web.de
' <a href="http://home.media-n.de/ziplies/">http://home.media-n.de/ziplies/</a>
'   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
Dateiname = Dir
Loop
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Anzeige
AW: Alle Excel-Dateien öffnen
18.07.2005 19:14:17
chris-ka
hi


      
Sub rolf()
Dim DatSearch As FileSearch
Dim k As Integer, i As Integer
Set DatSearch = Application.FileSearch
Path = "C:\test" 
'hier anpassen
With DatSearch
    .LookIn = Path
    .Filename = "*.xls"
    .Execute
    i = .FoundFiles.Count
For k = 1 To i
    Workbooks.Open .FoundFiles(k)
Next
End With
End Sub 


Gruß
Chris
Anzeige
AW: Alle Excel-Dateien öffnen
18.07.2005 20:50:44
Rolf
Hallo Hajo,
Hallo Chris,
beide Makros funktionieren - Vielen Dank
Gruß Rolf

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige