エクセルからWordPress のデータベースにアクセスする方法(後編)

エクセルからWordPress のデータベースを編集、更新したくて「MySQL」用の「ODBCドライバ」を利用してデータベースに接続してみました!後編ではデータベースに接続し、SQLを実行します。
前編はこちら
「MySQL」用の「ODBCドライバ」のインストールはこちら

データベースに接続

ADOを使い「MySQL」データベースを開きます。

Dim objADO
Dim srvName, dbName, dbPort, loginName, loginPass
 
srvName = Sheet2.Cells(6, 2)
dbName = Sheet2.Cells(7, 2)
dbPort = Sheet2.Cells(8, 2)
loginName = Sheet2.Cells(9, 2)
loginPass = Sheet2.Cells(10, 2)
 
'ADOを使いMySQLのDBを開く
Set objADO = CreateObject("ADODB.Connection")
objADO.Open "Driver={MySQL ODBC 5.3 Unicode Driver};" & _
            "server=" & srvName & "; port=" & dbPort & "; database=" & dbName & "; uid=" & loginName & "; pwd=" & loginPass & ";"

SQLを実行

とりあえず、オプション設定の一覧でも取得してみたいと思います。

Dim query
Dim objRS
query = "select * from (テーブルの接頭語 + )options"
Set objRS = objADO.Execute("" & query & "")
シートに実行結果を出力

結果を「Sheet1」という名前のシートに出力します。

Dim a
a = 1
Do Until objRS.EOF = True
    Sheet1.Cells(a, 1) = objRS("option_id")
    Sheet1.Cells(a, 2) = objRS("option_name")
    Sheet1.Cells(a, 3) = objRS("option_value")
    Sheet1.Cells(a, 4) = objRS("autoload")
    objRS.MoveNext
    a = a + 1
Loop
「Tera Term」を終了

「Tera Term」に「exit」という文字と「ENTER」キーを送り、その他諸々終了していきます。

objADO.Close
Set objADO = Nothing
Set objRS = Nothing

'「Tera Term」をアクティブに。
AppActivate "" & Sheet2.Cells(1, 2) & ":22 - Tera Term VT"
'「exit」という文字を送信。
Application.SendKeys "exit"
'「ENTER」キーを送信。「SendKeys」の場合、「~」が「ENTER」。
Application.SendKeys "~"

Set objTTL = Nothing

サンプルでは、オプション設定の一覧を表示させているだけですが、実際は独自の商品マスタテーブルのようなものを作成し、商品の追加、削除、表示価格の変更などをエクセルから更新できるような仕組みを作りました。他にも色々な使い方が出来そうな気がします。

応援よろしくお願いします。
いいね ! してもらえると嬉しいです。

Twitter で

自己紹介

松田 大 と申しますm(_ _)m

インディーズでミュージシャンをやっていたのですがいつのまにか...

とある企業でショップのアルバイトスタッフから正社員、支店長を経てシステム部門に異動するという、開発担当としては変わった経緯を持っている方だと思います。

一昨年の3月に結婚し、尻敷かれ男子の仲間入りを果たしました(笑)

現在勤めているJTクラウドシステムでは、「 Excel VBA 」を活用した効率化ツールの開発、「 WordPress 」を活用したWEBサイト、業務用WEBアプリケーション開発を中心に「 ネットワーク・サーバー構築 」や「 Office365製品の導入支援 」、最近は、ホームページ制作に加え、記事の執筆代行や掲載に必要な情報のリサーチ、テロップ入れや映像の切りはりなどの簡単な動画編集なども、まとめて行なっています。

お問い合わせはJTクラウドシステムホームページからお願いします。
スポンサーリンク