Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1796to1800
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1796to1800
1796to1800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Excel Dateien aus Ordner öffnen

Alle Excel Dateien aus Ordner öffnen
15.12.2020 17:50:24
websnake75
Hallo,
ich bin per Googlesuche leider nicht fündig geworden und habe folgendes Problem:
In einem Ordner liegen mehrere Excel-Dateien, aus denen ich Daten abfragen möchte.
Leider haben sie alle ein Kennwort und ich muss nun erst jede Datei öffnen, das Kennwort eingeben und kann dann die Daten abfragen. Alle Dateien haben das selbe Kennwort.
Hat jemand einen VBA-Code oder kann diesen schreiben, damit ich per Makro die Dateien öffnen kann?
Das würde mir sehr helfen.
Viele Grüße
Ronald

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Excel Dateien aus Ordner öffnen
15.12.2020 18:01:42
Nepumuk
Hallo Ronald,
da du nicht schreibst was du genau mit den geöffneten Mappen machen willst, nur ein Beispiel:
Option Explicit

Public Sub Test()
    
    Const FOLDER_PATH As String = "H:\1215\" 'Anpassen, Backslash am Ende nicht löschen !!!
    
    Dim strFilename As String
    Dim objWorkbook As Workbook
    
    'Erste Datei suchen
    strFilename = Dir$(FOLDER_PATH & "*.xls*")
    
    Do Until strFilename = vbNullString
        
        'Mappe öffnen
        Set objWorkbook = Workbooks.Open(Filename:=FOLDER_PATH & strFilename, Password:="GEHEIM")
        
        'mach was mit der Mappe
        
        'Mappe schließen ohne speichern
        Call objWorkbook.Close(SaveChanges:=False)
        
        'Nächste Datei suchen
        strFilename = Dir$
        
    Loop
    
    'Objekt zurücksetzen
    Set objWorkbook = Nothing
    
End Sub

Gruß
Nepumuk
Anzeige
AW: Alle Excel Dateien aus Ordner öffnen
15.12.2020 18:08:32
websnake75
Danke Nepumuk,
ich möchte eigentlich gar nichts mit den Mappen machen, außer sie per PowerQuery mit einer anderen Datei abzufragen. Die Abfrage geht aber nicht, weil die Passwörter drin sind. Am Schönsten wäre natürlich, wenn er alle öffnen würde das Passwort rausnimmt, speichert und wieder schließt. Ich habe ja sonst während der Abfrage x Excel-Dateien auf. Bekommst Du das hin?
Gruß
Ronald
AW: Alle Excel Dateien aus Ordner öffnen
15.12.2020 18:16:58
Nepumuk
Hallo Ronald,
klar:
Option Explicit

Public Sub Test()
    
    Const FOLDER_PATH As String = "H:\1215\" 'Anpassen, Backslash am Ende nicht löschen !!!
    
    Dim strFilename As String
    Dim objWorkbook As Workbook
    
    Application.DisplayAlerts = False
    
    'Erste Datei suchen
    strFilename = Dir$(FOLDER_PATH & "*.xls*")
    
    Do Until strFilename = vbNullString
        
        'Mappe öffnen
        Set objWorkbook = Workbooks.Open(Filename:=FOLDER_PATH & strFilename, Password:="GEHEIM")
        
        'Mappe speichern ohne Kennwort
        Call objWorkbook.SaveAs(Filename:=FOLDER_PATH & strFilename, Password:=vbNullString)
        
        'Nächste Datei suchen
        strFilename = Dir$
        
    Loop
    
    'Objekt zurücksetzen
    Set objWorkbook = Nothing
    
    Application.DisplayAlerts = True
    
End Sub

Gruß
Nepumuk
Anzeige
AW: Alle Excel Dateien aus Ordner öffnen
15.12.2020 19:15:27
websnake75
Super Nepumuk, das funktioniert echt klasse.
Jetzt müsste er am Schluss nur noch alle schließen.
Muss da irgendwo 
Workbooks.Close

rein?
AW: Alle Excel Dateien aus Ordner öffnen
15.12.2020 19:18:23
Nepumuk
Hallo Ronald,
oooops, Entschuldigung, vergessen.
Option Explicit

