![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67b6d)
No.4ベストアンサー
- 回答日時:
> ドライブ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
- 回答日時:
おまけ。
EXCELとメモ帳でやる方法です。EXCELでテキストファイルとして開きます。名前の前に「md "」の列を追加します。名前の後に「"」の列を追加します。名前を付けて保存でcsvファイルとして保存します。メモ帳で開くと、余分な引用符とコンマがあるので、「md ",」→「md "」とか、「""""」→「"」とか置換してmd "1、阿部晋三"
となるよう修正します。あとは先ほどの回答と同じです。
No.2
- 回答日時:
エクセルをお持ちでしたらそのテイストファイルをエクセルで読み込むと(読み込むときにテキストウィザードが出たら何もせずにそのまま完了してください)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
- 回答日時:
秀丸などキーマクロが使えるエディタでこのテキストを開き、
md "1、阿部晋三"
md "2、佐藤栄作"
md "3、吉田茂"
md "4、岸信介"
と編集します。キーマクロで行頭に「md "」を挿入して下の行に移動、行末に「"」を挿入して下の行に移動、とやればファンクションキーを押し続けるだけで文末までリピートするので簡単です。ファイル名の拡張子をbatとして目的のフォルダに保存します。このbatファイルをダブルクリックで実行します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ファイルのアクセス回数について
-
エクセルのプロパティーでセキ...
-
ExcelブックをGoogleスプレッド...
-
サブフォルダから部分一致のエ...
-
エクセル UserForm 呼び出しで...
-
Excelのマクロファイルを開くと...
-
エクセルファイル名に更新日時...
-
実行時エラー52
-
マクロ実行後、表示がおかしくなる
-
エクセルのマクロで行と列の削...
-
VBAでマクロを使って、マクロ無...
-
Excel csv保存 列数が異なる場...
-
エクセルで複数のコメントのサ...
-
カンマ区切りのCSVファイルから...
-
エクセルvbaでdocuworksprinter...
-
Excel 相対パス
-
【VBA】テキストファイルを指定...
-
Windows10でコマンドプロンプト...
-
[エクセル]コピーするとオブジ...
-
VBA フォルダの複数選択ができない
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ファイルのアクセス回数について
-
エクセルのプロパティーでセキ...
-
ExcelブックをGoogleスプレッド...
-
Wordで差込印刷した後に別々の...
-
Excel csv保存 列数が異なる場...
-
サブフォルダから部分一致のエ...
-
エクセル UserForm 呼び出しで...
-
エクセルファイル名に更新日時...
-
PowerPoint 2002でファイル名を...
-
マクロ実行後、表示がおかしくなる
-
実行時エラー52
-
EXCEL 検索時の設定
-
複数のexcelのファイルを一括で...
-
Excelのフッダ-に「ファイルの...
-
エクセルのマクロで行と列の削...
-
エクセルでcsvファイルを開いて...
-
エクセルで、フィルタかけたま...
-
vbaでボタンをクリックして上書...
-
Word2010で閉じるボタン押下後...
-
【Excel VBA】ファイルを保存し...
おすすめ情報