VBAトレーニング-03　[ブック＆シート操作について-③]-[エクセルファイルの開き方]

このページで学習出来る事

　VBAトレーニング3回目となる今回は、前回に引き続きExcelブックとシートの使い方について説明をしていきたいと思います。

　ただ単純にシートを切り替えたり、削除したりするコードを覚えるのではなくブックやシートオブジェクトを見ながら、実際にシートを操ってみたいと思います。

準備

　今回は外部の別エクセルを操作しますので、あらかじめ[C:\temp]フォルダにエクセルファイルを用意しておきます。（サンプル用のzipファイルを用意してありますので、それを解凍してCドライブにコピペしてください）
　下記図のようになるよう設置してください。

サンプルコード

　先ほど設置したエクセルファイルを開いたり、そのエクセル内のシートオブジェクトを操作するコードです。（zipファイルに含まれる[sample-03.xlsm]をそのまま使用しても構いません）

　また、変数の宣言が多くあり面倒くさく感じる方も居ると思いますが、変数宣言はプログラミングの基本になりますので（このコードの中でこれらの変数を使用するという宣言になります）、しっかりと記述をしていきましょう。

Sub main()
    Dim objXlsApp As New Application
    Dim objWorkbookSource As Workbook
    Dim objWorkbookDest As Workbook
    Dim objWorksheetSource  As Worksheet
    Dim objWorksheetDest  As Worksheet
    Dim i As Integer
    Dim h As Integer
    
    Set objWorkbookSource = objXlsApp.Workbooks.Open("C:\temp\source.xlsx")
    Set objWorkbookDest = objXlsApp.Workbooks.Open("C:\temp\dest.xlsx")
    
    Debug.Print "wait"
    For i = 1 To 3
        Set objWorksheetSource = objWorkbookSource.Worksheets(i)
        Set objWorksheetDest = objWorkbookDest.Worksheets(i)

        For h = 1 To 10
            objWorksheetDest.Cells(h, 1) = objWorksheetSource.Cells(h, 1)
        Next h
    Next i
    Debug.Print "wait"
        
    objWorkbookSource.Close SaveChanges:=False
    objWorkbookDest.Close SaveChanges:=True
End Sub

コードの解説

ブックとシートオブジェクトの見方

　準備ができたら実行してみましょう。
　実行すると、この様に最初のブレークポイントで一旦止まり、設定した変数に開いたブックオブジェクトが入っているのが分かります。
　ローカルウィンドウの[+]を押して、ブックオブジェクトの中身を確認していきましょう。

シート間での値の代入

　オブジェクトの確認が終わったら、ブレークポイントで止まっている状態から再度動かしてみましょう。
　次のブレークポイントで止まったら、シートオブジェクトを確認してみましょう。For文の処理が完了し[Sheet3]が表示されていると思います。
　すでに[Sheet1],[Sheet2]の処理が終わり[Sheet3]が開かれていることが確認できます。

　各シート間の値の代入（コピー）は[objWorksheetDest.Cells(h, 1) = objWorksheetSource.Cells(h, 1)]の記述にて処理されており、各シートオブジェクトを変数に格納してしまえば、この様な処理を複数のシートに対して実施できることになります。

　最後に、処理が終わるまで実行してみましょう。そして、処理が終わったら[C:\temp\dest.xlsx]を開いて、[C:\temp\source.xlsx]の中身がコピーされているか確認してみましょう。

最後に

　オブジェクトを介してエクセルファイルやブック、シートを操作してみてどうでしたか？
　一つのファイルやシートであれば、そんなにメリットに感じないかったでしょうが、数が増えてきた場合、For文を利用した処理が効果的になってきます。
　その場合、個別にコードを呼び出して操作するよりは、オブジェクトとしてブックやシートを扱った方が可読性も上がりますし、効率的な処理が実現できます。　　

　次回は新規に複数のエクセルファイルやシートを作成する処理を勉強していきましょう。