www.youtube.com
http://www.youtube.com/watch?v=7ppGRxTFJks
VBA ディレクトリ/フォルダー 作成 MkDir関数 を使う
ソースコードは http://ken3-info.blog.ocn.ne.jp/code_gomibako/2009/06/vba_mkdir_4d9f.html を見てください。
その他、テキストファイルの処理は、
三流君VBAでテキストファイル(textfile)を操作する
http://www.ken3.org/cgi-bin/group/vba_textfile.asp
を見てください。
Sub MAKE_DIR(strDIRNAME As String) 'ディレクトリ名 フルパスを受け取り、作成する。
'いきなりMKDIR関数で作ると、重複時にエラーが発生するので、
'DIR関数でディレクトリ(フォルダー)の存在をチェックする。
If Dir(strDIRNAME, vbDirectory) = "" Then '※vbDirectoryを忘れずに指定する。
MkDir strDIRNAME '↑上記で見つからなかったので、MKDIR関数で新規作成する。
End If
End Sub
Sub testMAIN() 'テスト
Dim strPATH As String 'フルパスを保存
strPATH = ThisWorkbook.Path & "\001" '
MAKE_DIR (strPATH) '作成関数を呼ぶ
strPATH = ThisWorkbook.Path & "\002" '
MAKE_DIR (strPATH) '作成関数を呼ぶ
End Sub
Sub testMAIN222() 'A列 セルの文字を使用して、フォルダーを作成するテスト
Dim strPATH As String 'フルパスを保存
Dim y As Integer
For y = 10 To 40
strPATH = ThisWorkbook.Path & "\" & Cells(y, "A") '
MAKE_DIR (strPATH) '作成関数を呼ぶ
Next y
End Sub
'余談、マクロ記録で 新規フォルダーを作成後、保存を記録したけどできなかった(笑)
Sub Macro1()
'
ChDir "E:\ASP_CODE\test"
ActiveWorkbook.SaveAs Filename:="E:\ASP_CODE\test\VBA_IE_LINK0605.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
マクロ記録やテストの動画 : http://www.youtube.com/watch?v=7ppGRxTFJks