Excel VBAからODBCを使ってデータを簡単に取得する

-

VBAから ADO を使わずにODBC経由でデータベースにアクセスする方法です。


サンプルデータベース

次のようなアクセスのデータベースがあるとします。

テーブル名は「商品マスター」
カラム名は、ID, 商品名, 金額
保存してあるファイルは C:\Test\SampleDB.accdb


DSNの用意

このファイルにアクセスするための DSN を作成します。（作成方法は後述）


VBAの実行

Excel でシートを開き、次のプロシージャーを実行します。これはテーブルを作成するプロシージャーなので、最初に一回実行するだけです。

Private Sub uCreateTableWithQuery()
    Dim uWS As Worksheet
    Dim uList As ListObject
    
    Set uWS = ActiveSheet
    Set uList = uWS.ListObjects.Add( _
        SourceType:=xlSrcQuery, _
        Source:="ODBC;DSN=NK Test", Destination:=Range("A3"))
    
    uList.DisplayName = "ExcelProductMaster"
End Sub

DSN=にDSN名を指定します。この例では、NK Test。
Destination はテーブルの左上を配置するセルです。この例ではA3セル。
DisplayName はテーブル名を指定します。この例ではExcelProductMaster。


実行すると次のようにテーブルが作成されます。テーブルはQueryTableに接続され、QueryTableはDSNを利用可能です。


次のプロシージャーを実行します。

Public Sub uRefleshQueryTable()
    Dim uList As ListObject
    Dim uSQL As String
    
    Set uList = ActiveSheet.ListObjects("ExcelProductMaster")
    
    uSQL = "SELECT * FROM 商品マスター"
    
    With uList.QueryTable
        .CommandText = uSQL
        .AdjustColumnWidth = False '列幅を調整しない
        .Refresh BackgroundQuery:=False
    End With
End Sub

ListObjectにはテーブル名を指定します。この例ではExcelProductMaster。

uSQLにSQL文を適宜指定します。


実行すると、Accessデータベースの内容が読み込まれます。

uRefleshQueryTable を実行するたびに、Access からデータが読み込まれます。


次のように更新ボタンを用意して uRefleshQueryTable を呼び出すようにすれば、簡単にデータのリフレッシュが可能になります。


クエリの破棄

作ったテーブルを破棄したい場合にはテーブル範囲のセルを選択して、「すべてクリア」を実行します。関連付けられたクエリを削除するか聞かれるので「はい」を選択すれば、クエリごと削除できます。

かなりSQLやテーブルをいじった場合には、列並びや更新がおかしくなり、破棄が必要になるときがあります。

 最初の uCreateTableWithQuery を実行すれば簡単にテーブルを再作成できるので、うまく行かなければ削除しましょう。

（先日もサブクエリを使ったSQLを色々試すうちにORDER BYが効かなくなりしばし悩みましたが、テーブルを削除したら直りました。うまくいかない時、データベースで同じSQLを直接実行すると問題なくソートされていました）

ただし、当然ですが書式等は設定し直しになります。


毎回テーブルを作り直すサンプルも用意しました。

VBA：　ODBCを使って毎回テーブルを作成するサンプル


クエリテーブルを使うメリット

クエリテーブルを使うとSQL文を作成するだけで、上記のように非常に短いコードでデータを読み込むことができます。

SQL文に列を追加すれば、自動的にテーブルも拡張されます。

テーブル列の並びを変えてもある程度は大丈夫です。次の例では金額と商品名の並びを変えて更新しています。きちんと後から追加した Nintendo64 が読み込まれています。

また、Excel の内部コードでテーブルに書き込むため、おそらく VBA から一行一行セルにデータを書き込むよりも速いのではないかと思います。


選択条件を指定する

条件指定を加えてみます。

B1セルに「商品名」という名前を付けてあります。

次のようにコードを変更し、「商品名」セルがブランクでなければ where 句を追加します。

