写真情報をエクセルVBAで取得するにはどうしたらいいですか?

最近の書き込み件数: 今日 0件、昨日 0件
未読分:4件

最新20件 最新50件 最新100件 最新200件 200件以前
昨日以降(0) 2日前以降(0) 3日前以降(0) 4日前以降(0) 5日前以降(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
返事 削除 変更
写真が趣味でかなりの写真があります。そちらをエクセルで管理しようかと考えています。
画像を添付してしまうとファイルが重たくなるのでなるべく情報はテキストで保存しようと思っています。

今回は、その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

最新20件 最新50件 最新100件 最新200件 200件以前
昨日以降 2日前以降 3日前以降 4日前以降 5日前以降

ExcelのVBAについてのQ&A掲示板

↑ExcelのVBA全般について分からない事があればこちらの掲示板よりご質問ください^^

VBAのInternetExplorer操作入門

↑ExcelのVBAをマスターできたら、エクセルVBAのIE(InternetExplorer)操作にも挑戦してみてください^^

VBAのIE制御入門RSS

RSSフィードを登録すると最新記事を受け取ることができます。

VBAIE操作のスカイプレッスン

エクセルVBAのステートメント

こちらでは、エクセルVBAの事例で利用したステートメントをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

スポンサー リンク

エクセルVBAのオブジェクト

こちらでは、エクセルVBAの事例で利用したオブジェクトをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

スポンサー リンク

エクセルVBAのプロパティ

こちらでは、エクセルVBAの事例で利用したオブジェクトのプロパティをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

エクセルVBAのメソッド

こちらでは、エクセルVBAの事例で利用したオブジェクトのメソッドをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

エクセルVBAのイベント

こちらでは、エクセルVBAの事例で利用したオブジェクトのイベントをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

dmb.cgi Ver. 1.068
Copyright(C) 1997-2014, hidekik.com