Excel VBA質問箱 IV

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

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


3042 / 13646 ツリー ←次へ | 前へ→

【64625】個々のフォルダからファイルを取り出したい。 あや 10/2/26(金) 14:53 質問[未読]
【64630】Re:個々のフォルダからファイルを取り出し... Jaka 10/2/26(金) 17:26 発言[未読]
【64633】Re:個々のフォルダからファイルを取り出し... neptune 10/2/26(金) 22:04 発言[未読]
【64648】Re:個々のフォルダからファイルを取り出し... 超初心者 10/2/28(日) 18:03 発言[未読]
【64649】Re:個々のフォルダからファイルを取り出し... あや 10/3/1(月) 10:07 お礼[未読]

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

引用なし
パスワード
   ☆現在の状況

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

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

☆やりたいこと

作業フォルダの直下に excel_001.xls 〜 excel_983.xls のファイルを置きたい。

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

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

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

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

【64630】Re:個々のフォルダからファイルを取り出...
発言  Jaka  - 10/2/26(金) 17:26 -

引用なし
パスワード
   もう帰るので、ファイル検索だけ。
しかも、2003までにしか使えないFileSearchです。
これで、一旦全ての振るパスファイル名を取得してから、
nmaeプロパティだっけかで、移動してやればいいです。
ファイルの移動は、目安箱に書いてあります。(たぶん書いたような)


Sub 検索LOOKIN改()
  ファイル名 = "*.xls"
  FldNm = CreateObject("WScript.Shell").SpecialFolders("MyDocuments") & "\作業フォルダ"
  With Application.FileSearch
    .LookIn = FldNm
    .SearchSubFolders = True
    .Filename = ファイル名
    If .Execute(SortBy:=msoSortByFileName, _
        SortOrder:=msoSortOrderAscending) > 0 Then
      For i = 1 To .FoundFiles.Count
        Cells(i, 1) = .FoundFiles(i)
      Next i
    Else
      MsgBox ファイル名 & "ファイルはありません。"
    End If
  End With
  End
End Sub

【64633】Re:個々のフォルダからファイルを取り出...
発言  neptune  - 10/2/26(金) 22:04 -

引用なし
パスワード
   ▼あや さん:
過去ログを、「ファイル 再帰」をキーワードにして検索してみましょう。
たくさん同じような質問と解決策があります。

【64648】Re:個々のフォルダからファイルを取り出...
発言  超初心者  - 10/2/28(日) 18:03 -

引用なし
パスワード
   ▼あや さん:

すべて、回答者に頼るようでは
絶対に、希望する物はできあがりません。

あなたには、どこまでの知識があり
どこまで理解できますか?
回答者は、神様ではありません。

過去の質問を検索して理解できるレベルぐらいでないと
回答しても、理解できないでしょう。

【64649】Re:個々のフォルダからファイルを取り出...
お礼  あや  - 10/3/1(月) 10:07 -

引用なし
パスワード
   土日に急な出張にて、ご連絡遅くなりました。
すぐに回答いただいていたのに、何も書き込めず申し訳ありません。

Jakaさんの書いていただいた、FileSearchにて
ファイル名を取り出し、

(nmaeプロパティを調べてみましたが、
調べ方が悪いのか上がってきませんでしたので)
MoveFileメソッドにて、ファイルの移動を行いました。

おかげで必要としていた動作が得られました。

お忙しい中、お知恵を貸して頂き ありがとうございました^^

3042 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free