質問: objFS.GetFolder(folderName) For Each OpenFileName In objectFD.Files Next ``` For Each OpenFileName In objectFD.Filesでどうしてもエラーが出ます パスが見つかりませんとでます フォルダのパスがうまくとれていないのでしょうか?
回答: 一番簡単なのはFileDialogを「msoFileDialogFolderPicker」指定で使う方法ではないでしょうか。 ``` Dim Dialog As FileDialog Set Dialog = Application.FileDialog(msoFileDialogFolderPicker) Dialog.Show Debug.Print (Dialog.SelectedItems(1)) ``` 上記の例だと、選択したフォルダ1個をVBA開発環境の出力エリアに表示します(Debug.Printで表示している)。 これでフォルダ選択&指定ができるので、あとはsysjojoさんの回答にある方法で、対象フォルダに入っているファイルの一覧を取得。それぞれについて処理をすれば解決しそうですがどうですか?