JPEG画像のEXIF情報を読み取って、撮影日時を出力するプログラムを作りたいのですが
http://www.btinc.jp/vba_labo/study1.html
このページに書かれたものを実行しようとすると
Set objJpeg = New JpegExif
のところで、
ユーザー定義型は定義されていません
と言われて実行することができません。
http://blog.livedoor.jp/hamu1962/archives/513758 …
このページに書かれたものを実行しようとすると
Set objFolItem = objFol.ParseName(tarFile)
のところで、
オブジェクト変数またはWithブロック変数が設定されていません。
と言われて実行することができません。
どうすればうまくいきますでしょうか?
それと、上記二つの方法はどちらの方がお勧めでしょうか?
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
> できれば、後半の方も教えていただけないでしょうか?
自分のトコだと動作してるみたいです。
強いて言うなら、
folPathの宣言はVariant型でないと、Namespace関数が受け取らないみたい。
1)
Dim folPath As String
↓
Dim folPath As Variant
そうすれば、Namespace関数に渡せるみたい。
2)
Set objFol = objShell.Namespace("~")
↓
Set objFol = objShell.Namespace(folPath)
と、folpathに入るフォルダ名の「\」は重ねずに、末尾にも付けない。
マイドキュメントなんかの仮想フォルダは指定不可。
3)
folPath = "C:\hoge\hoge"
とか?
後は参考URLのソースをインデントや改行位置修正しただけです。
--
> irfanviewでEXIF情報を保持したまま
> 再圧縮をかけたものは
ちょっと、どういう操作なのか分かりません。
適当なExif情報持ったファイルが手元に無いですが、普通の画像で名前を付けて保存で圧縮率変えたものは、ファイルサイズは取得できました。
> なぜかうまくいかないのですがなぜでしょうか?
よくよく試すと、動作はするけどタイトルのみ出力され、ファイルの情報が出力されていませんでした。
見てみると、JpegExifオブジェクトに最初にファイル名渡す際に、フルパスが渡っていませんでした。
たまたま画像とExcelファイルをカレントフォルダで実行していたとかなら動作していたとか。
質問者さんの環境で、再圧縮したファイルが別のフォルダに出力されてるとかなら、タイトルのみで何も出力されないかも。
If objJpeg.InitSet(fileName) >= 0 Then
↓
If objJpeg.InitSet(tFolder & fileName) >= 0 Then
だと、どうでしょう?
No.1
- 回答日時:
前半だけ、
> ユーザー定義型は定義されていません
> と言われて実行することができません。
クラスが適切な名前で登録されていないからだと思います。
手順だと、
1) Alt+F11でVBA起動。
2) 左のプロジェクトエクスプローラ、VBAProject(ブック名.xlsm)を右クリック、挿入、クラスモジュール
「Class1」クラスが挿入される。
3) Class1を左クリック、メニューの表示、プロパティウィンドウ(F4)
4) プロパティ - Class1のプロパティウィンドウで、(オブジェクト名)の「Class1」を「JpegExif」に変更。
5) 参考URLの後半、「JpegExifクラス」をJpegExifクラスのウィンドウに貼り付け。
以上でクラスの登録終了。
6) VBAProject(ブック名.xlsm)を右クリック、挿入、標準モジュール
「Module1」が挿入される。
7) 参考URLの「JPEGファイルリスト作成」を貼り付け。
後は、エラーが出せてるなら実行できるハズ。
この回答への補足
すいません、前半の方法で
デジカメで撮影したものを読み込ませるとうまくいくのですが
irfanviewでEXIF情報を保持したまま
再圧縮をかけたものはなぜかうまくいかないのですがなぜでしょうか?
Irfanview上では正常にEXIF情報は読み出せているのですが・・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Visual Basic(VBA) VBAでWorkbook.addの使い方 3 2023/02/01 11:58
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) findメソッドの変数について 6 2023/06/23 08:01
- Visual Basic(VBA) Excle VBA Findメソッドについて 3 2022/07/15 13:56
- Visual Basic(VBA) エクセルのマクロとシートの保護について教えてください。 1 2022/10/18 08:36
- Visual Basic(VBA) Excel・ユーザーフォームの情報を受け渡したい 4 2022/06/08 10:11
- Visual Basic(VBA) vba メモリ節約 3 2022/09/16 21:45
- その他(開発・運用・管理) Windowsバッチファイルでリモートデスクトップを自動ログインするが確認画面が出る対処方法 1 2022/12/19 15:48
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
コマンドプロンプトのエラーに...
-
exeファイルを実行するとコマン...
-
VBscriptが起動しない?
-
「読み取りと実行」と「読み取...
-
[teraterm] waitコマンドで停止...
-
ネットワーク名が見つかりません
-
Access の VBA 実行中に他の操...
-
Excelのセルの内容をコマンドプ...
-
【VB.NET】exeを実行すると「発...
-
Excel(エクセル) VBA プロシー...
-
VB.NETでのDOSコマンドを実行に...
-
EXIF情報を出力するマクロ
-
バッチファイルの内容を表示さ...
-
バッチファイルが不正終了して...
-
VScodeのエラー解決法 Pythonの...
-
VBScriptの実行完了を待ってか...
-
vbscriptを用いて他のVBSファイ...
-
[VBScript]ファイルの削除
-
複数のbatファイルを自動実行し...
-
vbsファイルをPC起動時に実行...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
コマンドプロンプトのエラーに...
-
「読み取りと実行」と「読み取...
-
exeファイルを実行するとコマン...
-
VBscriptが起動しない?
-
バッチファイルの内容を表示さ...
-
Excel VBA ステップインが途中...
-
エクセル フォルダの画像を画...
-
バッチファイルが不正終了して...
-
PDFファイルを開き、印刷し、閉...
-
複数のbatファイルを自動実行し...
-
[teraterm] waitコマンドで停止...
-
VBScriptでコマンドプロンプト...
-
ネットワーク名が見つかりません
-
Excel(エクセル) VBA プロシー...
-
Access の VBA 実行中に他の操...
-
VB.NETでのDOSコマンドを実行に...
-
Excelのセルの内容をコマンドプ...
-
VBS実行時にコマンドプロンプト...
-
VBA 既に開いているBookに継続...
-
メッセージを他のPCに出したい
おすすめ情報