workbook

excel vbaの「workbook」を簡単に説明しました。

excelのvbaをマスターしましょう！
excel vba 簡単・解決！ Homeへ
workbook

excelのvbaで Workbook は、自動化のためBook全体に対するオブジェクトです。

１．新しいワークブックを作成する
　　Workbooks.Add で追加された新しいブックがアクティブになります。
　　テンプレートを基に追加する場合、　Workbooks.Add(TemplateName) とします。

２．特定のワークブックをアクティブにする
　　Workbooks("ABC").Activate　により　　ABC.XLSブックがアクティブになります。
Sub Get_books()
Dim intI As Integer, objBook As Object
intI = 1
For Each objBook In Workbooks
Cells(intI, 1).Value = objBook.Name
intI = intI + 1
Next
End Sub
　　上記プログラムでExcelBookの名称とBook番号を知ることができます。
　　Workbooks(2).Activate　により　　２番目のブックがアクティブになります。

３．特定のワークブックを開き、閉じ保存するには
　　Workbooks.Open "C:\エクセル.xlsx" などとしてブックを開きます。
　　Workbooks(1).Close True, "C:\テスト.xlsx" などとしてブックを保存します。
　　ブックの名称を変更する場合、次の通りです。
　　ActiveWorkbook.SaveAs "C:\サンプル.xlsx" などとして現在使用しているフォルダへブックを保存します。

４．ワークブックの上書き保存
　　WorkBooks(1).Save　とすることで、上書きできます。

【コラム】ワークブックを開いたとき自動的にプログラムを起動させる方法
Workbook_Openイベントを使用します。
（１）まず「Alt+F11」キーを押し、VBEウィンドウを開きます。
（２）左端上のオブジェクトウィンドウの　Microsoft　Excel　Objectsを開き　「This Workbook」をクリックします。
（３）Workbookコードウィンドウが開きます。
（４）このコードウインドウの左上コンボボックス(General)▼をクリックし、「Workbook」を選択します。
（５）次のコードが自動的にVBAにより作成されます。（※　Private Sub Workbook_Open() と　End Subの２行です。)
Private Sub Workbook_Open()
　　　MsgBox 　ActiveWorkbook.Name & "を開きました。"
End Sub
（６）上記のMsgBoxの行に起動したいVBAプログラムを記述すると、自動起動できます。

excelのvbaをマスターしましょう。

excel vba 簡単・解決！ Homeへ