こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

エクセルVBA DIR 読むのを途中で終わる

JPGのファイルがまだあるのに途中でやめてしまいます。
なんででしょうか?
Worksheets("作業用").Columns("B").Clear
Worksheets("作業用").Range("B1").value = "JPG名"
N = 2
JPGNAME = Dir(XPATH & "*.JPG")
Do Until JPGNAME = ""
Worksheets("作業用").Range("B" & N).value = JPGNAME
JPGNAME = Dir()
N = N + 1
Loop

投稿日時 - 2020-08-06 17:20:52

QNo.9781938

困ってます

質問者が選んだベストアンサー

http://officetanaka.net/excel/vba/tips/tips69.htm
Dir関数の注意点 にあるように

元データの拡張子の問題ではないですか?
特に拡張子において、
htmlとhtmの4文字とhtmの3文字、jpegはjpegの4文字とjpg3文字で使われるので、両者混合して存在しているのではないですか?
また、Win関係とMac関係では、一部の約束事が違うのでその点も不安を覚えますが。
 FSOを使って、フォルダ内の指定拡張子を判別するコードを別に作って試してみては?(WEBに記事があると思う)

投稿日時 - 2020-08-07 17:22:10

お礼

ありがとうございます。
いままでDIRを使っていましたので
FSOがあることを知りませんでした。
今回Ghostscriptというプログラムで
PDFをJPGに変換してたくさんのJPGファイルが
できた直後のDIRなので読みにいくのが間に合わない
のかなと思っています。
FSOで試してみます。
ありがとうございます。

投稿日時 - 2020-08-11 11:27:15

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問