質問: Dir(ThisWorkbook.Path & "*本体材料費*") へ変更したところ、エラーのメッセージが変わり 実行時エラー'1004' 申し訳ございません。「フォルダのなかにある日報Excelのファイル名.xlsm」が見つかりません。名前が変更されたか、移動や削除が行われた可能性があります。 となりました。フォルダの中にエラーメッセージに記載されているブック名のファイルは存在しております。 解決方法を教えていただけないでしょうか。 よろしくお願いいたします。
回答: 作りを見る限りフォルダ内のファイルをループで回そうとしているので、試したことのDirにするのは正しいです。 但し\マークが抜けているので追加が必要です。 またDirの戻り値はファイル名のみなので、ファイルをOpenするときはパス名も指定しないとダメな場合があります。 試しに次のようにしてみてはいかがでしょうか。 ``` file = Dir(ThisWorkbook.Path & "*本体材料費*") ↓ file = Dir(ThisWorkbook.Path & "\*本体材料費*") Set wb = Workbooks.Open(file) ↓ Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & file) ```