ich habe eine Userform mit einer Textbox, in welche ich einen Pfad eingeben möchte. Es sollen mir dann die Anzahl der Exceldateien in dem Pfad (es müssten aber alle vorhandenen Unterordner ebenfalls durchgegangen werden), sowie die Summe aller darin vorkommenden Tabellenblätter ausgegeben werden.
Ich habe bereits folgendes programmiert:
' Button Suche starten
Private Sub CommandButton1_Click()
Dim meldung As Variant
If Left(TextBox1.Value, 3) Like "?:\" Then
Call Check
Else
meldung = MsgBox("Sie müssen ein exaktes Laufwerk eingeben!", vbOKOnly, "Fehlerhafte Eingabe")
TextBox1.Value = ""
End If
End Sub
Sub Check()Dim originalDatei As String
Dim AnzahlSheets As Long
If Right(TextBox1.Value, 4) = ".xls" Then
' Datei öffnen
Workbooks.Open TextBox1.Value
originalDatei = ActiveWorkbook.Name
ActiveWorkbook.Worksheets(1).Activate
' Anzahl der Tabellenblätter der Datei
AnzahlSheets = Sheets.Count
Workbooks(originalDatei).Close (False)
meldung = MsgBox("Eigenschaften der ausgewählten Datei: " & Chr(13) & Chr(13) & _
"Dateiname: " & originalDatei & Chr(13) & _
"Anzahl Tabellenblätter: " & AnzahlSheets, vbOKOnly, "Ausgabe")
End If
On Error Resume Next
End
End Sub
Gebe ich hier in die Textbox eine genaue Pfadbezeichnung für eine Exceldatei ein, werden mir der Name sowie die Anzahl der Tabellenblätter angezeigt. Soweit also schon mal ganz gut, aber das reicht noch nicht aus. Kann mir da jemand weiterhelfen? So gut sind meine Programmierkenntnisse mit VBA nämlich auch nicht.
Gruss
Andreas