Alle xls-Dateien eines Ordners öffnen

• Alle xls-Dateien eines Ordners öffnen von Remo vom 08.10.2003 12:54:24
  • AW: Alle xls-Dateien eines Ordners öffnen - von xXx am 08.10.2003 12:57:54
  • AW: Alle xls-Dateien eines Ordners öffnen - von Andi_H am 08.10.2003 13:00:38
    • AW: Alle xls-Dateien eines Ordners öffnen - von Remo am 08.10.2003 13:12:59
      • Danke für die Rückmeldung! o.t. - von Andi_H am 08.10.2003 13:21:12

Betrifft: Alle xls-Dateien eines Ordners öffnen
von: Remo

Geschrieben am: 08.10.2003 12:54:24

Hallo Leute

Ich möchte alle Excel-Dateien eines Ordners öffnen.
Weiss aber nicht recht wie ich das anstellen muss.

Kann mir jemand helfen?

Gruss Remo


Betrifft: AW: Alle xls-Dateien eines Ordners öffnen
von: xXx
Geschrieben am: 08.10.2003 12:57:54

Hallo,
schau dir mal die Filesearch-Methode und das FoundFiles-Objekt an.

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!




Betrifft: AW: Alle xls-Dateien eines Ordners öffnen
von: Andi_H
Geschrieben am: 08.10.2003 13:00:38

Hi Remo,
versuch mal diesen Code: (verzeichnis anpassen)

Sub alleoeffnen()
Dim i As Long
Const verz = "c:\windows\desktop\"
ChDir verz
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
.Execute
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
Next i
End With
End Sub

Gruß

Andi




Betrifft: AW: Alle xls-Dateien eines Ordners öffnen
von: Remo
Geschrieben am: 08.10.2003 13:12:59

Danke vielmal! Du bist für mich der neue Excelgott!




Betrifft: Danke für die Rückmeldung! o.t.
von: Andi_H
Geschrieben am: 08.10.2003 13:21:12

Excel-Beispiele zum Thema " Alle xls-Dateien eines Ordners öffnen"

Excel-Dateien eines Ordners listen		Die Eigenschaft "Stichwort" in allen Dateien eines Ordners ändern
Mails eines Outlook-Ordners in einen anderen verschieben		Nächsthöhere Ebene des Ordners mit der Arbeitsmappe ermitteln