やってみよう！Excel VBAで業務改善！｜持続可能なスキーム編

見たことないコードがいっぱい

「うひゃあ……なんだこれ！？
見たことないコードがいっぱいだぞ」

星くんは目を丸くしながら、すっとんきょうな声を上げました。
八木くんはノートPCの画面を指差しながら、1つずつ丁寧に説明していきます。

Public CN As New ADODB.Connection

「このパブリック変数"CN"が、
データベースへの接続を保持するConnectionオブジェクトというのを格納するんだ」

    If CN.State = adStateClosed Then
        CN.Provider = "Microsoft.ACE.OLEDB.12.0"
        CN.Open ThisWorkbook.Path & "\test.accdb"
    End If

「このIfステートメントで、データベースに接続しているかどうかを判定する。
変数CNのStateプロパティが"adStateClosed"なら未接続、
"adStateOpen"なら接続していることがわかる。
未接続のときは、Ifブロック内で接続を行うよ」

星くんは食い入るように、八木くんの説明に耳を傾けます。

「Providerプロパティには、接続するデータベースの種類を指定する。
accdbファイルに接続するときは、"Microsoft.ACE.OLEDB.12.0"を指定するんだ。
その後Openメソッドで、引数に指定したデータベースへ接続を行う。
ここでは、マクロブックと同じフォルダにある"test"という名前のaccdbファイルに接続するよ」