Solved

Excel VBA function to extract "Date taken" info from jpg files

Posted on 2014-10-16
8
1,567 Views
Last Modified: 2014-10-17
hi there, I'm looking for a function to extract the "Date taken" info from jpg files, given the jpg URL.

function GetDateTaken(myURL)
.....

It's been a while since i used VBA so a complete working function, if it's not many lines, would be great.

Thanks!
0
Comment
Question by:xenium
  • 4
  • 3
8 Comments
 
LVL 10

Expert Comment

by:Anthony Berenguel
ID: 40385759
GivenLocation = "c:\temp\" 'note the trailing backslash
OldFileName = "SomeFileName.xls"
NewFileName = "DifferentFileName.xls"
Name GivenLocation & OldFileName As GivenLocation & NewFileName

Open in new window


I have used this before.
Source http://www.mrexcel.com/forum/excel-questions/586216-excel-visual-basic-applications-rename-existing-file.html

Of course you'll need to modify this code to extract the date out of the file name.  In which format is the date presented in the file name?
0
 
LVL 14

Accepted Solution

by:
Farzad Akbarnejad earned 500 total points
ID: 40385934
Hello,
I import a class from http://sourceforge.net/projects/exifclass/ into a sample macro enabled file and write your proper function in a module. I attached a sample with this comment. Press Alt+F11 to see its code and test the function in module.

-FA
sample.xlsm
0
 

Author Comment

by:xenium
ID: 40386326
hi Farzad, thanks that looks like it'll do the trick. I tried your sample and get error "User defined type not defined", and the following line is highlighted:

Public Property Get Tag(Optional ByVal ExifTag As EXIF_TAG) As Variant

Open in new window


Is there something else I need to do?

Thanks again.
0
 
LVL 14

Expert Comment

by:Farzad Akbarnejad
ID: 40386419
Hi,
No. All you need I include it. Make sure that you enable content and macro (code) when load it in Excel. Probably by clicking on two buttons.

-FA
0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
LVL 14

Expert Comment

by:Farzad Akbarnejad
ID: 40386424
You must use the function I add it to Genral module. You can testit using immediate window by pressing ctrl+g in code editor.
0
 

Author Comment

by:xenium
ID: 40386471
Oops sorry seems to work fine now! Thanks a millon!
0
 

Author Closing Comment

by:xenium
ID: 40386472
Good stuff thanks!
0
 
LVL 14

Expert Comment

by:Farzad Akbarnejad
ID: 40386854
Glad to help you. :)

-FA
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Dealing with unintended Excel Active-X resizing quirks (VBA code simulates "self correction") David Miller (dlmille) Intro Not everyone is a fan of Active-X controls in spreadsheets (as opposed to the UserForm approach, the older Form controls …
Convert between Excel file formats (.XLS, .XLSX, .XLSM) with/without macro option David Miller (dlmille) Intro Over this past Fall, I've had the opportunity to see several similar requests and have developed a couple related solutions associate…
The view will learn how to download and install SIMTOOLS and FORMLIST into Excel, how to use SIMTOOLS to generate a Monte Carlo simulation of 30 sales calls, and how to calculate the conditional probability based on the results of the Monte Carlo …
This Micro Tutorial will demonstrate how to use a scrolling table in Microsoft Excel using the INDEX function.

911 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

22 Experts available now in Live!

Get 1:1 Help Now