フォルダの作成とその中への保存

質問

よろしくお願いします。エクセル2010です。

新しいフォルダがなければ作る、あれば作らないようにしたいのです。
そのやりかたをお教えいただけませんでしょうか？

やりたいことは以下のようなことです。
まず、対象フォルダを指定します。
その中にこのマクロがあるBOOKのSheet1のA1セルの値でフォルダの作成。
その際に同名のフォルダがある場合は作成せず、ない場合に作成。
その後、今作ったフォルダまたは同名の既存フォルダの中へ、同じA1セルの値でxlsファイルでbookを保存です。

ややこしいですがよろしくお願いいたします。

回答No.1

kybo

以下でどうでしょう

Sub macro()
Dim P As Variant
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
If .SelectedItems.Count = 0 Then Exit Sub
P = .SelectedItems(1)
End With
With Worksheets("Sheet1").Range("A1")
If Dir(P & "\" & .Value, vbDirectory) = "" Then
MkDir P & "\" & .Value
End If
ActiveWorkbook.SaveAs P & "\" & .Value & "\" & .Value
End With
End Sub