PDF Dateien zählen

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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: PDF Dateien zählen

18.05.2018 15:51:25

ChrisL
oder das hier...

18.05.2018 16:00:03

Werner
AW: PDF Dateien zählen

18.05.2018 16:06:26

UweD

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

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

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

Infobox / Tutorial

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:

Öffne Excel und drücke Alt + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu: Rechtsklick auf "VBAProject (DeinDateiname)" > Einfügen > Modul.
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

Passe den strPfad an deinen gewünschten Ordner an.
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:

Navigiere zu dem gewünschten Ordner.
Suche nach *.pdf.
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)