VBA講座 ブックの操作

Step 1 ブックの新規作成


Excel 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に文字列が入力され、保存前にメッセージが表示されています。
メッセージが表示された画面

スポンサーリンク






Excel VBA講座のメニューに戻る

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved