Выгрузить gps данные фотографии.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выгрузить gps данные фотографии. (Макросы/Sub)

Maratej

Дата: Пятница, 03.03.2017, 09:15 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

В jpg файле есть EXIF данные, как их выгрузить в excel из указанного расположения изображения?

К сообщению приложен файл: 3714269.xlsx (8.0 Kb) · 7128895.jpg (36.7 Kb)

Ответить

al-Ex

Дата: Пятница, 03.03.2017, 10:27 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 190

Репутация: 59 ±

Замечаний: 0% ±

Excel 2010

сразу и не понял вопроса,
Вряд-ли штатными средствами не получится.

Сообщение отредактировал al-Ex - Пятница, 03.03.2017, 10:45

Ответить

anvg

Дата: Пятница, 03.03.2017, 10:59 | Сообщение № 3

Группа: Друзья

Ранг: Ветеран

Сообщений: 581

Репутация: 271 ±

Замечаний: 0% ±

2016, 365

Доброе время суток.
Если доступна библиотека Microsoft Windows Image Acquisition Library (вроде штатно есть с Window XP), то можно таким макросом
[vba]

Код

Public Sub GetLatLon()
    Dim pImg As New WIA.ImageFile
    Dim propCol As WIA.Properties
    Dim nextProp As WIA.Property
    Dim pVector As WIA.Vector

    pImg.LoadFile "C:\Path\7128895.jpg"
    Set propCol = pImg.Properties
    For Each nextProp In propCol
        Set pVector = Nothing
        If (nextProp.Name = "GpsLatitude") Or (nextProp.Name = "GpsLongitude") Then
            Set pVector = nextProp.Value
            Debug.Print nextProp.Name & " = " & _
                CStr(pVector(1).Value) & "°" & _
                CStr(pVector(2).Value) & "’" & _
                CStr(pVector(3).Value) & "”"
        End If
    Next
    Set pImg = Nothing
End Sub

[/vba]
Успехов.