ファィルの中身をフォルダー名として自動で作る

質問

txt.ファィルの中に数字とカンマで区切られた人名が入っています。一個ずつをフォルダー名にして
、自動で新しいフォルダーを作るソフトを紹介してください。8000件くらいありますのでとても手での入力は不可能です。よろしくお願いいたします。
１、阿部晋三
２、佐藤栄作
３、吉田茂
４、岸信介
・
・
・

回答No.4

kmetu · ベストアンサー

> ドライブGの顧客というフォルダーの中に作りたい場合

元のテキストファイルをドライブGの顧客というフォルダーに入れてからエクセルで読み込むか、コードを以下のように変更してください。

Sub sample()
Dim i As Integer

ChDrive ("G:")
ChDir ("G:\顧客")

For i = 1 To Range("A65535").End(xlUp).Row
MkDir Range("A" & i).Value
Next
MsgBox "終了"

End Sub

お礼

ありがとうございました。
できました。
詳しく教えていただきまして本当にありがとうございました。

回答No.3

noname#252332

おまけ。EXCELとメモ帳でやる方法です。EXCELでテキストファイルとして開きます。名前の前に「md "」の列を追加します。名前の後に「"」の列を追加します。名前を付けて保存でcsvファイルとして保存します。メモ帳で開くと、余分な引用符とコンマがあるので、「md ",」→「md "」とか、「""""」→「"」とか置換して

md "１、阿部晋三"

となるよう修正します。あとは先ほどの回答と同じです。

お礼

ありがとうございました。
エクセルだけでできそうです。

回答No.2

kmetu

エクセルをお持ちでしたらそのテイストファイルをエクセルで読み込むと(読み込むときにテキストウィザードが出たら何もせずにそのまま完了してください)A列に一行ごと読み込まれると思いますので、以下のマクロを実行してください。

Sub sample()
Dim i As Integer

For i = 1 To Range("A65535").End(xlUp).Row
MkDir Range("A" & i).Value
Next
MsgBox "終了"

End Sub

マクロの実行の仕方を老婆心ながら書いておきます。
ALT+F11を押すとVBEの画面が開きますので、左側にあるさっき読み込んだデータのあるシート名のところをダブルクリックします。そうする右側に白い画面が開きますので上記のコードをコピー＆ペーストしてください。その後 Sub と End Subの間のどこかをクリックしてF5キーを押してください。
それで、フォルダが作成されます。

補足

ありがとうございます。
やってみましたところ「実行時エラー75。パス名が無効です」とでますが、デスクトップに確かにフォルダーが作成されています。
たとえばこのフォルダー作成場所をドライブGの顧客というフォルダーの中に作りたい場合はマクロをどのように変えたらいいのでしょうか。よろしくご教示ください。

回答No.1

noname#252332

秀丸などキーマクロが使えるエディタでこのテキストを開き、

md "１、阿部晋三"
md "２、佐藤栄作"
md "３、吉田茂"
md "４、岸信介"

と編集します。キーマクロで行頭に「md "」を挿入して下の行に移動、行末に「"」を挿入して下の行に移動、とやればファンクションキーを押し続けるだけで文末までリピートするので簡単です。ファイル名の拡張子をbatとして目的のフォルダに保存します。このbatファイルをダブルクリックで実行します。

お礼

ありがとうございました。
秀丸は持っていないのでエクセルでやってみます。