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

Forumthread: .pdf Dateien umbenennen

.pdf Dateien umbenennen
25.10.2017 11:44:50
Gerhard
Hallo zusammen,
Bitte um VBA Hilfe!
Im Verzeichnis D:\Messungen\Reflexion\
werden Messdateien im Format .pdf abgelegt.
Die Dateien sollten nach folgenden Format-Shema alle umbenannt werden:
Speicherdatum und Uhrzeit sowie mit anschließendem Text Reflexion
z.B:
2017.10.23_10: 19_Reflexion.pdf
usw.
Vielen Dank für Eure Hilfe
Gruß Gerhard
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: .pdf Dateien umbenennen
25.10.2017 11:50:59
Rolf.dW
Hallo Gerhard,
wie lauten denn die Ursprungs-Dateinamen?
Gruß, Rolf
AW: .pdf Dateien umbenennen
25.10.2017 12:00:05
Gerhard
Halo Rolf
MID-1.Sample.pdf
MID-2.Sample.pdf
können aber auch durch manuelle Eingabe im Messgerät z.B. so benannt werden
MID-408.Sample_400-550nm.pdf
Gruß Gerhard
AW: .pdf Dateien umbenennen
25.10.2017 12:07:31
Nepumuk
Hallo Gerhard,
teste mal:
Option Explicit

Public Sub Umbenennen()
    Const FOLDER_PATH As String = "D:\Messungen\Reflexion\"
    Dim strFilename As String
    strFilename = Dir$(FOLDER_PATH & "*.pdf")
    Do Until strFilename = vbNullString
        Name FOLDER_PATH & strFilename As FOLDER_PATH & Format$(FileDateTime( _
            FOLDER_PATH & strFilename), "yyyy.mm.dd_hh-nn-ss") & "_Reflexion.pdf"
        strFilename = Dir$
    Loop
End Sub

FileDateTime ist zwar das Änderungsdatum, aber das sollte bei PDF's gleich dem Speicherdatum sein.
Gruß
Nepumuk
Anzeige
AW: .pdf Dateien umbenennen
25.10.2017 12:43:56
Rolf.dW
Hallo Gerhard,
würde also heißen, aus
MID-408.Sample_400-550nm.pdf soll
MID-408.Sample_400-550nm_2017.10.23_10: 19_Reflexion.pdf werden. Habe ich das richtig verstanden?
Gruß, Rolf
AW: .pdf Dateien umbenennen
25.10.2017 12:46:21
Gerhard
Hallo Nepumuk
Vielen Dank für Deine schnelle Hilfe!
funktioniert super...
Gruß Gerhard
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
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 umbenennen leicht gemacht


Schritt-für-Schritt-Anleitung

Um .pdf Dateien mithilfe von VBA in Excel umzubenennen, folge dieser Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Klicke auf Einfügen und wähle Modul.
  3. Kopiere den folgenden VBA-Code in das Modul:

    Option Explicit
    
    Public Sub Umbenennen()
       Const FOLDER_PATH As String = "D:\Messungen\Reflexion\"
       Dim strFilename As String
       strFilename = Dir$(FOLDER_PATH & "*.pdf")
       Do Until strFilename = vbNullString
           Name FOLDER_PATH & strFilename As FOLDER_PATH & Format$(FileDateTime( _
               FOLDER_PATH & strFilename), "yyyy.mm.dd_hh-nn-ss") & "_Reflexion.pdf"
           strFilename = Dir$
       Loop
    End Sub
  4. Führe das Skript aus:

    • Drücke F5 oder klicke auf Ausführen im Menü.
  5. Überprüfe den Zielordner auf die umbenannten .pdf Dateien.


Häufige Fehler und Lösungen

  • Fehler: "Datei nicht gefunden"

    • Lösung: Stelle sicher, dass der angegebene Pfad im Code korrekt ist und dass sich die .pdf Dateien tatsächlich im angegebenen Verzeichnis befinden.
  • Fehler: "Zugriff verweigert"

    • Lösung: Überprüfe die Datei- und Ordnersicherheitseinstellungen. Stelle sicher, dass Du die nötigen Berechtigungen zum Umbenennen der Dateien hast.

Alternative Methoden

Falls Du kein VBA verwenden möchtest, kannst Du auch folgende Methoden ausprobieren:

  • Batch-Datei: Erstelle eine Batch-Datei (.bat) zur Umbenennung der .pdf Dateien. Das erfordert jedoch grundlegende Kenntnisse in der Batch-Programmierung.

  • PowerShell: Nutze PowerShell-Skripte, um .pdf Dokumente umzubenennen. Hier ein einfaches Beispiel:

    Get-ChildItem "D:\Messungen\Reflexion\*.pdf" | 
    ForEach-Object {
       $newName = (Get-Date -Format "yyyy.MM.dd_HH-mm-ss") + "_Reflexion.pdf"
       Rename-Item $_.FullName $newName
    }

Praktische Beispiele

Angenommen, Du hast folgende .pdf Dateien:

  • MID-1.Sample.pdf
  • MID-2.Sample.pdf
  • MID-408.Sample_400-550nm.pdf

Nach der Ausführung des VBA-Codes werden sie umbenannt zu:

  • 2023.10.23_10-19-00_Reflexion.pdf
  • 2023.10.23_10-19-01_Reflexion.pdf
  • 2023.10.23_10-19-02_Reflexion.pdf

So kannst Du Deine .pdf Dateien effizient umbenennen und nach Datum und Uhrzeit sortieren.


Tipps für Profis

  • Datei umbenennen vba optimieren: Füge eine Fehlerbehandlungsroutine hinzu, um das Skript robuster zu gestalten.

  • Automatisierung: Überlege, ob Du das Skript automatisiert bei jeder Excel-Öffnung oder nach einem bestimmten Zeitintervall ausführen möchtest.

  • PDF auslesen und umbenennen: Wenn Du mehr Informationen aus den .pdf Dokumenten abrufen möchtest, erwäge die Verwendung von Bibliotheken wie Adobe Acrobat API oder PDFBox.


FAQ: Häufige Fragen

1. Wie kann ich mehrere .pdf Dateien umbenennen? Mit dem oben genannten VBA-Skript kannst Du alle .pdf Dateien in einem bestimmten Verzeichnis gleichzeitig umbenennen.

2. Kann ich die umbenannten Dateien auch in Excel einfügen? Ja, Du kannst die umbenannten .pdf Dateien in Excel einfügen, indem Du den Pfad in eine Zelle schreibst oder mit der Funktion =HYPERLINK() arbeitest.

3. Ist VBA die einzige Möglichkeit, um .pdf Dateien umzubenennen? Nein, Du kannst auch PowerShell oder Batch-Dateien verwenden, um .pdf Dateien umzubenennen, je nach Deinen Vorlieben und Kenntnissen.

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