フォルダ作成と別名保存【VBA】

質問

教えてください

現在、下の２つのマクロを使っています。
「O27」の値でフォルダを作るものとブックを別名保存するものです。
これを1つにまとめたいのですが単純に１つにまとめるとフォルダは作成されるのですがブックの別名保存がセルの値を参照してくれません。
また、MkDir　でフォルダを作成すると同じ名前のフォルダが先にあるとエラーになってしまいます。
この2点を解消できる方法はないでしょうか？

よろしくお願いいたします。

Sub 別名フォルダ()
MkDir Worksheets("オーダーシート").Range("O27").Value
End Sub

Sub 別名保存()
Application.Dialogs(xlDialogSaveAs).Show Arg1:=Range("O27").Value
End Sub

回答No.1

MSZ006 · ベストアンサー

＞１つにまとめるとフォルダは作成されるのですがブックの別名保存がセルの値を参照してくれません
フォルダ名とファイル名が同一ですから、保存ウインドウのファイル名が空欄になります。
例えば、O27には「aaa」と入力して、「aaa」というフォルダ作成、「aaa.xls」という名前で保存、というようにします。
Application.Dialogs(xlDialogSaveAs).Show Arg1:=Range("O27").Value & ".xls"

＞MkDir　でフォルダを作成すると同じ名前のフォルダが先にあるとエラーになってしまいます。
まず、同一名のフォルダがあるかどうかを調べます。Dir()関数です。
Dir(フォルダ名 , vbDirectory)　が空白だったらフォルダは存在していません。