ワークブックの作成

Workbooks.Add で、ブックが新規作成されます。

' ブックを作成し、Sheet1のA1に文字をセットして保存して閉じる
Sub NweBook()
	Dim NewWb As Workbook
	Dim NewWs As Worksheet

	' Bookを作成
	Set NewWb = Workbooks.Add
	' Sheetを取得
	Set NewWs = NewWb.Sheets(1)

	With NewWs
		' 文字をセット
		.Range("A1") = "Test"
		' ファイルを名前を付けて保存
		.SaveAs Filename:="C:\ExcelVBA\ブックを開く\BookOpen.xls"
	End With

	' 作成したBookを閉じる
	NewWb.Close

End Sub