【ExcelVBA】ExcelのマクロからSQLServerのストアドプロシージャを呼び出すには

この記事では、ExcelのマクロからSQLServerのストアドプロシージャを呼び出す方法についてご説明します。

Table of Contents

【動画】ExcelのマクロからSQLServerのストアドプロシージャを呼び出す実際の動き

SQL Serverで用意したストアドを、VBA側から呼び出せるか確認してみました😄試したのはBULK INSERTで10万件のデータ追加。10万件程度ならサクッと入りますね😁
ただ、今やりたいのは200万件程度のデータ追加なので次は件数の多いテストデータを用意しなきゃ…😅#Excel #vba #SQLServer pic.twitter.com/zu5EfRxJVe

— まさ@Excel、VBA、マクロ（経験年数16年） (@masamasa9785) February 25, 2021

ツイート内の動画では、ExcelのマクロからSQLServerのストアドプロシージャを呼び出しています。

ちなみに、動画内で呼び出したストアドプロシージャは何をしているかというと、BULK INSERTコマンドを実行し、データの追加を行っています。

目次へ戻る

ExcelのマクロからSQLServerのストアドプロシージャを呼び出す方法

ExcelのマクロからSQLServerのストアドプロシージャを呼び出すには、次の流れの通りにコードを書いていきます。

STEP.1

DBへの接続情報取得

ストアドプロシージャを実行するにはまずはDBに接続しなければなりませんが、接続する情報(ユーザ名やパスワードといった接続情報)がなければDBに接続できません。
なので、最初にDBに接続するための接続情報を取得します。

STEP.2

DBへの接続

接続情報が取得出来たら、その接続情報をもとにDBに接続します。

STEP.3

ストアドプロシージャの実行

実行したいストアドプロシージャを指定して実行します。

目次へ戻る

コードの例

    Dim DBName As String, connDB As String
    Dim objConnection As ADODB.Connection
    Dim objCommand As ADODB.Command
    
    'DBの名前
    DBName = "workDB"
    
    'データベース接続情報を取得
    connDB = "Provider=SQLNCLI11.1;"
    connDB = connDB & "Data Source=(LocalDB)\MSSQLLocalDB;"
    connDB = connDB & "Initial Catalog=" & DBName & ";"
    connDB = connDB & "Trusted_Connection=yes;"
    
    'ADODB.Connectionオブジェクトのインスタンスを生成する
    Set objConnection = New ADODB.Connection
    
    'CursorLocationプロパティにクライアントサイド カーソル(定数値：3)を設定する
    objConnection.CursorLocation = adUseClient
    
    'データベース接続情報を引数に指定してOpenメソッドでDBに接続する
    objConnection.Open connDB
    
    'ADODB.Commandオブジェクトのインスタンスを生成する
    Set objCommand = New ADODB.Command
    
    'Connectionオブジェクトを指定する
    Set objCommand.ActiveConnection = objConnection
    
    'CommandTypeに、実行するのがストアド プロシージャだと知らせる(adCmdStoredProcはストアドプロシージャの場合の定数(4))
    objCommand.CommandType = adCmdStoredProc
    
    'CommandTextプロパティに実行したいストアドプロシージャ名を設定する
    objCommand.CommandText = "dbo.Bulkinsert001"
   
    'ストアドプロシージャを実行する
    objCommand.Execute
   
    '以下終了処理を行う
    Set objParameter = Nothing
    Set objCommand = Nothing
    Set objConnection = Nothing