エクセル写真帳で日付けデータの取得

質問

エクセルで写真帳を作成していますが、『挿入』→『図』→『ファイルから』で任意の写真を選択し、エクセルに貼り付けるように一連の作業をマクロを使って行うようにしています。その際に写真の撮影日付も一緒にエクセルに貼り付けるようにしたいのですが、何か良い方法はありますでしょうか？

回答No.1

_Kyle

私も見よう見まねですが…。

例えば、
フォルダ【　C:\test\　】にある、ファイル【　SamplePic.jpg　】の【　撮影日付　】を【　A1セル　】に返す場合。

'----------------↓　ココカラ　↓----------------
Sub Sample()
　Dim objShell As Object
　Dim objFolder As Object

　Set objShell = CreateObject("Shell.Application")
　Set objFolder = objShell.Namespace("C:\test\")

　Range("A1").Value = objFolder.GetDetailsOf(objFolder.ParseName("SamplePic.jpg"), 25)

　Set objShell = Nothing
　Set objFolder = Nothing
End Sub
'----------------↑　ココマデ　↑----------------

WinXp，Excel2003で動作確認。

■撮影日付の取得について
http://www.accessclub.jp/bbs3/0265/superbeg82559.html
■MP3の「曲の長さ」を調べる
http://officetanaka.net/other/extra/tips16.htm

ご参考まで。

お礼

返事をするのが遅くなって申し訳ありませんでした。
できれば、アクティブな状態のファイル（写真データ）からそのファイルの日付けを取得の取得方法がわかればありがたいです。
よろしくお願いいたします。