Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2020to2024
2020to2024
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

ExifTool per Excel VBA ausführen

Forumthread: ExifTool per Excel VBA ausführen

ExifTool per Excel VBA ausführen
21.01.2026 14:15:59
Lutz Meier
Hallo,

ich möchte das ExifTool per Excel VBA ausführen.

Das ExifTool ist ein reines Kommandozeilenwerkzeug. Dieses wird mit bestimmten Parametern gestartet um z.B. die IPTC-Daten aus Bilddateien rauszulesen.
Folgendes gebe ich über die Kommandozeile ein:

exiftool.exe -csv F:\00_Entwickelte_Bilder\Kategorien -r > F:\20_IPTC-Daten_auslesen\ExifTool\TMP.csv

Nun versuche ich das ganze per Excel VBA zu lösen.

Mit

Shell ("F:\20_IPTC-Daten_auslesen\ExifTool\exiftool.exe")

kann ich das Programm zwar starten, aber wenn ich versuche auch die Parameter mit zu übergeben funktioniert das nicht:

Shell ("""F:\20_IPTC-Daten_auslesen\ExifTool\exiftool.exe -csv ""F:\00_Entwickelte_Bilder\Kategorien"" -r > ""F:\20_IPTC-Daten_auslesen\ExifTool\TMP.csv""")

Habe ich da irgendwo falsche " gesetzt?

Danke und Gruß
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ExifTool per Excel VBA ausführen
21.01.2026 14:55:58
Der Steuerfuzzi
Hallo,

sollte eigentlich mit Shell funktionieren. Aber versuche es mal damit: 

Dim WscripShell As Object

Set WscripShell = CreateObject("WScript.Shell")

WscripShell.Run """F:\20_IPTC-Daten_auslesen\ExifTool\exiftool.exe"" -csv ""F:\00_Entwickelte_Bilder\Kategorien"" -r > ""F:\20_IPTC-Daten_auslesen\ExifTool\TMP.csv""", 0, True


Grüße
Michael
Anzeige
AW: ExifTool per Excel VBA ausführen
21.01.2026 15:37:05
Lutz Meier
Nein, das funktioniert leider nicht.
Es kommt zwar keine Fehlermeldung, aber es wird keine .csv-Datei erstellt.
AW: ExifTool per Excel VBA ausführen
21.01.2026 16:23:35
Der Steuerfuzzi
Funktioniert der Aufruf so, wenn Du ihn im Terminal eingibst?
AW: ExifTool per Excel VBA ausführen
21.01.2026 16:55:05
Der Steuerfuzzi
Hm, die Umleitung ist ja eine Besonderheit von cmd und kann vermutlich über shell nicht ausgeführt werden. Dann führen wir halt cmd aus: 
WscripShell.Run "cmd /c """"F:\20_IPTC-Daten_auslesen\ExifTool\exiftool.exe"" -csv ""F:\00_Entwickelte_Bilder\Kategorien"" -r > ""F:\20_IPTC-Daten_auslesen\ExifTool\TMP.csv""""", 0, True

Schau mer mal ob das funktioniert ...
Anzeige
AW: ExifTool per Excel VBA ausführen
21.01.2026 17:07:52
Lutz Meier
Juchuuuuu, das hat funktioniert. Danke dafür.
AW: ExifTool per Excel VBA ausführen
21.01.2026 17:25:38
Lutz Meier
Aber eine kleine Frage habe ich noch:

Nun möchte ich den Pfad, wo die Bilder liegen, durch folgenden Befehl abfragen: 

Dim MyPath As String



    With Application.FileDialog(msoFileDialogFolderPicker)

        

        .AllowMultiSelect = False

        .Title = "Bitte Ordner wählen"

        .InitialFileName = ""

        .InitialView = msoFileDialogViewThumbnail

        .ButtonName = "OK"

        

        If .Show = -1 Then

            GetExcelfolder = .SelectedItems(1)

        End If

    

    End With



    MyPath = GetExcelfolder


Was muss ich jetzt an der entsprechenden Stelle wie ändern?

WscripShell.Run "cmd /c """"F:\20_IPTC-Daten_auslesen\ExifTool\exiftool.exe"" -csv ""F:\00_Entwickelte_Bilder\Kategorien"" -r > ""F:\20_IPTC-Daten_auslesen\ExifTool\TMP.csv""""", 0, True

WscripShell.Run "cmd /c """"F:\20_IPTC-Daten_auslesen\ExifTool\exiftool.exe"" -csv ????? -r > ""F:\20_IPTC-Daten_auslesen\ExifTool\TMP.csv""""", 0, True



Anzeige
AW: ExifTool per Excel VBA ausführen
21.01.2026 17:54:55
Der Steuerfuzzi
Versuch es mal so: 
Dim GetExcelfolder As String



With Application.FileDialog(msoFileDialogFolderPicker)

    

    .AllowMultiSelect = False

    .Title = "Bitte Ordner wählen"

    .InitialFileName = ""

    .InitialView = msoFileDialogViewThumbnail

    .ButtonName = "OK"

    

    If .Show = -1 Then

        MyPath = .SelectedItems(1)

    End If



End With



If Not MyPath = "" Then

    Dim WscripShell As Object

    Set WscripShell = CreateObject("WScript.Shell")

    WscripShell.Run "cmd /c """"F:\20_IPTC-Daten_auslesen\ExifTool\exiftool.exe"" -csv """ & MyPath & """ -r > ""F:\20_IPTC-Daten_auslesen\ExifTool\TMP.csv""""", 0, True

End If
Anzeige
AW: ExifTool per Excel VBA ausführen
21.01.2026 18:01:05
Lutz Meier
SUPER!!! DANKE!!!
AW: ExifTool per Excel VBA ausführen
21.01.2026 17:17:48
Der Steuerfuzzi
Freut mich, dass es funktioniert.
AW: ExifTool per Excel VBA ausführen
21.01.2026 16:37:18
Lutz Meier
Ich habe das jetzt so in der Kommandozeile eingegeben:

C:\Users\Home>"""F:\20_IPTC-Daten_auslesen\ExifTool\exiftool.exe"" -csv ""F:\00_Entwickelte_Bilder\Kategorien"" -r > ""F:\20_IPTC-Daten_auslesen\ExifTool\TMP.csv""", 0, True

Ich bkommt folgende Fehlermeldung:

Die Syntax für den Dateinamen, Verzeichnisnamen oder die Datenträgerbezeichnung ist falsch.

Im Verzeichnis vom exiftool (auf der Kommandozeile) muss ich folgendes eingeben, damit die Datei erstellt wird:

exiftool.exe -csv F:\00_Entwickelte_Bilder\Kategorien -r > F:\20_IPTC-Daten_auslesen\ExifTool\TMP.csv

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum