人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

質問です。

ファイルの中に男性の文字列または女性の文字列が含まれて
いる場合に
フォルダの男性フォルダまたは女性フォルダに区別して
ファイルを移動できるマクロはできますか。

列はA列,B列の2列です。

ファイルの中のデータが
A列 B列
abc@docomo.ne.jp 男性
男性 abc@docomo.ne.jp

この場合は男性フォルダに移動させる


A列 B列
abc@docomo.ne.jp 女性
女性 abc@docomo.ne.jp

この場合は女性フォルダに移動させる

データは1行目からです
列の中は男性のみか女性のみで混在はありません
フォルダはあらかじめ女性および男性のフォルダを作っておいても
良くその時の自動で作っても良いです。

よろしくお願いします。


●質問者: inosisi
●カテゴリ:コンピュータ インターネット
✍キーワード:ABC DoCoMo ne.jp くそ データ
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● きゃづみぃ
●10ポイント

http://desktop.google.com/ja/

Googleデスクトップを使う。

マクロじゃありませんが・・・。

マクロでも できますけどね、こちらのほうが速いかと。


Googleデスクトップで指定したフォルダの中で 「男性」とか検索すると 含んだファイルを抽出してくれますので それを 移動すればいいかと思います。

ただ この列だけとかの指定はできませんので その列以外に 含まれている場合も 抽出されてしまいますけどね。

◎質問者からの返答

ありがとうございました。

すみません使い勝手が今一つわかりません

時間があるときに参考にしてみます。


2 ● きゃづみぃ
●60ポイント ベストアンサー

マクロです。

女性のみ 移動です。

残ったのは 女性を含まないものです。

Sub main()
Dim p As String
Dim p2 As String
'対象フォルダを指定してください。
'このフォルダに この実行用のブックは 入れないでください。
 
 

p = "C:\test\"
p2 = "C:\test\女性\"  '女性を含んだファイルの移動先です。

'処理対象となる拡張子を指定して 呼び出します。
Call jikkou(p, p2, "xls")
Call jikkou(p, p2, "csv")

End Sub



Sub jikkou(p As String, p2 As String, s As String)
f = Dir(p & "*." & s, vbNormal)

Do While f <> ""
 Set w = Workbooks.Open(Filename:=p & f, UpdateLinks:=False, ReadOnly:=False)
 
  '処理対象は 1番目のシートのみ。
 
 g = 0
 Set trow = w.Sheets(1).Range("A:B").Find(What:="女性", LookIn:=xlValues)
 If trow Is Nothing Then g = 1

 w.Close
 
 If g = 0 Then
 Name p & f As p2 & f
 End If
 
 f = Dir
Loop


End Sub
◎質問者からの返答

ありがとうございました。

男性版と女性版を作って試してみました。

上手くゆきました。

検索列をA列B列にC列を追加していただきたいのですが

よろしくお願いいたします。

たまに,,カンマがA列とB列の性別の間にあって検索できない

ファイルがありました。

よろしくお願いします。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