Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
?
Solved

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

Posted on 2014-10-16
8
Medium Priority
?
2,764 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 2000 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
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 
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
 
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

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

Question has a verified solution.

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

How to get Spreadsheet Compare 2016 working with the 64 bit version of Office 2016
Microsoft's Excel has many features that most people will never need nor take advantage of.  Conditional formatting is one feature that you may find a necessity once you start using it.
Graphs within dashboards are meant to be dynamic, representing data from a period of time that will change each time the dashboard is updated with new data. Rather than update each graph to point to a different set within a static set of data, t…
This Micro Tutorial demonstrate the bugs in Microsoft Excel for Mac with Pivot Charts.

572 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