Excel VBA質問箱 IV

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

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


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

6245 / 76734

←次へ　｜　前へ→


	【76091】ファイル名に指定された文字が含まれるファイルを集約したい

ペンネーム船長 - 14/9/23(火) 11:32 -


	引用なし

	パスワード

【質問】
ＰＣ環境：win7、エクセル2010
環境：1.Ｃドライブ直下にｔｅｓｔ1というフォルダーがあります。2.ｔｅｓｔ1フォルダーの中に多数のフォルダーがあります。『A』フォルダー『B』フォルダー『C』フォルダー・・・3.各フォルダーの中に『おはよう.xlsx』『こんにちは1.xlsx』『こんにちは2.xlsx』『ようこそ5.xlsx』・・・など多数のファイルがあります。
やりたい事：各フォルダー（『A』『B』『Ｃ』・・・）の中のファイル名に『こんにちは』の文字の入ったエクセルをＣドライブ直下の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

≪