'クエリーテーブル更新
Public Sub uRefleshQueryTable2()
    Dim uList As ListObject
    Dim uSQL As String
    Dim uName As String
    
    Set uList = ActiveSheet.ListObjects("ExcelProductMaster")
    
    uSQL = "SELECT * FROM 商品マスター"
    
    uName = Range("商品名")
    If uName <> "" Then
        uSQL = uSQL & " WHERE 商品名 = '" & uName & "'"
    End If
    
    Debug.Print uSQL 'ODBCエラー調査用
    
    With uList.QueryTable
        .CommandText = uSQL
        .AdjustColumnWidth = False '列幅調整しない
        .Refresh BackgroundQuery:=False
    End With
End Sub

PS5を入力して実行した結果です。

このように、シートに条件を用意すればユーザーが簡単に絞り込みを行えるようになります。

もちろん、テーブルのフィルターも使えるので、実際にはもっと複雑な条件の指定の仕方が多いと思います。


ユーザーDSNの追加方法

参考までに Access のファイルに対するユーザー DSN の追加方法を書いておきます。

ユーザー DSN はユーザー毎の DSN です。誰がログインしても使えるようにしたいのであれば、システムDSNを使用します。その場合は管理者権限が必要です。

  1. コントロールパネルを開き「管理ツール」を開き、ODBC Data Sources(32-bit)を開きます。（アプリが 64bit なら ODBC データソース 64bit を選択します）



  2. 「追加」ボタンを押します。

    　
  3. Microsoft Access Driver (*.mdb, *.accdb) を選択して「完了」を押します。

    4. 　
  4. データソースに後から判別できる分かりやすい名前を入れ、「選択」ボタンを押します。
    5. 　
  5. Access のデータファイルを選択して、「OK」ボタンを押し、元のウィンドウで再度「OK」を押します。
    6. 　
  6. データソースが追加されているはずです。


DBのコンピューター名を変えたらクエリが動かなくなる

DBのコンピューター名を変更したところ既存クエリが動作しなくなりました。こういう事を考えても、テーブルは毎回作成し直した方が良さそうです。


PowerQueryを使ってCSVファイルを読み込む

ODBCとは関係ありませんが、CSVファイルを読み込む方法も書いてみました。


コメント

コメントを投稿

アクセス数の多い投稿

セキュリティ対策ソフトのノートンが詐欺ソフトまがいになってしまってショック

-
イメージ
夜の10時に風呂に入っていると、80近くになる実家の母から、突然ノートンの表示が出たけどどうすれば、という連絡がありました。表示されたメッセージは次の通りです。 ！　お使いのパソコンで462件の破損されたレジストリが検出されました。パソコンをクリーンアップしてパフォーマンスを向上させましょう。 レジストリの問題は、パソコンの速度低下、フリーズ、さらにはクラッシュの原因となります。ノートンTMユーティリティーズ　アルティメットを入手して、レジストリの問題の解決とパソコンのパフォーマンス向上に役立ててください。 ノートンがこんな、レジストリが壊れているからと不安をあおって、別の製品を買わせる詐欺ソフトまがいのメッセージを出してくるとは。 親曰く「レジストリが破損て驚いた」（原文ママ）。わけのわからん高齢者に無用なストレスを与えています。 大体レジストリーとか言って、それの意味が正しく分かる一般人がいるか！（怒） ブロードコムに買収された法人向けのシマンテックはひどいことになっているけれど、個人向けのノートンライフロックは大丈夫みたいと思っていたら、こんなことになるとは。 もう、セキュリティ製品を買うのはやめて、Windows に最初からついてくる Microsoft Defender でもいいのかもしれないと思う今日この頃です。そのほうが安定してるし、こういう余計な問題も起きないし。 2022/9/1 追記　Defenderに切り替えてみました。 さらばノートン 2022/01/13 追記 悩んでいる方がいらっしゃるようなのでこのメッセージの解説をしておこうかと思います。 レジストリーとは Windows や 各種アプリ（ソフト）は設定などをWindowsが管理するデータベース（ファイル）に保存するものが多いです。そのデータベースがレジストリーです。 ソフトをインストールするときや、設定を変更する際などに書き換えられます。 設定等が保存されているため、これが壊れるとWindowsやアプリの挙動に支障をきたす可能性があること自体は確かです。 どうして壊れるのか レジストリーが壊れる原因は色々考えられます。 Windowsやアプリの不具合で作成や更新に失敗した 作成や更新中にWindowsやアプリが異常終了して中途半端になった データを保存する部品（SSDやHDDなどのドラ
続きを読む

