ブックをアクティブにする

広告

開かれているブックの中で指定のブックをアクティブにするにはWorkbookオブジェクトの「Activate」メソッドを使います。 

Dim book1 As Workbook

Set book1 = Application.Workbooks(1)
book1.Activate

まとめて次のように記述しても構いません。 

Workbooks(1).Activate

サンプルプログラム

では簡単なサンプルで試してみましょう。実行するマクロは「VBAsample.xls」と言う名前のブックに含まれています。

testbook2.bas 

Sub テスト()
    
    Workbooks.Open "C:¥excelsample¥2005年成績.xls"
    Workbooks.Open "C:¥excelsample¥2006年成績.xls"

    Workbooks("2005年成績.xls").Activate
    
End Sub

上記マクロを実行すると次のようになります。

ブックをアクティブにする

今回は「2005年成績.xls」と「2006年成績.xls」という2つのブックを開いた後で、「2005年成績.xls」ブックの方をアクティブに設定しています。

( Written by Tatsuo Ikura )