finde nur je 1 Tabellenblatt

Hallo Excel Experten,
ich möchte in einem Ordner alle Excel-Mappen, die auf 05.xls enden prüfen,
ob sie ein Tabellenblatt "2005" enthalten.
Mein Makro meldet mir je Datei ständig nur ein einziges Tabellenblatt - was definitiv nicht stimmt.
Wo ist mein Denkfehler?
Für einen guten Hinweis bereits jetzt vielen Dank im voraus.
Gruß Peter

Sub Hausdateien_lesen()
Dim Pfad     As String
Dim lIndx    As Long
Dim Datei    As String
Dim DateiNr  As Integer
Dim sht      As Object
Dim lBlatt   As Long

    Pfad = _
   "C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\Excel-Dateien\ErichMüller"
   Range("A6:A65536").Clear
   With Application.FileSearch
      .LookIn = Pfad
      .SearchSubFolders = True
      .Filename = "*05.xls"
      If .Execute() > 0 Then
         For lIndx = 1 To .FoundFiles.Count
            Datei = Mid(.FoundFiles(lIndx), InStrRev(.FoundFiles(lIndx), "\") + 1)
            Sheets(1).Cells(65536, 1).End(xlUp).Offset(1, 0) = Datei
            Workbooks.Open Filename:=Datei
            If Datei = "Grünst-05.XLS" Then Stop
            MsgBox "Anzahl Blätter " & Sheets.Count
            For lBlatt = 1 To Sheets.Count
               If Worksheets(lBlatt).Name = "2005" Then
                  MsgBox sht.Name
               End If
            Next lBlatt
            Workbooks(Datei).Close SaveChanges:=False
         Next lIndx
      End If
   End With

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Peter!
Die einzige Möglichkeit um zu testen ob eine datei ein bestimmtes
Tabellenblatt enthält, ohne die Datei zu öffnen, ist mit einem Excel4Makro!

Sub Hausdateien_lesen()
Dim Pfad As String
Dim lIndx As Long
Dim lRow As Long
Dim vVal As Variant
Dim strPath As String
Dim strFile As String
Dim strFormula As String

Pfad = _
  "C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\Excel-Dateien\ErichMüller"

lRow = 6

Range("A6:A65536").Clear
With Application.FileSearch
  .LookIn = Pfad
  .SearchSubFolders = True
  .Filename = "*05.xls"
  If .Execute() > 0 Then

    For lIndx = 1 To .FoundFiles.Count

      strFile = Right(.FoundFiles(lIndx), InStr(1, StrReverse(.FoundFiles(lIndx)), "\") - 1)
      strPath = Left(.FoundFiles(lIndx), Len(.FoundFiles(lIndx)) - Len(strFile))
      strFormula = "'" & strPath & "[" & strFile & "]2005'!" & Range("A1").Address(, , xlR1C1)

      vVal = ExecuteExcel4Macro(strFormula)

      If Not IsError(vVal) Then
        'Anweisungen wenn Tabelle "2005" gefunden!
        MsgBox "Die Datei: " & .FoundFiles(lIndx) & vbLf & _
          "enthält ein Tabellenblatt mit dem Namen " & Chr(34) & "2005" & Chr(34) & " !"

      End If

    Next lIndx

  End If

End With

End Sub

'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Beliebteste Forumthreads (12 Monate)

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread