Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

geschlossene Mappen öffnen | Herbers Excel-Forum


Betrifft: geschlossene Mappen öffnen von: steffen
Geschrieben am: 01.12.2009 15:48:01

Hallo in die Runde,

gibt es eine Möglichkeit mittel VBA, alle geschlossenen Mappen eines Ordners zu öffnen?

Ich dachte da in diese Richtung:

Dim wbk As Workbook
For Each wbk In Workbooks
pfad = ThisWorkbook.Path
wbk.Open pfad
Next wbk

Gruß Steffen

  

Betrifft: AW: geschlossene Mappen öffnen von: Hajo_Zi
Geschrieben am: 01.12.2009 16:01:51

Hallo Steffen,

suche im Forum nach Application.FileSearch


GrußformelHomepage


  

Betrifft: Danke-Nuss geknackt von: steffen
Geschrieben am: 02.12.2009 13:44:05

@Hajo,

das war ne ziemlich harte nuss für mein niveau...hab mich aber durchgewurstelt.

Sub Datenuebernahme()

On Error Resume Next
Dim Pfad As String
Dim Name As String
Dim Name2 As String
Dim Datei As String
Dim i As Integer

Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False

Pfad = ThisWorkbook.Path
Name = ThisWorkbook.Name


With Application.FileSearch
.NewSearch
.LookIn = Pfad
'.SearchSubFolders = True
.Filename = "*.xls"
' Sucht nach den Files
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
' Aktionen ausführen - 1.Tabellenblatt löschen und das andere komplett hierhin einfügen
    Datei = Pfad & "\" & Dir(.FoundFiles(i))
    If Datei = Pfad & "\" & ThisWorkbook.Name Then GoTo weiter
    Workbooks.Open Filename:=Datei
    Name2 = ActiveWorkbook.Name
    Sheets(1).Delete
    Workbooks(Name).Sheets(1).Select
    Workbooks(Name).Sheets(1).Copy Before:=Workbooks(Name2).Sheets(1)
    ActiveWorkbook.Close Savechanges:=True
weiter:
Next i
End If
MsgBox "Ich habe nun " & .FoundFiles.Count - 1 & " Dateien angepasst.", , "Fertig"
End With

Application.ScreenUpdating = True
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub
Gruß Steffen


Beiträge aus den Excel-Beispielen zum Thema "geschlossene Mappen öffnen"