Office: (Office 2010) Foto Metadaten auslesen

Guten Tag alle zusammen,

ich würde gerne aus einem Ordner mit Fotos einige Metadaten auslesen (Name, Datum, Größe, Ort(GPS)).

Ich habe das Netz schon nach Möglichkeiten durchforstet aber leider nichts gefunden was mir weiter hilft.

Ich habe mir das so vorgestellt, dass Excel dann Spalten mit den entsprechenden Metadaten erzeugt und logischerweise dann für jedes Bild eine Zeile erstellt.

Würde mich über eure Hilfe sehr freuen.

Grüße

:)

 

Hallo,

es gibt mit Excel (mindestens) 2 Möglichkeiten

- die Eigenschaften der Datei auszulesen (nur Längen- und Breitengrad)
- mit WIA (windows image acquisition ALLE Details auszulesen.

Die Eigenschaften der Bilddatei kannst du mit dem Explorer ansehen, sofern du die Optionen entsprechend auswählst.

mfg

(du bist fit in VBA?)
Es gibt auch diverse Foto-Tools, z.b. ExIfTool.exe, aber Lightroom dürfte die beste Lösung sein, damit kann man auch über die Karte die GPS-Daten zuordnen

 

Hey,
vielen Dank für die Antwort.
Ich habe dazu dieses Beispiel gefunden. Aber dort fehlen mir die Metadaten zur Ortsangabe (GPS.Längen-,Breitengrad).
Zudem würde ich die Tabelle um einige Spalten minimieren.

Wie könnte ich das ganze ergänzen bzw. minimieren ?



Option Explicit

PHP:

         Public Sub test()
Const STRFOLDER As String = "D:Eigene DateienEigene Excelbeispiele"
Dim objShell As Object, objFolder As Object
Dim bytIndex As Byte, intColumn As Integer, lngRow As Long
Dim varName, arrHeaders(37)
If Dir(STRFOLDER, 16) = "" Then
MsgBox "Der Ordner " & STRFOLDER & " wurde nicht gefunden!", 64, "Hinweis"
Exit Sub
End If
Application.ScreenUpdating = False
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(STRFOLDER)
intColumn = 1
For bytIndex = 0 To 37
arrHeaders(bytIndex) = objFolder.GetDetailsOf(varName, bytIndex)
Cells(1, intColumn + bytIndex) = arrHeaders(bytIndex)
Next
Rows(1).Font.Bold = True
lngRow = 2
For Each varName In objFolder.Items
For bytIndex = 0 To 37
Cells(lngRow, intColumn + bytIndex) = objFolder.GetDetailsOf(varName, bytIndex)
Next
lngRow = lngRow + 1
Next
Columns.AutoFit
Set objShell = Nothing
Set objFolder = Nothing
Application.ScreenUpdating = True
End Sub


 

Hallo,

lasse diese Zeile EINMAL laufen und notiere die Nr für die GPG, es gibt da Unterschiede für die Windows - Versionen:

Code:

Danach ersetzt du die Schleife 1-37 durch die Zahl für GPS.

mfg

 

Hallöchen,

wenn sich jemand mit dem Thema auskennt, dann ist es Fen ... *wink.gif*

... und nur weil die GPS-Daten fehlen, muss es nicht heißen, dass sie nicht da sind ... oder sie sind tatsächlich nicht da. *Smilie Kommt immer auf die Kamera an.

GetDetailsOff ... kann nicht sehr viele Exif-Daten lesen. Und mit RAW-Files kommt es auch nicht klar.

Wenn du wirklich in das Thema einsteigen willst, dann solltest du tatsächlich nach WIA (Windows Image Aquisition) suchen. Es gibt so einiges für VBA ... ABER ... seine volle Leistung spielt die WIAaut.DLL erst in .Net aus.

Daher solltest du auch nach fertigen Programmen schauen ... einige können die Daten per TXT exportieren.

 

Ich habe die Schleife nun von 0 auf 255 erweitert. Allerdings werden mir immernoch keine GPS Daten angezeigt.

Würde wenn es geht sehr gerne bei Excel bleiben.

 

Hallo,

willst du nur die GPS-Daten auslesen ? *rolleyes.gif*

Dann solltest du eventuell auch genau danach in der Suchmaschine deines Vertrauens suchen.

Dann findest du eventuell das ...
https://www.everythingaccess.com/tut...rom-JPEG-files
oder das ... http://www.*************************416647_15_0_asc.php

Die **** sollten eigentlich ... office-loesung.de & /ftopic heißen. Musst du ohne das & hintereinander schreiben. Die mögen hier keine Werbung. *wink.gif*

 

Hallo,

vor einigen Monaten hatte ich mit Unterstützung von Flotter Feger eine Abfrage für viele Exif-Daten geschrieben.

Hier die Version, die nur die GPS-Daten aller jpg aus einem frei-wählbaren Ordner ausliest:

Code:

Gib bitte feedback, ob es geklappt hat.

mfg

 

Hey vielen Dank für eure bisherige Hilfe.

Nein ich möchte Name, Datum und GPS Daten von allen Bildern in einem Ordner auslesen und entsprechend als Tabelle in Excel anzeigen lassen.

Mit deinem vorgeschlagenen Link funktioniert es leider auch nicht oder kann ich damit irgendwie ein VBA Skript in Excel erstellen, sodass ich gerade nur auf dem Schlauch stehe ?

....blöden GPS Daten *biggrin.gif*

 

Leider funktioniert es damit noch nicht.

Ich habe dort lediglich meinen Pfad eingesetzt.

PHP:

         Ordner auswählen
With App.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = "C:Users10342364DesktopNeuer Ordner"
If .Show Then Pt = .SelectedItems(1) & ""
End With


 

Hallo,

das ist der Folder-Picker, nachdem der Folder ausgewählt wurden, einfach mit OK bestätigen.

InitialFileName ist nur der Startpunkt, von dem man sich durch-klicken kann.

Wenn der Ordner gewählt wurde, läuft der Code über alle *.jpg

mfg

 

Hallo,

hier ist die Datei (Code hier im Fenster), die ich damals in einem anderen Forum gepostet habe. Du musst "nur" die ExIf-Codes der VIER GPS Daten (Länge, Breite, Höhe, Geschwindigkeit) in der zweiten Zeile eintragen.

Hier werden beliebig viele Dateien eines Ordners ausgewählt.

PHP:

         Sub Neue_Fotos()
Dim Img ' as Imagefile
Dim ID As Variant
Dim lr As Long 'letzte Zeile --> wird beschrieben

Application.EnableCancelKey = xlInterrupt

Set Img = CreateObject("WIA.ImageFile")

lr = Cells(Rows.Count, 1).End(xlUp).Row

With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True
.InitialFileName = "c:tempexifdownloads" '<<<<<<<<<<< anpassen >>>>>>>
.Filters.Clear
.Filters.Add "jpg Fotos", "*.jpg"
.Show
If .SelectedItems.Count >= 1 Then

sStart = Timer
For i = 1 To .SelectedItems.Count

If Not rng Is Nothing Then GoTo NN
lr = lr + 1
Cells(lr, 1) = .SelectedItems(i)

Call Img.LoadFile(.SelectedItems(i))

'alle Spalten
With Img
For j = 2 To Cells(1, Columns.Count).End(xlToLeft).Column
ID = WorksheetFunction.Hex2Dec(Mid(Cells(2, j), 3))

If .Properties.exists(ID) Then
With .Properties(ID)
If .Type < 1100 Then
Cells(lr, j) = .Value
Else
For v = 1 To .Value.Count
Cells(lr, j) = Cells(lr, j) & .Value.Item(v) & ", "
Next v
End If
End With
End If

Next j
End With
NN:
DoEvents
Application.StatusBar = i
Next i
End If
End With
Debug.Print Timer - sStart
Set Img = Nothing
Beep
Application.StatusBar = ""
Exit Sub

End Sub


 

Hallo,

damals hatte ich so viele verschiede Versionen gemacht, da wird es leicht unübersichtlich.

In dieser Datei werden die ausgewählten Exif UND die GPS-Daten angezeigt.

Mit WIA kann man auch recht gut die versteckten Maker.Notes auslesen, aber die sind schwer zu entschlüsseln.

mfg

 

Hey Leute,

erstmal vielen vielen Dank für eure Hilfe.

@fennek11
Nach Einstellen der Makros funktioniert es nun mit dem Projekt GPS aus Folder.xlsm
Damit komme ich meinem Wunsch schon näher.

Da ich auch noch gerne das Datum haben möchte, habe ich versucht mein erstes vorgestelltes Programm mit deinem zu kombinieren, sodass dieses quasi 5 mal die Schleife durchläuft und die entsprechenden Daten darstellt und deinen Code um die GPS Daten auszulesen. Funktioniert leider "noch" nicht *biggrin.gif*

Da bin ich noch gerade dran. Zudem bin ich gerade dabei, dass das Skript bei jedem Öffnen der Exceldatei ausgeführt wird, sodass sich die Tabelle beim Öffnen aktualisiert, weil aktuell ist es so, dass ich immer den VBA Editor öffnen muss und das Skript ausführen muss, sodass sich die Liste aktualisiert.

Könnte ich in deinem Skript auch einen festen Ordner vorgeben, sodass der Benutzer den Pfad vorgeschrieben bekommt ?

So jetzt erstmal ein Ründchen tüfteln...

Liebe Grüße

 

Hallo Tim,

hast du die Datei unter #13 getestet?

Lösche zuerst alle Spalten, die dich nicht interessieren. Falls du mit Canon fotografiertst, wird der Code bei den Maker-Notes recht lange brauchen. Bei anderen Herstellern fällt das nicht auf.

In der Auswahl kannst du direkt Fotos auswählen. Da die Dateinamen der bereits bearbeiteten Fotos in Spalte A stehen, ist es einfach (einfacher als ein Abgleich mit VBA) neue Fotos (weitere Ordner) von Hand zu selektieren.

Dies entspricht meiner Art Fotos pro Event in einem eigenen Ordner zu speichern.

mfg

(es ist einfacher alle gewünschten Infos per WIA einzulesen als ein Mix zwischen NameSpace und WIA)