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

解決済みの質問

画像ファイル名抽出マクロが機能しない

mt2015様
以前
https://okwave.jp/qa/q9432826.html
で質問させていただいたものです。

当時に作っていただいた
Sub Sample()
  sPath = "C:\Users\Owner\Downloads\通販素材\tsuhan_jp_5028_2018-02-26\setting_000002016\"
  nRow = 2
  sSubFol = Cells(nRow, 1).Text
  Do While sSubFol <> ""
    nCol = 10
    sFileName = Dir(sPath & sSubFol & "\*.jpg")
    Do While sFileName <> ""
      Cells(nRow, nCol) = sFileName
      sFileName = Dir()
      nCol = nCol + 1
    Loop
    nRow = nRow + 1
    sSubFol = Cells(nRow, 1).Text
  Loop
End Sub
のマクロが当時は問題なく動いていたのですが、急にファイル名が抽出されなくなったのですが、どのような原因が考えられますでしょうか?

投稿日時 - 2018-04-23 09:03:48

QNo.9491462

困ってます

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

・Pathが「C:\Users\Owner\Downloads\通販素材\tsuhan_jp_5028_2018-02-26\setting_000002016」から変わった。
・違うシートをアクティブにした状態でマクロを実行している。

と、言った辺りが気になります。
マクロを使うならデバッグ方法についても身につけましょう。
1行づつステップ実行して、変数に入った値を確認し、何が想定と違うのかを確認すれば原因も修正方法も解ります。

投稿日時 - 2018-04-23 10:47:52

補足

保存しているファイルのフォルダの場所が変わり、マクロのパスを変更いたしました。しかし何も反応しませんでした。
その後ためしにマクロのファイルをサブフォルダの直下に保存し実行したらできたのですが、その方法で良かったのでしょうか?

投稿日時 - 2018-04-23 13:29:54

お礼

助かりましたありがとうございます。

投稿日時 - 2018-05-04 17:44:28

ANo.1

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

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

回答(2)

ANo.2

> その後ためしにマクロのファイルをサブフォルダの直下に保存し実行したらできたのですが、その方法で良かったのでしょうか?

そちらの環境が解りませんので何とも言えませんが、「信頼できる場所」以外に保存されたブックのマクロを無効にする設定がされていればありえます。

投稿日時 - 2018-04-23 17:20:43

あなたにオススメの質問