Microsoft Excel VBA - 新しいブックを作成する方法

◆概要

このページは、Excel VBAで新しいブックを作成する方法 について記載しています。

ブックを新規作成するには、Workbooksコレクションに対してAddメソッドを使います。作成したブックをコードから参照できるように、Addメソッドの戻り値は、オブジェクト変数に代入しておきます。

◆Sample

次の例では、既存のワークブックを最小化し、新しいワークブックを追加します。

Sub makebook()

    Dim mybook As Workbook
    
    'Windowを最小化する
    ActiveWindow.WindowState = xlMinimized
    
    'ワークブックを追加
    Set mybook = Workbooks.Add
    '追加したワークブックを最大化
    ActiveWindow.WindowState = xlMaximized

End Sub
　　

作成したブックを初めて保存するときは、WorkbookオブジェクトのSaveAsメソッドを使います。２回目以降の保存には、Saveメソッドを使います。GetSaveAsFilenameメソッドは、GetOpenFilenameメソッドと同様の機能を持つメソッドです。次の例は、ブックを新規作成し、GetSaveAsFilenameメソッドを使って保存する方法を示しています。 

Sub CreateAndSave()
    Set newBook = Workbooks.Add
    Do
        fName = Application.GetSaveAsFilename
    Loop Until fName <> False
    newBook.SaveAs Filename:=fName
    
End Sub
　　

次の例では、新しいワークブックを追加しNewBook.xlsという名前をつけて保存します。このマクロを実行する前にマクロを記述したブックを保存してください。 

Sub NewWBMake()

    Dim WBPath As String

    WBPath = ActiveWorkbook.Path
    Set NewBook = Workbooks.Add

    NewBook.SaveAs Filename:=WBPath & "\Newbooks.xls"

End Sub
　　


▼ページトップへ