質問: nothing end sub
回答: こんばんは、 >デスクトップ上に ゙検査表 ゙のフォルダーがあり、さらに ゙ a棚 ゙のフォルダー、b棚のフォルダー、c棚のフォルダーなどを追加はできるのでしょうか? 既に回答にある通り、追加は可能と思いますよ。デスクトップ上と言うのは回答にある通りですね。 コード全体を見るとフォルダパスの取得方法を見直して作り直すのが良さそうですが、 ゙ a棚 ゙のフォルダーなどが、 ゙検査表 ゙フォルダの中にあるのであれば、 フォルダパスを取得している フォルダー名 = thisworkbook.path &"\検査表\"の後に加えれば良いのではないでしょうか。 フォルダー名 = thisworkbook.path &"\検査表\a棚¥" ループや配列などa棚などのフォルダパスの取得方法を考えれば良さそうですね。 このままで改造するなら、注文書シートのどこかの列(例 i列)に \検査表\ \検査表\a棚¥ \検査表\b棚\ \検査表\c棚\ ・・・と行方向に入れて for i=1 to 注文書シート.cells(注文書シート.rows.count, "i").end(xlup).row フォルダー名 = thisworkbook.path & cells(i,"i").value (i列の場合) 終 = 注文書シート.cells(注文書シート.rows.count, 4).end(xlup).row for 行 = 2 to 終 ・ ・ ・ next next i set ブック = nothing 余談として 親フォルダ、サブフォルダ内の複数ファイルを操作するのであれば、私的にはfsoを使ってループ、再帰処理させ ファイルパスを配列に取得、条件により処理を分け実行すると思います。