Excel VBA質問箱 IV

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

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


6245 / 76734 ←次へ | 前へ→

【76091】ファイル名に指定された文字が含まれるファイルを集約したい
質問  ペンネーム船長  - 14/9/23(火) 11:32 -

引用なし
パスワード
   【質問】
PC環境:win7、エクセル2010
環境:1.Cドライブ直下にtest1というフォルダーがあります。2.test1フォルダーの中に多数のフォルダーがあります。『A』フォルダー『B』フォルダー『C』フォルダー・・・3.各フォルダーの中に『おはよう.xlsx』『こんにちは1.xlsx』『こんにちは2.xlsx』『ようこそ5.xlsx』・・・など多数のファイルがあります。
やりたい事:各フォルダー(『A』『B』『C』・・・)の中のファイル名に『こんにちは』の文字の入ったエクセルをCドライブ直下のtest2にコピーしたい。

For Each 〜 In 〜
  Dim FSO As Object
  Set FSO = CreateObject("Scripting.FileSystemObject")
  FSO.CopyFile "C:\test1\(フォルダー名)\*こんにちは*.xlsx", "C:\test2\"
  Set FSO = Nothing
Next

行き詰ってます。宜しくお願いします
1 hits

【76091】ファイル名に指定された文字が含まれるファイルを集約したい ペンネーム船長 14/9/23(火) 11:32 質問
【76092】Re:ファイル名に指定された文字が含まれる... カリーニン 14/9/23(火) 18:14 発言
【76093】Re:ファイル名に指定された文字が含まれる... カリーニン 14/9/23(火) 18:18 発言
【76095】Re:ファイル名に指定された文字が含まれる... kanabun 14/9/24(水) 12:08 発言
【76097】Re:ファイル名に指定された文字が含まれる... kanabun 14/9/24(水) 14:26 発言
【76100】Re:ファイル名に指定された文字が含まれる... kanabun 14/9/24(水) 16:56 発言
【76103】Re:ファイル名に指定された文字が含まれる... ペンネーム船長 14/9/26(金) 0:50 お礼
【76104】Re:ファイル名に指定された文字が含まれる... kanabun 14/9/26(金) 1:16 発言

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