Windows セキュリティーのビックリマークが消えない

-
イメージ
ノートン削除でWindowsセキュリティにビックリマーク 実家のノートン360をアンインストールしたところ、タスクトレイにある Windows セキュリティーの盾（シールド）型アイコンに「！」が表示されるようになりました。Windows 11です。 マウスポインターを持っていくと、「Windows セキュリティ - 処置をお勧めします」と表示されます。 ところが、クリックしてセキュリティの概要を開いてみても、問題なさそうです。 ノートンを再インストールするとグリーンのチェックマークになりましたが、アンインストールするとまた黄色のビックリマークになります。 私のPCはアンインストールしても問題なかったのでPC次第なのでしょう。 解決方法 実家のPCは次の方法で解決しました。 Windowsのスタートボタンを押します。（左の四角） 「設定」を開きます。 「プライバシーとセキュリティ」を選び、「Windowsセキュリティ」をクリックします。 「アプリとブラウザーの制御」をクリックします。 「評価ベースの保護」が、有効になっていなかったので有効にして、保護設定をすべて有効にしました。 有効後 これで盾アイコンのビックリマークは消えました。 Web閲覧時に危険 SmartScreen（Web閲覧が保護）が有効になっていなかった可能性があるので、これは確認してよかったです。 それにしても、タスクバーのアイコンから開いたWindowsセキュリティの画面に「アプリとブラウザーの制御」が表示されていないのはバグではないかと思います。以前は出ていたような気がします。 2022/10/9 追記 今、タスクバーの盾アイコンをクリックしたら、「アプリとブラウザコントロール」が表示されるようになっていました。やはりなにかのバグだったのでしょう。 Windows 11 は22H2にアップデート済みです。 2022/11/26 追記 別件で知人のPCのメンテナンスを行ったところ、この現象が発生していたので、早速、上の手順で解消しました。 ESETがインストールされていましたが、期限切れだったのでアンインストールしてDefenderに切り替えました。アンインストールによって生じたのか、元々こうだったのか記憶があいまいです。 Windows 11 は22H2になっていませんでした。 スマートアプリコン
続きを読む

NEC Aterm WX5400HP をセットアップ

-
イメージ
しばらく前にWi-Fi6対応ルーターを購入しました。 次期主力Wi-Fiルーター NEC Aterm WX5400HP 購入したはいいけれど、ずっと放置していて、昨日ようやく箱を開けてセットアップを開始しました。 Wi-Fi設定 とりあえずPCとルーターのLANポートを有線で接続し、Wi-Fiの設定を行いました。 うちは、ワンフロアの60m2程度の部屋なので、バンドステアリングやメッシュWi-Fiを使うほどではなく、また2.4GHzのみしか対応しない古いプリンターや体重計もあるので、これらは無効にしています。 ちなみに、バンドステアリングは、高速な5GHzと障害物に強い2.4GHzを自動で切り替える機能です。ルーターを設置したリビングなら5GHz、寝室なら2.4GHzという具合にいい具合に切り替えてくれるという事になっています。 メッシュは複数のアクセスポイント（Wi-Fi親機）に対してひとつの SSID を使って、家じゅうからアクセスできる機能です。リビングは NK-Living, 寝室はNK-BedroomみたいにSSIDを使い分けることなく、両方のルーターにNKでアクセスでき、使う場所によって自動的に通信状態の良いルーターを切り替えてくれる便利機能です。 PCやスマホはともかく、それら以外のデバイスはパスワード入力が厄介なので、これまで使っていたSSIDとパスワードを設定しました。 引っ越し機能を使うと便利なのですが、WEPなどの今となっては危険な設定を継承しかねないので私は使いません。利用はお勧めしません。 IPv4 over IPv6も自動でOK WX5400HPはASAHIネットのIPv4 over IPv6をサポートしているルーターなので、Wi-Fi以外のところはデフォルトのままで接続してみました。その結果次のように自動で認識されました。 動作モードはtransixとなり、IPv6動作モードも使用するになりました。 自動的にv6 コネクトが選択され、IPv4も通信可能になりました。 さすがはサポートされているだけあります。 ホームセキュリティーは無効 「トレンドマイクロホームネットワークセキュリティ™」がついていますが、私は即無効にしました。経験上、ゲートウェイ（ルーター）にこれをやらせると問題が起こるので。 FortigateとかMcAfeeの法人向
続きを読む

