[[20111116214957]]　『ファイル振り分けとフォルダ自動作成』（あや）　ページの最後に飛ぶ

『ファイル振り分けとフォルダ自動作成』（あや）

 ファイル( データ)を名称ごとにフォルダ分けしたいのですがどうすればいいでしょうか。
 フリーソフトではファイル振り分けはあるのですが、フォルダ自動作成まではありません。

 現在の状態
 　　①ある１つのフォルダの中にファイル振り分けしたいPDFファイルが多数あり
　　 ②フォルダはエクセルシートのリストから自動作成したい
 　　③フォルダ振り分けするPDFファイル名も②のリストに載っている

 エクセルシート
   A列　　　　　 B列
　 フォルダ１　　PDFファイル１
　 フォルダ２　　PDFファイル２
 　フォルダ１　　PDFファイル３
 　フォルダ３　　PDFファイル４

↓

 フォルダ１のフォルダにはPDFファイル１とPDFファイル３
 フォルダ２のフォルダにはPDFファイル２
 フォルダ３のフォルダにはPDFファイル４

 フォルダ１～３のフォルダをエクセルシートのA列のリストを元に自動作成して、尚且つそのフォルダに該当のPDFファイルを移動させたいのです。

Excel2003

 「VBA フォルダ作成」や「VBA ファイル移動」あるいは「VBA フォルダから抽出」といったもので検索してみた？

 (ぶらっと)

 検索してみましたが該当のものはありません

 (あや)

 ぶらっとさんは魚の釣り方を教えてくださっています。
 それを自分のものにして魚を釣り上げるのはあやさん自身です。

 口を空けていても誰も口の中に魚を入れてくれる人はいませんよ。
 キーワードが不適切なら工夫すればいいのです。

 VBA フォルダ作成
 ↓
 VBA フォルダ 作成

 VBA ファイル移動
 ↓
 VBA ファイル 移動

 VBA フォルダから抽出
 ↓
 VBA フォルダ 抽出

 としたらここの過去ログだけでもヒントになりそうなものはたくさん
 ヒットします。
 ネット検索したらもっと見つかるでしょう。

 一つのスレッドだけで解決するものは見つからないでしょう。

 それぞれのキーワードで見つかったコードの機能を変数を媒介して
 繋げてやればいいのです。

 (カエムワセト)

 一例ですが、
 Sub AyaMove()
    ChDir ThisWorkbook.Path
    For i = 1 To 4
        If Dir(Cells(i, "A").value, vbDirectory) = "" Then MkDir Cells(i, "A").value
        Name Cells(i, "B").value As Cells(i, "A").value & "\" & Cells(i, "B").value
    Next
 End Sub

 ChDir, Mkdir, Name の説明は下記などを参照してください。
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_100.html
 (Mook)

 参考
http://pcwizard.blog39.fc2.com/blog-entry-206.html
http://www.h5.dion.ne.jp/~sfsf11/tools/folderdivision.html
 ここで紹介するのは邪道だけどフリーソフトでもあるさってことで。
 ま、自作したほうが納得行くものが作れるとは思うけどね。
 (1111)

コメント返信：

[ 一覧(最新更新順) ]

[[20111116214957]] 『ファイル振り分けとフォルダ自動作成』（あや） ページの最後に飛ぶ

[[20111116214957]]　『ファイル振り分けとフォルダ自動作成』（あや）　ページの最後に飛ぶ