小技プログラミング

新しいブックを開いて名前をつける

新しいブックを開いた後に、名前を付けて保存する方法です。

WorkBookオブジェクトを新しく作り、SaveAsメソッドでブックに名前をつけて保存する事ができます。
SaveAsメソッドの引数はファイルのフルパスを指定します。

'新しいブックに名前をつけて保存
Dim objWb As WorkBook
Set objWb = WorkBooks.Add
objWb.SaveAs ("C:\新しいブック.xls")