新しいブックを作成、保存する

今回はブックの作成についてメモしておきます。

基本

新しいブックの作成にはWorkbooks.Addメソッドを使います。
ここでは「C:\excelmemo」直下に「新しいブック.xlsx」という名前で作成します。

実行プログラム

Sub Sample6_23_1()

    Workbooks.Add
    ActiveWorkbook.SaveAs Filename:="C:\excelmemo\新しいブック.xlsx"

End Sub

Sub Sample6_23_1()

Workbooks.Add

ActiveWorkbook.SaveAs Filename:="C:\excelmemo\新しいブック.xlsx"

End Sub

実行後

作成したブックを編集する

Workbooks.Addメソッドは戻り値として、新しいブックを表すWorkbookオブジェクトを返します。
ActiveWorkbookを使うよりも、Workbookオブジェクトを利用した方が安全に編集できます。

実行プログラム

Sub Sample6_23_2()

    Dim objWB  As Workbook     ' Workbookオブジェクト

    Set objWB = Workbooks.Add  ' 新しいブックを作成

    objWB.Worksheets("Sheet1").Cells(1, 1).Value = "TEST"    ' 編集

    objWB.SaveAs Filename:="C:\excelmemo\新しいブック2.xlsx"  ' 保存

End Sub

Sub Sample6_23_2()

Dim objWB As Workbook ' Workbookオブジェクト

Set objWB = Workbooks.Add ' 新しいブックを作成

objWB.Worksheets("Sheet1").Cells(1, 1).Value = "TEST" ' 編集

objWB.SaveAs Filename:="C:\excelmemo\新しいブック2.xlsx" ' 保存

End Sub

作成ファイル

ファイル内