VBA講座 ブックの操作:新規作成

プログラムを入力する

Option Explicit

Private Sub CommandButton1_Click()
    Dim newbk As String
    
    '新規にブックを追加
    Workbooks.Add
    '追加したブックの名前を取得
    newbk = ActiveWorkbook.Name
    'アクティブにする
    Workbooks(newbk).Activate
    'A1に入力
    Worksheets(1).Range("A1") = "新規に作成したブックです"
    
    MsgBox "新しく作成したブックを保存し閉じます"
    '名前を付けて保存
    Workbooks(newbk).SaveAs "c:\新しいブック.xls"
    '閉じる
    Workbooks("新しいブック.xls").Close
    
End Sub

プログラム説明

ブックを新規に作成するには、Workbooks.Add を実行します。

このプログラムでは、下記の順で実行しています。
1）ブックの新規作成
2）A1に文字列を入力
3）名前を付けて保存
4）ブックを閉じる

実行結果

■ 実行前
「新しいブックの作成」ボタンで実行します。


■ 作成したブック
A1に文字列が入力され、保存前にメッセージが表示されています。