写真情報をエクセルVBAで取得するにはどうしたらいいですか? 削除
Message#1 2015年2月5日(木)23時17分 From: r8e95 |
写真が趣味でかなりの写真があります。そちらをエクセルで管理しようかと考えています。 画像を添付してしまうとファイルが重たくなるのでなるべく情報はテキストで保存しようと思っています。 今回は、その1つでエクセルVBAで写真撮影日を取得してそれをセルに入力できないか模索しています。 今分かっている知識でいろいろ試してみる更新日は取得できるのですが、撮影日を取得することができません。 どのようにすればよろしいでしょうか? Sub sample() Dim fName As String Dim i As Integer, a As Long If Cells(1, 1) <> "" Then a = Cells(1, 3).End(xlUp).Row Do Until a = 2 Cells(a, 2) = "" Cells(a, 3) = "" a = a - 1 Loop End If fName = Dir((1, 1) & "\*.*") i = 1 Do Until fName = "" Cells(1 + i, 2) = fName Cells(1 + i, 3) = FileDateTime(Cells(1, 4) & "\" & (fName)) fName = Dir i = i + 1 Loop End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。