[EXCEL$B!!(BNEWS]

hi,

i am using a lot of photos taken at a construction cite,and i have to write
the date of JPG file which is taken

to excel sheet.

how can i get the date VBA property of which is taken at cite.

I mean the date of taking photo

thanks

[Tim Williams[_2_]]

Go he
http://sourceforge.net/projects/exifclass/

Download the (zipped) source code - extract the "cls" file and import to
your VBA project (it's for VB6 but seems to work fine in Excel VBA).

Example usage:

Sub Tester()
Dim exif As New ExifReader

exif.Load "D:\Pics\2009\CIMG1730.JPG"
Debug.Print exif.Tag(DateTimeOriginal)

End Sub

Tim



"EXCEL$B!!(BNEWS" wrote in message
...
hi,

i am using a lot of photos taken at a construction cite,and i have to
write the date of JPG file which is taken

to excel sheet.

how can i get the date VBA property of which is taken at cite.

I mean the date of taking photo

thanks

[macropod[_2_]]

Hi,

To see how you can extract the EXIF data for all jpegs in a foilder to an Excel file, go to:
http://lounge.windowssecrets.com/ind...#entry618 967
and download the attachment there, plus the dll at:
http://members.cox.net/foxbat121/exifview.html

--
Cheers
macropod
[Microsoft MVP - Word]


"EXCEL$B!!(BNEWS" wrote in message ...
hi,

i am using a lot of photos taken at a construction cite,and i have to write the date of JPG file which is taken

to excel sheet.

how can i get the date VBA property of which is taken at cite.

I mean the date of taking photo

thanks

[EXCEL$B!!(BNEWS]

Thanks,it hleps


"Tim Williams" wrote in message
...
Go he
http://sourceforge.net/projects/exifclass/

Download the (zipped) source code - extract the "cls" file and import to
your VBA project (it's for VB6 but seems to work fine in Excel VBA).

Example usage:

Sub Tester()
Dim exif As New ExifReader

exif.Load "D:\Pics\2009\CIMG1730.JPG"
Debug.Print exif.Tag(DateTimeOriginal)

End Sub

Tim



"EXCEL$B!!(BNEWS" wrote in message
...
hi,

i am using a lot of photos taken at a construction cite,and i have to
write the date of JPG file which is taken

to excel sheet.

how can i get the date VBA property of which is taken at cite.

I mean the date of taking photo

thanks

[EXCEL$B!!(BNEWS]

Thanks,it hleps
"macropod" wrote in message
...
Hi,

To see how you can extract the EXIF data for all jpegs in a foilder to an
Excel file, go to:
http://lounge.windowssecrets.com/ind...#entry618 967
and download the attachment there, plus the dll at:
http://members.cox.net/foxbat121/exifview.html

--
Cheers
macropod
[Microsoft MVP - Word]


"EXCEL$B!!(BNEWS" wrote in message
...
hi,

i am using a lot of photos taken at a construction cite,and i have to
write the date of JPG file which is taken

to excel sheet.

how can i get the date VBA property of which is taken at cite.

I mean the date of taking photo

thanks

[ipi-paul]

You can use the Input Textstream functions in Exel VBA to read the data
in JPG files and pick out the Picture Taken Date. I have created an
excel workbook with this <a
href="http://www.ipi-international.co.uk/IPI%20Backup.zip"function</a.
You can copy the code from there if you wish. It seems that there are
some differences in the time when looking at the Picture Taken Date
using Explorer on a Vista system.


EXCEL$B!!(BNEWS;578204 Wrote:

hi,

i am using a lot of photos taken at a construction cite,and i have to
write
the date of JPG file which is taken

to excel sheet.

how can i get the date VBA property of which is taken at cite.

I mean the date of taking photo

thanks


--
ipi-paul
------------------------------------------------------------------------
ipi-paul's Profile: http://www.thecodecage.com/forumz/member.php?u=1819
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=159835

http://www.thecodecage.com/forumz