突然滅茶苦茶遅くなったPCがWindows Updateのキャッシュクリアで復活

-
イメージ
職場のPCが滅茶苦茶遅くなって操作できないというので色々試していった結果Windows Updateのキャッシュクリアで解決しました。 とにかく遅い PCを起動してサインインしてしばらくの間はそれなりに動作するのですが、時間の経過につれて動作が重くなってくる感じです。 特にタスクバーの反応が遅くなります。 タスクマネージャーとかコンピューターの管理を開いても、ずいぶん経って忘れたころに開いてくる感じです。 ひどくなってくると、もう全然反応がありません。 サインアウトや再起動がうまく行かない場合もありました。 ただし、何もいじらないと後からでも動作する場合もありました。 システムの復元も効果なし 12/3に発生して、Windowsの機能「システムの復元」を試みると12/1と、12/3の9時くらいに復元ポイントがありました。9時くらいのものが怪しかったので復元を行いましたが、残念ながら効果がなく、しかも12/1の復元ポイントまで消失しました。 結果的にはプログラムの問題ではなくデータの問題だったため効果がなかったということになります。システムの復元の最後にユーザーのデータには影響を与えませんみたいなメッセージが表示されることからも、そうなのでしょう。 今回の教訓としてはポイントが消えるかもしれないので復元するなら思い切って前の日にさかのぼったほうが良いという事でした。 [Windows 10] システムの復元を実行する方法を教えてください。 　富士通 アンインストールもうまく行かない たまたまシマンテックのライセンス切れが重なったため、シマンテックが原因かと思いアンインストールを試みました。しかし、途中までは進むものの取り消されてしまい削除できません。 ブロードコム（シマンテックを買収）から削除ツールCleanWipeを入手して削除してみましたが、復旧せずシマンテック以外が原因だと思いました。 Cryptographic ServicesとWindows Update タスクマネージャーでCPUの使用状況を見ていると、100%近くになって遅いというのではありませんでした。使用率は高くても数十％。低い時は十数％くらいでしょうか。 見ていると周期的にCryptographic Servicesが高い時は40%くらいまでCPUを消費します。そして、たまにWindows Upd
続きを読む

ChatGPTが日本語からVBAのコードを生成できてたまげる

-
イメージ
最近噂のChatGPT。大学受験問題も解ける賢いAIだとか。そこで私も試してみました。 指示は、「単価、数量、金額の列を持つExcelのテーブルを一行ずつ読み、金額を計算して更新するVBAを作りなさい。ListObjectとFor eachを用いなさい」です。 結果は次の通り正しく回答されました。 マジかと思いました。 自然言語からコードが生成されるだけで驚きですが、金額を計算しなさいと言っただけで、単価と数量を乗算しています。 試しに実行 上の画面のテキストをコピペしたものです。 ExcelのVBAでは、ListObjectを用いることで、Excelシート上のテーブルを操作することができます。以下は、単価、数量、金額の列を持つExcelのテーブルを一行ずつ読み、金額を計算して更新するVBAの例です。 Sub UpdateTable()   Dim tbl As ListObject   Dim row As ListRow      ' テーブルを取得します   Set tbl = ActiveSheet.ListObjects("Table1")      ' テーブルの各行を取得します   For Each row In tbl.ListRows     ' 単価と数量から金額を計算します     Dim unitPrice As Double     Dim quantity As Integer     unitPrice = row.Range(1, 1).Value     quantity = row.Range(1, 2).Value     row.Range(1, 3).Value = unitPrice * quantity   Next row End Sub 上記のVBAを実行すると、単価と数量から金額を計算し、テーブル内の金額の列が更新されます。 ListObjectを用いることで、Excelシート上のテーブルを簡単に操作することができるようになります。また、For Eachステートメントを用いることで、テーブルの各行を順番に取得し、処理を行うことができます。 できています。実際にテーブルを作って実行してみました。 実行結果 ちなみに、quantityのデータ型がintegerで最大値が小さい
続きを読む

