VBAを使って新しいブックを開いた後に、名前を付けて保存する方法です。
WorkBookオブジェクトを新しく作り、SaveAsメソッドでブックに名前をつけて保存する事ができます。 SaveAsメソッドの引数はファイルのフルパスを指定します。
'新しいブックに名前をつけて保存 Dim objWb As WorkBook Set objWb = WorkBooks.Add objWb.SaveAs ("C:\新しいブック.xls")