写真情報をエクセルVBAで取得するにはどうしたらいいですか？
未読分：0件
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応
近田 伸矢, 植木 悠二, 上田 寛
IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。
| Message#4 2015年2月6日(金)00時40分 From: VBA写真 | 返事 削除 変更 |
| 「Scripting.FileSystemObject」はCreateObject関数でセットしているんですよね？ 以下のような感じで。 Dim FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") あと実際に試された全コードはりつけてもらっていいですか？ |
| Message#3 2015年2月6日(金)00時39分 From: r8e95 | 返事 削除 変更 |
| 回答ありがとうございます。 いただいたもので試したのですが、Cells(1 + i, 2) = FSO.GetFile(fName).DateCreatedの部分でエラーが発生してしまいます。 エラーメッセージは「ファイルが見つかりません」という実行時エラーになります。 エクセルバージョンのせいでしょうか？ 念のため情報提供するとEXCELは2010を利用しています。 |
| Message#2 2015年2月6日(金)00時36分 From: VBA写真 | 返事 削除 変更 |
| 前半部分のVBAは特に問題ないように見えますね。後半部分を少しカスタマイズしましたので、こちらを一度試してみてください。 Dim FSO As Object fName = Dir(Cells(1, 2) & "\*.*") Set FSO = CreateObject("Scripting.FileSystemObject") i = 1 Do Until fName = "" Cells(1 + i, 2) = fName Cells(1 + i, 3) = FSO.GetFile(fName).DateCreated fName = Dir i = i + 1 Loop Set FSO = Nothing |
| Message#1 2015年2月5日(木)23時17分 From: r8e95 | 返事 削除 変更 |
| 写真が趣味でかなりの写真があります。そちらをエクセルで管理しようかと考えています。 画像を添付してしまうとファイルが重たくなるのでなるべく情報はテキストで保存しようと思っています。 今回は、その１つでエクセル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 |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
