写真情報をエクセルVBAで取得するにはどうしたらいいですか? 削除
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 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。