フォルダを自動生成するプログラム

質問

Ａ　　　　　　　B
１　20071203　旭区駒込
２　20101103　豊島区神保町
３　20101230　江東区東松原町
…

上記のように、Ａ列に８桁の半角数字、Ｂ列に複数の全角文字（漢字、ひらがな、カタカナ）
が入力されたエクセルファイルがあります。

ここから、各行のＡ列とＢ列を結合したものを「フォルダ名」としたフォルダを生成したいと考えています。

20071203旭区駒込
20101103豊島区神保町
20101230江東区東松原町
…

上記のような「フォルダ」が作られるイメージです。
このようなことができる方法はございませんでしょうか？
何卒よろしくお願いいたします。

回答No.6

piroin654 · ベストアンサー

strPath = ThisWorkbook.Path

ですから、strPathはファイルがあるディレクトリ
を示しています。したがって、

MkDir strPath & "\" & strFile
の
strPath & "\" & strFile

は、

Excelファイルのあるディレクトリのフルパス\フォルダ名

ということです。

お礼

教えていただいたコードを色々と変えて利用しています。
どうもありがとうございました。

回答No.7

piroin654

＞Excelファイルのあるディレクトリのフルパス\フォルダ名

ではなく、

Excelファイルのあるディレクトリのカレントパス\フォルダ名

ですね。

回答No.5

piroin654

>MkDir strPath & "\フォルダ入れ\" & strFile

を

MkDir strPath & "\" & strFile

にしてください。

回答No.4

nora1962

該当するsheetがActiveなら
cells(1,1)&cells(1,2)のように「cells(行,列)」で値を取得できます。
変数 i を使って

i =1
do while( cells(i,1) != "" )
'フォルダの作成
loop

のようにすればできるようでしょう。

この説明で分からないようなら、すみませんがEXCEL VBAの入門書か入門サイトで勉強しなおす必要があると思います。

回答No.3

piroin654

No2です。

使っていないものが残っていました。
コード中の、

Dim L2 As Long
L2 = 1
L2 = L2 + 1

変数L2は使っていないので、コメントアウトするか
削除しておいてください。あっても何もしませんが。

お礼

まことにありがとうございます。
ご教示いただいた方法でできました！

”フォルダ入れ”というフォルダに格納するようにされていますが、
エクセルデータがあるカレントディレクトリ内にフォルダを生成するにはどのようにしたらよろしいでしょうか？

strPathを色々といじりましたが、どうしてもエラーになってしまい解りません。

回答No.2

piroin654

一応Excelファイルがある同じフォルダに
「フォルダ入れ」という名前のフォルダを
作っておきます。
Excelの標準モジュールに以下を貼り付け
保存してください。
マクロの実行で「mkフォルダ」を実行。

Sub mkフォルダ()
Dim strPath As String
Dim strFile As String
Dim L1 As Long
Dim L2 As Long
Dim x As Long

strPath = ThisWorkbook.Path

L2 = 1
x = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row '最終行

For L1 = 1 To x
'A列のデータが尽きたところで終了
If Worksheets("Sheet1").Cells(L1, 1).Value = "" Then
Exit Sub
End If

'フォルダ作成
strFile = Worksheets("Sheet1").Cells(L1, 1).Value & _
Worksheets("Sheet1").Cells(L1, 2).Value
MkDir strPath & "\フォルダ入れ\" & strFile
strFile = ""
L2 = L2 + 1
Next L1
End Sub

回答No.1

nora1962

http://officetanaka.net/excel/vba/filesystemobject/filesystemobject.htm

FileSystemObjectのCreateFolderメソッドを用いればできると思います。
作成前にExistsFolderメソッドですでにあるかどうか調べたほうがいいと思いますが。

お礼

ありがとうございます。
ご教示いただいた方法ですと、フォルダ名を手打ち入力するようですが、
エクセルデータから引っ張ってくる方法がどうにも解りません。
どうぞよろしくお願いいたします。