HERBERS Excel-Forum - die Beispiele

Thema: Dateien listen und gekennzeichnete öffnen

Home

Gruppe

Datei

Problem

Mit der ersten Schaltfläche sollen die Dateinamen des in Zelle B1 genannten Verzeichnisses gelistet und mit der zweiten die in Spalte B mit einem x gekennzeichneten Arbeitsmappen geöffnet werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1

Sub ReadFiles()
   Dim iCounter As Integer
   With Application.FileSearch
      .LookIn = Range("B1").Value
      .Filename = "*.xls"
      .Execute
      For iCounter = 1 To .FoundFiles.Count
         Cells(iCounter + 1, 1).Value = Dir(.FoundFiles(iCounter))
      Next iCounter
   End With
End Sub

Sub OpenFiles()
   Dim wks As Worksheet
   Dim iRow As Integer
   Dim sPath As String
   Application.ScreenUpdating = False
   Application.EnableEvents = False
   Set wks = ActiveSheet
   iRow = 1
   sPath = Range("B1").Value
   On Error GoTo ERRORHANDLER
   Do Until IsEmpty(wks.Cells(iRow, 1))
      iRow = iRow + 1
      If LCase(wks.Cells(iRow, 2).Value) = "x" Then
         Workbooks.Open sPath & "\" & wks.Cells(iRow, 1).Value, False
      End If
   Loop
ERRORHANDLER:
   Application.EnableEvents = True
   Application.ScreenUpdating = True
End Sub

Beiträge aus dem Excel-Forum zu den Themen Datei und Öffnen

Excel/PDF Datei unter bestimmten Pfad abspeichern aus excel Worddatei nach Wert durchsuchen
UserForm nur fpr Berechtigte öffnen Split-Funktion beim Einlesen TXT-Datei
Öffnen eines Formulars mit Daten oder leer öffnen Datei löschen mit unterschiedlichen Zahlen im Name
Datei löschen mit unterschiedlichen Zhalen im Name geöffnete Worddatei und Word aus Excel beenden
Excel-Datei nicht im Projekt-Explorer Suche nach jüngster Datei
Mehrere Zellen in mehreren Dateien ersetzen Datei öffnen mit variablen im Namen
Vergleichen zweier Dateien und aktualisieren Datei langsam durch Formel
Dateien aus Unterordner öffnen Daten import aus txt--Datei
Öffnen einer weiteren Excel-File mit VBA Dateipfad öffnen mit VBA
Datei-Verknüpfungen Masterdatei erschaffen?
Mehrere Datenblätter als PDF-Datei ausgeben Makro bei Erstellen einer Datei aus einer Vorlage
Zusammenführung aus mehreren Dateien Rechteck per Button in andere Datei einfügen.
Alle Dateien in einem Unterordner öffnen VBA: MsgBox: yes/no. Bei yes andere Datei öffnen
Mehrere txt Dateien einlesen in ein Programm VBA Datei als .txt speichern
Excel Datei in CSV Datei wandeln mit Extras aktierten Text in geöffnete Worddatei
Spalte in andere Dateien kopieren + zurückkopieren Aus einer CSV-Datei ein bestimmtes Layout erzeugen
Daten ausgew. WS in 2. Datei zusammenführen Listbox nach öffnen der Userform füllen
Per VBA aktuelle Datei in Autostart-Ordner csv Dateien importieren
Makrodatei als Software hochwertiger gestalten manuelles Speichern bei schreibgeschützter Datei
Daten aus geschlossener Datei in Zieldatei kopiere Dateinamen per VBA vorgeben (Datum: Vormonat)
Ordner mit Unterordnern/Dateien kopieren Auswertung über mehrere Dateien
Geschlossene Excel-Datei bearbeiten? datei öffnen durch vba ohne makroaktivierung
Datei öffnet im Entwurfsmodus Dateinamen der ausgelesenen Datei anzeigen
Dateien vergleichen-doppelte löschen Datendatei per Doppelklick einlesen
Hyperlink auf Excel-Datei funktioniert nicht