Public Sub Test()
    
    Const FOLDER_PATH As String = "H:\1215\" 'Anpassen, Backslash am Ende nicht löschen !!!
    
    Dim strFilename As String
    Dim objWorkbook As Workbook
    
    Application.DisplayAlerts = False
    
    'Erste Datei suchen
    strFilename = Dir$(FOLDER_PATH & "*.xls*")
    
    Do Until strFilename = vbNullString
        
        'Mappe öffnen
        Set objWorkbook = Workbooks.Open(Filename:=FOLDER_PATH & strFilename, Password:="GEHEIM")
        
        'Mappe speichern ohne Kennwort
        Call objWorkbook.SaveAs(Filename:=FOLDER_PATH & strFilename, Password:=vbNullString)
        
        'Mappe schließen
        Call objWorkbook.Close(SaveChanges:=False)
        
        'Nächste Datei suchen
        strFilename = Dir$
        
    Loop
    
    'Objekt zurücksetzen
    Set objWorkbook = Nothing
    
    Application.DisplayAlerts = True
    
End Sub

Gruß
Nepumuk
Anzeige
AW: Alle Excel Dateien aus Ordner öffnen
15.12.2020 19:46:24
websnake75
Echt klasse, vielen, lieben Dank Nepumuk - das hilft mir sehr.
Viele Grüße
Ronald

300 Forumthreads zu ähnlichen Themen

Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
Anzeige
Datensätze aus Blatt auslesen
bully

Hallo Leute,
ich möchte mit VBA aus dem Blatt2 ganze Datenzeilen auslesen, wenn diese in der Spalte3 den Wert enthalten, den ich in Blatt3 in Zelle F6 vorgebe. Die Datenzeilen sollen dann in Blatt3 ab Zeile14 eingefügt werden.
Nach etlichen Selbstversuchen gebe ich jetzt auf.
Gruss...
02.09.2008 15:55:27
Thread-ID: 1006842
6 Beiträge
Daten aus einer anderen Mappe auslesen
Uwe

Hallo zusammen, habe mir einen funktionierenden Einsatzplan für 24 MA und 3 Schichten zusammengebastelt welcher die Monate inkl. Feiertage und Wochenenden dynamisch generiert.
Nun möchte ich wenn ich im zum Beispiel den Einsatzplan für die Mitarbeiter für Februar abrechne, das Excel sich...
14.10.2008 22:12:36
Thread-ID: 1016451
5 Beiträge
Anzeige
Daten aus anderen Quellen auslesen
Ryu

Hallo,
ich habe eine Excel Tabelle wo ich den Verbrauch von Materialien der letzten 6 Monate erfasse. Den Verbrauch kann ich entweder mir Monat für Monat, Artikel für Artikel zusammenkopieren oder ich kann den Verbrauch jeden Monats in die oben genannte Tabelle (andere sheets) kopieren und...
23.10.2008 16:34:00
Thread-ID: 1018740
4 Beiträge
alle Dateien aus Ordner drucken
Bruno

Guten Morgen zusammen
Aus einer Excelmappe möchte ich per VBA diverse PDFs, die zuvor mit Acrobat erstellt worden sind, zusammen drucken. Hier im Forum habe ich einen Code dazu gefunden, der sich jedoch nur auf eine einzelne Datei und nicht auf alle Dateien des Ordners bezieht. Nachstehend...
26.10.2008 10:40:00
Thread-ID: 1019322
5 Beiträge
alle Dateien und Verknüpfungen aus Ordner löschen
marcl

Guten Morgen Forumsgemeinde,
ich habe zwar ein Makro von Ramses, welches alle Dateien eines Ordners auflistet und löscht. Aber die Verknüpfungen findet es leider nicht. Hatte naiv mal mit "*.lnk" als Dateiname versucht. Aber das funzt net.
Wer kann mir weiter helfen?
Danke und Gruß...
26.11.2008 06:40:00
Thread-ID: 1027911
3 Beiträge
Daten aus Dateien auslesen
Bark

Ich habe ein Makro geschrieben, der Dateien in einem bestimmten Verzeichnis der Reihe nach öffnet und bestimmte Inhalte in Variablen packt und die Werte dieser Variablen in einer anderen Datei (Gesamtliste) wieder einfügt.
Läuft alles soweit gut. Aber die Laufzeit könnte besser sein. Was ka...
02.02.2009 14:29:21
Thread-ID: 1046247
4 Beiträge
Dateien aus Unterverzeichnissen auslesen
Michael

Hallo zusammen,
ich habe ein Verzeichnis mit mehreren Unterverzeichnissen und möchte alle Dateien inkl. der Filestruktur ausgelesen bekommen. Habt ihr sowas schon mal gesehen?
Viele Grüße
Michael
05.02.2009 18:28:00
Thread-ID: 1047464
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
2
5
4
2
3
4
2
3
3
4
6
1
1
3
5
3
8
1
14
2
3
5
1
2