エクセルVBAで指定場所にフォルダー作成
エクセルのVBAマクロ機能を使い、
自動フォルダー作成&リンクするマクロを作成したのですが、
現在のマクロですと「A(仮名)」の中にフォルダーに作ってしまいますので
下記の様に階層で指定出来る様にしたいのですが、教えて頂けないでしょうか?
出来れば、そのままマクロ貼り付けで使える様にしたいので、
下記に途中までのマクロを編集して頂ければ助かります。
「A(仮名)」と言うフォルダーの中にエクセルファイルの管理表を入れ
「A」のフォルダーの中に「B(仮名)」と言うフォルダーを作り、
その中に管理台帳で自動作成されるフォルダーがつくられる様にしたい。
現在のマクロ
Sub MakeHyLink()
Dim wkStr As String
If ActiveCell.Column <> 1 Then Exit Sub
If ActiveCell.Value = "" Then
MsgBox "アクティブセルは未入力、やり直し"
Exit Sub
End If
wkStr = ThisWorkbook.path & "\" & ActiveCell.Value
If Dir(wkStr, vbDirectory) = "" Then
MsgBox "フォルダー:" & wkStr & vbLf & " を、作成します。"
MkDir wkStr
Else
MsgBox "フォルダー:" & wkStr & vbLf & " は、存在します。"
End If
ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell, Address:=wkStr
End Sub
お礼
感謝です。今のところ順調です。