Power Automate Desktopでブラウザでダウンロードしたファイルを処理する

-
イメージ
Power Automate Desktopを使って自動化する作業の一つはWebサービスだと思います。例えば私は銀行の明細照会や送金等の自動化を試みています。 そういう作業をしていて必要になって来るのがダウンロードしたファイルの処理です。例えば口座明細ファイルを保存するとか請求書を印刷するとかです。 ダウンロードされたファイル名がわかっているのであれば簡単ですが、実際には毎回違うなんだかよくわからない暗号コードのようなファイル名が付けられて落ちてくるという事は結構あります。 ファイル名が確定しなければアクションで指定してみようがないので困ります。今回はそういうファイルの処理方法について書いてみたいと思います。 画像はクリックすると拡大できます。 ダウンロードアクションを使用する Power Automate Desktopにはそのものズバリの「Webからダウンロードします」や「Webページのダウンロードリンクをクリックします」が用意されています。 しかし、残念ながらこれはChromeではつかえません。実行するとエラーが発生し「Chrome を使用したファイルのダウンロードはサポートされていません。オートメーション ブラウザーの使用を検討してください」と言われてしまいます。 そうなんだ、では、とEdgeやIE（Internet Explorer）を指定しても同様です。オートメーションブラウザーってなんなのと思ったら、IEの起動モードの一つでした。 それではと、オートメーションブラウザーを使ってみるとオートメーション用にすべてを削ぎ落した画面が表示され、これでは動かないサイトがありました。 また、IEのサポート終了が来年2022年6月に迫っているというのもひっかかります。 ダウンロードフォルダーを空にする ではどうするかと検索してみると、次のページではダウンロードする前にダウンロードフォルダーをクリアするという荒業を使っている方がいます。 Power Automate Desktop：ファイル名がわからないファイルをコピーする方法 いやこれ、私なんかはダウンロードフォルダーをデスクトップに設定しているので絶対に使えない方法です。 ブラウザのダウンロードフォルダーを一時的に作ったフォルダーに変更して元に戻すなんて言う方法も考えられますが、処理途中でエラーが発生するとそのま
続きを読む

Excel 2019 クエリが原因で日本語入力の一文字目が勝手に確定する

-
イメージ
既存ファイルにシートを追加してセルに文字を入力していったところ、なぜか一文字目が勝手に確定されてしまうという現象に遭遇しました。 一文字目が勝手に確定される セルに、例えば「支払い」と入力しようとすると、shiharaiのsを入れた時点で確定されてしまい、「s いはらい 」のようになってしまいます。 消しては入力やり直しなので異常に入力しづらい。大量に入力する必要がある方は絶望を感じるでしょう。 クエリが原因 新しいファイルでは問題ないのでどうやらファイル依存の問題らしいということがわかりました。 新しいファイルを作って、問題のファイルにあるシートを一つずつ移動していったところ、あるシートを移動したところで新しいファイルでも発生することがわかりました。 それは銀行のサイトにある為替レートのページを参照しているクエリが含まれるシートでした。 そこで、「クエリ」と「確定」で検索したところ、なんと既に先人が原因を特定して レポート してくれていました。 それによると、「データ」メニューの「クエリと接続」グループにある「クエリと接続」をクリックして表示される画面で、クエリが選択されたまま保存されていると発生するということでした。 実際に問題のファイルを開いてみると、確かにクエリが選択された状態になっていて、選択を解除したところ改善しました。こりゃわからんわ。 新しいファイルでクエリを作っても簡単に再現可能です。 PowerQueryはExcel 2016で標準搭載されたようなので、通常はExcel 2016か2019で遭遇する問題だと思います。 回避方法 選択を解除して保存 私がこの問題に遭遇したときは、クエリの選択を解除して保存するだけで解決し、次回開いた時にも再現することはなかったと記憶しています。 ところが、今試してみると、選択解除して保存しても、次回開くとまた選択された状態になっていて、文字入力に支障が出ます。バージョンの違いかと思い、職場のPCでも試してみましたが同様です。私の記憶違いだったのか、その後のバージョンアップで悪化しているのか… クエリと接続画面を表示 現状では、「クエリと接続」画面を表示させると（選択を解除しなくても）現象は収まります。 ファイルを開くときにマクロで自動的に選択を解除する方法も考え
続きを読む

