Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: PDF Dateien zählen

PDF Dateien zählen
18.05.2018 15:10:09
tobias
Hallo zusammen,
wir versuchen mit dem eingebauten Code
Worksheets("Tabelle1").Range("a1") = FSO.getFolder("I:\Test\2018\1.Jan 2018").Files.Count
Dateien in einem bestimmten Ordner zu zählen. Funktioniert auch, nur wollen wir jetzt nur die PDF zählen lassen. Kann man den Code ergänzen.
Danke im Vorraus und schönes Wochenende
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: PDF Dateien zählen
18.05.2018 15:51:25
ChrisL
Hi Tobias
Let me google this for you.... z.B.
Sub t()
MsgBox CountFilesInFolder(ThisWorkbook.Path, "*.pdf")
End Sub

Private Function CountFilesInFolder(strDir As String, Optional strType As String) As Long
Dim file As Variant, i As Integer
If Right(strDir, 1)  "\" Then strDir = strDir & "\"
file = Dir(strDir & strType)
While (file  "")
i = i + 1
file = Dir
Wend
CountFilesInFolder = i
End Function

Quelle: https://wellsr.com/vba/2016/excel/vba-count-files-in-folder/
cu
Chris
Anzeige
oder das hier...
18.05.2018 16:00:03
Werner
Hallo Tobias,
Public Sub Anzahlsuchen()
Dim strPfad As String
Dim strDatei As String
Dim strSuchMuster As String
Dim intCounter As Integer
strPfad = "I:\Test\2018\1.Jan 2018\" 'Anpassen
strSuchMuster = "*.pdf*" 'Anpassen zum Beispiel *.pdf für nur PDFs zählen
strDatei = Dir(strPfad & strSuchMuster, vbDirectory)
Do While strDatei  ""
intCounter = intCounter + 1
strDatei = Dir
Loop
Worksheets("Tabelle1").Range("A1").Value =  _
"Es befinden sich " & intCounter & " PDF-Dateien in diesem Ordner."
End Sub
@ChrisL: Was sogar von dir ist, vom 04.04.2017
Gruß Werner
Anzeige
AW: PDF Dateien zählen
18.05.2018 16:06:26
UweD
Hallo
hier dein Weg etwas ausgebaut...
Sub dggf()
    Dim FSO, Datei, i As Integer, Pfad As String, Ext As String
    
    Pfad = "I:\Test\2018\1.Jan 2018"
    
    Ext = "pdf"
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    For Each Datei In FSO.getFolder(Pfad).Files
    
        If LCase(FSO.GetExtensionName(Datei)) = Ext Then
            i = i + 1
        End If
    Next
    
    Worksheets("Tabelle1").Range("a1") = i
End Sub

LG UweD
Anzeige
;

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

PDF Dateien zählen in Excel


Schritt-für-Schritt-Anleitung

Um die Anzahl der PDF-Dateien in einem bestimmten Ordner mit Excel VBA zu zählen, kannst du den folgenden Code verwenden:

  1. Öffne Excel und drücke Alt + F11, um den VBA-Editor zu öffnen.
  2. Füge ein neues Modul hinzu: Rechtsklick auf "VBAProject (DeinDateiname)" > Einfügen > Modul.
  3. Kopiere den folgenden Code in das Modul:
Public Sub Anzahlsuchen()
    Dim strPfad As String
    Dim strDatei As String
    Dim strSuchMuster As String
    Dim intCounter As Integer
    strPfad = "I:\Test\2018\1.Jan 2018\" 'Anpassen
    strSuchMuster = "*.pdf*" 'Anpassen für nur PDF-Dateien zählen
    strDatei = Dir(strPfad & strSuchMuster, vbDirectory)
    Do While strDatei <> ""
        intCounter = intCounter + 1
        strDatei = Dir
    Loop
    Worksheets("Tabelle1").Range("A1").Value = _
    "Es befinden sich " & intCounter & " PDF-Dateien in diesem Ordner."
End Sub
  1. Passe den strPfad an deinen gewünschten Ordner an.
  2. Führe das Makro aus, um die PDF-Dateien zu zählen. Das Ergebnis wird in Zelle A1 von "Tabelle1" angezeigt.

Häufige Fehler und Lösungen

  • Fehler: "Pfad nicht gefunden"

    • Stelle sicher, dass der angegebene Ordnerpfad korrekt ist und existiert.
  • Fehler: "Typ nicht definiert"

    • Überprüfe, ob du die richtige Excel-Version verwendest, die VBA unterstützt.
  • Fehler: Kein Ergebnis in Zelle A1

    • Achte darauf, dass der Ordner tatsächlich PDF-Dateien enthält und dass das Suchmuster korrekt definiert ist.

Alternative Methoden

Falls du keine VBA-Programmierung verwenden möchtest, kannst du auch den Windows Explorer nutzen, um die PDF-Dateien zu zählen:

  1. Navigiere zu dem gewünschten Ordner.
  2. Suche nach *.pdf.
  3. Windows zeigt dir die Anzahl der gefundenen Dateien in der Statusleiste an.

Diese Methode ist zwar nicht so automatisiert wie die VBA-Lösung, funktioniert aber schnell für einmalige Zählungen.


Praktische Beispiele

Hier sind einige praktische Beispiele, wie du den VBA-Code anpassen kannst:

  • PDF Seiten zählen: Wenn du die Seiten einer PDF zählen möchtest, benötigst du zusätzliche Tools oder Bibliotheken, da Excel dies nicht nativ unterstützt.

  • PDF Wörter zählen: Ähnlich verhält es sich mit dem Zählen von Wörtern in PDF-Dateien. Hierfür gibt es externe Programme oder Skripte, die du in deine Excel-Anwendung integrieren kannst.

  • PDF Zeichen zählen: Bei dieser Aufgabe benötigst du auch spezielle Software, um die Zeichen in PDF-Dateien zu extrahieren und zu zählen.


Tipps für Profis

  • Optimierung des Codes: Du kannst den Code weiter optimieren, indem du nur bestimmte Dateitypen zählst. Zum Beispiel, wenn du nur nach PDF-Dateien suchst, kannst du die Erweiterung direkt im strSuchMuster anpassen.

  • Fehlerbehandlung: Füge eine Fehlerbehandlung in dein Skript ein, um sicherzustellen, dass das Programm nicht abstürzt, wenn der Ordner nicht existiert oder keine Dateien gefunden werden.

  • Automatisierung: Du kannst das Zählen der PDF-Dateien automatisieren, indem du das Makro beim Öffnen der Excel-Datei oder in regelmäßigen Abständen ausführen lässt.


FAQ: Häufige Fragen

1. Wie kann ich die Anzahl der PDF-Dateien in einem anderen Ordner zählen? Du musst lediglich den strPfad im VBA-Code anpassen, um auf den gewünschten Ordner zu verweisen.

2. Was kann ich tun, wenn ich auch andere Dateitypen zählen möchte? Ändere das strSuchMuster im Code auf die gewünschte Dateiendung, z.B. *.docx für Word-Dokumente.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige