ブックを保存する

ブックを閉じずに名前を付けて保存するだけの場合は、WorkbookオブジェクトのSaveAs
メソッドを使用する :

Workbookオブジェクト.SaveAs Filename

以下に新規ブックを保存するサンプルコードを記す :

Sub SampleSaveAsWorkbook()
     Dim bk As Workbook
     Set bk = Application.Workbooks.Add
     '
     ' <<新規ブックを更新する処理をここに記述>>
     '
     bk.SaveAs Filename:="D:\SampleBook.xlsx"
End Sub