Microsoft Flight Simulator (2020)のPS4コントローラー設定

-
イメージ
先日14年ぶりに、MicrosoftのFlight Simulatorの新しいバージョンがリリースされました。現在、Microsoftの Xbox Game Pass for PCを契約すると期間限定でひと月100円でプレイできるので試すには絶好の機会です。 とりあえず手持ちのPS4コントローラー(DUALSHOCK 4)で飛ばす方法を書いてみました。 水陸両用機でベネチアを飛行中 PS4コントローラーはサポートされていない コントローラーをPCに接続しても、デフォルト状態では全く操作ができません。調べるとキーの割り当てが行われていませんでした。サポートされていないデバイスはこの状態になるようです。 サポートされているデバイスは次のページに書かれています。Xboxのコントローラーはありますが、PS4のコントローラーは書かれていません。 Peripherals compatibility 基本的なキー割り当ての方法は次のページに書かれています。 Peripheral Control Settings Overview and FAQ PS4コントローラーをPCに接続 接続方法については次のページを参考にするとよいでしょう。 Windows 10でPS4の “DUALSHOCK 4” を使う方法 なお、USBで有線接続すれば、Bluetoothで認識させる必要はなく即認識されます。ケーブルが気にならなければこちらの方法が簡単です。充電もされるし。 私のPCでは「ゲームコントローラーの設定」が「デバイスとプリンタ」画面に表示されませんでした。検索ボックス（ウィンドウズボタンの隣にある「ここに入力して検索」）に入力すれば表示されます。 PS4コントローラーの設定方法 コントローラーの各部名称は次のページを参照してください。 PlayStation®4 ユーザーズガイド　ワイヤレスコントローラー（DUALSHOCK™4） ボタンと番号の対応は概ね次のページに紹介されています。 DUALSHOCK 4をPCで使う標準ドライバで 初回の設定時には、保存をするかどうか聞かれると思います。適切に保存してください。 （画像が小さい場合はクリックすると拡大されます） メイン画面でOPTIONSを選択します。 飛行中にESC
続きを読む

Teamsで日本語入力すると左上に変換ウィンドウが出る

-
しばらくまえからTeamsのチャットに日本語入力しようとすると直接入力ができずに画面の左上に変換ウィンドウが出てきてしまうようになりました。 私のモニターは30型なのでTeamsウィンドウからかなり離れていて非常に入力しづらい。 使っているうちに直るときもあるけれどしばしば発生してイラッとしていました。 そうこうするうちに職場内からも問い合わせがあったのでMicrosoftに問い合わせてみました。 その結果、Microsoftでも現象を再現することができ、TeamsとIMEの問題であり、修正が必要だと認識しているけれど時期は未定という事でした。 回避策としては、どれでもいいから 他のウィンドウを一回クリックすれば、直接入力できるようになるという事でした。 他のウィンドウ（ブラウザや他のアプリ）をクリックしてからTeamsに戻って日本語入力すると確かに直接入力できるようになりました。（デスクトップをクリックしても解消しました） 一回解消すれば、Teamsを再起動するまでは問題は再現しないようです。普通は再起動しないので一日一回クリックすれば回避できるということになります。 ひと手間かかるとはいえ、手軽に確実に回避できるようになったのは嬉しいです。
続きを読む