Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

17560 / 76732

←次へ　｜　前へ→


	【64625】個々のフォルダからファイルを取り出したい。

あや - 10/2/26(金) 14:53 -


	引用なし

	パスワード

☆現在の状況

マイドキュメント\作業フォルダ　の中に以下のフォルダが100個程度あります。
そのフォルダの中に、それぞれ　excelファイルがひとつ入っています。

マイドキュメント　-　作業フォルダ　-　Folder001_A　-　excel_001.ｘｌｓ
　　　　　　　　　　　　　　　　　　　 -　Folder003_D　-　excel_003.ｘｌｓ
　　　　　　　　　　　　　　　　　　　 -　Folder005_E　-　excel_005.ｘｌｓ
　　　　　　　　　　　　　　　　　　　　　↓
　　　　　　　　　　　　　　　　　　　 -　Folder955_X　-　excel_955.ｘｌｓ
　　　　　　　　　　　　　　　　　　　 -　Folder983_Z　-　excel_983.ｘｌｓ

☆やりたいこと

作業フォルダの直下に　excel_001.ｘｌｓ～ excel_983.ｘｌｓ　のファイルを置きたい。

マイドキュメント　-　作業フォルダ　-　excel_001.ｘｌｓ
　　　　　　　　　　　　　　　　　　　-　excel_003.ｘｌｓ
　　　　　　　　　　　　　　　　　　　-　excel_005.ｘｌｓ
　　　　　　　　　　　　　　　　　　　　　↓
　　　　　　　　　　　　　　　　　　　-　excel_955.ｘｌｓ
　　　　　　　　　　　　　　　　　　　-　excel_983.ｘｌｓ

注意しなければいけない点

フォルダ名･･･数字と英文字が入っていますが、一定ではない。
ファイル名･･･数字が入っていますが、一定ではない。

マクロにて作業出来ればと思っています。
説明不足でしたら、補足させて頂きますので、
よろしくお願いいたしますm(_ _)m

2 hits

▼

【64625】個々のフォルダからファイルを取り出したい。 あや 10/2/26(金) 14:53

≪