Step 5　Excelブックを上書き保存する : VBA講座 ブックの操作

プログラムを入力する

Private Sub CommandButton1_Click()
    'ブックを開く
    Workbooks.Open "c:\test\myexcel.xlsx"
    'B2セルに文字を入力
    ActiveSheet.Range("B2").Value = "Bookの上書き保存"
    '上書き保存を実行
    ActiveWorkbook.Save
    'ブックを閉じる
    ActiveWorkbook.Close
End Sub

プログラム説明

Excelブックを上書き保存するには、Saveメソッドを使います。
プログラムの流れは下記になります。

1. 既に存在するブックをファイル名を指定し開きます。
2. 開いたブックのB2セルに「Bookの上書き保存」と入力します。
3. Saveメソッドを使い、ブックを上書き保存します。
4. Closeメソッドを使い、ブックを閉じます。

実行結果

■ 上書き保存のVBAを実行するブックの画面
「ブックを上書き保存する」ボタンをクリックし実行します。


■ 上書き保存のするブックの画面
B2セルにプログラムで実行した文字列が入力されています。