Power Automate DesktopでPDFのページ数を取得するのは難しい

-

Power Automate DesktopでPDFのページ数を取得するのは容易ではないという話です。


PDFをページごとに処理するにはページ数が必要

銀行のサイトから計算書を取得しました。1ページ1件で複数ページあります。このファイルから1件ごとにデータを取得したいと思います。

「PDFからテキストを抽出」アクションを使ってループ内で1ページごとデータを取得して処理しようと思いました。

ループを使うにはファイルのページ数が必要です。簡単にPower Automate Desktopで取れるのだろうと思ったらなんとそのような方法が見つかりませんでした。

ありえないページ数を最大値に指定して、見つからなかったらエラー処理という方法も考えられますが好きではありません。


ExtractedPDFTables.Countを使用

丁度今月リリースされたPower Automate Desktop 2.17 には「PDFからテーブルを抽出する」というアクションが追加されています。

このアクションで取得されたデータの Count プロパティを使うとファイルに含まれるテーブル数を取得できます。

今回のPDFファイルは1ページに1つテーブルが含まれていたため、これを使って取得することができました。

例：ExtractedPDFTables.Count

アクションの実行に時間はかかるものの、今回の件では確実にページ数を取得でき、正しく処理できました。


PDFから直接ページ数を取得するのは容易ではない

PDFファイルを直接読み込んでページ数を取得できるのではと思いました。

見て作って学ぶ、PDFファイルの基本構造

しかし、実際にはバージョン違い等があって、容易ではないようです。

EXCEL VBA AcrobatReaderやAdobeを使わずにPDFのページ数を取得する方法

自社で作ったPDFならバージョンやフォーマットがある程度特定できるのでこういった方法も一つだと思います。

しかし、いろんなところからくる請求書を処理するような場合、いつどんなデータがくるのかわかりません。

Power Automate DesktopでPDFのプロパティを取得できるアクションが欲しいと思いました。


試してみると

次のページにVBAでページ数を取得する方法が紹介されていました。

ExcelVBAのみでPDFファイルのページ数を取得する　Qiita

PDFファイルの構造上、「/Count 」はソーステキストに1回しか出現しないこと、通常表示される文字列はStreamオブジェクト内に圧縮されているため正規表現にマッチしないことからページ数の抜き出しが可能となっています。

と書かれています。

そこでPower Automate Desktopに移植してみました。

コピーしたコードは次の通りです。Power Automate Desktopの編集画面に貼付すれば復元できます。

Display.SelectFileDialog.SelectFile FileFilter: $'''*.pdf''' IsTopMost: True CheckIfFileExists: False SelectedFile=> SelectedFile ButtonPressed=> ButtonPressed
File.ReadTextFromFile.ReadText File: SelectedFile Encoding: File.TextFileEncoding.UTF8 Content=> FileContents
Text.ParseText.RegexParseForFirstOccurrence Text: FileContents TextToFind: $'''/Count \\d*''' StartingPosition: 0 IgnoreCase: False OccurrencePosition=> Position Match=> Match
Text.GetSubtext.GetSubtextFrom Text: Match CharacterPosition: 7 Subtext=> Subtext

ページ数はSubtext変数に入ります。

実行してみたところExcelから出力したファイルは取得できました。

しかし、家電製品等の取説などは軒並みだめでした。

まずソニーの取説はCountが見つかりませんでした。Encryptという文字があったので暗号化されているようです。もしかしたらそのせいかもしれません。

Chromeで保存したと思われるPDFは次のように複数のカウントがありました。

223 0 obj
<</Type /Pages
/Count 8
/Kids [2 0 R 55 0 R 104 0 R 120 0 R 131 0 R 145 0 R 178 0 R 192 0 R]
/Parent 225 0 R>>
endobj

224 0 obj
<</Type /Pages
/Count 2
/Kids [203 0 R 213 0 R]
/Parent 225 0 R>>
endobj

225 0 obj
<</Type /Pages
/Count 10
/Kids [223 0 R 224 0 R]>>
endobj

これは、ページカウントオブジェクトが階層化されているようです。

この場合 /Parentがないオブジェクトを探し出して処理する必要があります。

少しトライしてみましたが容易ではありませんでした。

/Type /Pagesと/Countの順番が入れ替わっている場合もあるようです。

各キーワードのデリミターもスペースの場合と改行の場合もあります。改行はCRなのかLFなのか、CRLFなのかも考える必要があります。


存在しないページを指定してもエラーが発生しない

好きではないけれど、エラーが発生したらおしまいという方法も試してみようと思いました。

ところが、ループで「PDFからテキストを抽出」アクションを繰り返して、存在しないページに達してもエラーは発生しませんでした。

そしてExtractedPDFTextには最終ページのテキストが入るようです。直前でExtractedPDFTextをクリアしても挙動は一緒でした。

これは困りました。


ファイル分割ではエラーが発生

仕方がないのでファイル分割を試したところ、さすがにこちらはエラーが発生しました。そのため、「ページが範囲外です」エラーが発生したらループを抜けるというフローを書いてみました。

ループ中で、「新しいPDFファイルへのPDFファイルページの抽出」アクションにページ数(LoopIndex)を指定しながら実行します。存在しないページを指定するとエラーが発生するので、LoopIndexから1引いた数がページ数です。

コードは次の通りです。

LOOP LoopIndex FROM 1 TO 1000 STEP 1
    Pdf.ExtractPages PDFFile: $'''C:\\PADTemp\\Sample.pdf''' PageSelection: LoopIndex ExtractedPDFPath: $'''C:\\PADTemp\\OutputFile.pdf''' IfFileExists: Pdf.IfFileExists.Overwrite ExtractedPDFFile=> ExtractedPDF
    ON ERROR PageOutOfBoundsError
        GOTO LastPage
    END
END
LABEL LastPage
Display.ShowMessageDialog.ShowMessage Message: $'''ページ数は %LoopIndex - 1%''' Icon: Display.Icon.None Buttons: Display.Buttons.OK DefaultButton: Display.DefaultButton.Button1 IsTopMost: False ButtonPressed=> ButtonPressed

デスクトップフローとして部品化してもよいかもしれません。

実際に使うとなると、分割ファイルのパスについて考慮が必要です。固定ファイルにするのか、一時ファイルとして処理するのか。分割ファイルの最後は削除するのかどうかも考慮する必要があります。他のエラーが発生したときのTry Catchも必要でしょう。

ページ数が最大値に達したときの処理も必要かもしれません。ありえないページ数にしておけば現実的には問題ありませんが。


コメント

コメントを投稿

間違いがあればコメントを頂けるとありがたいです。

アクセス数の多い投稿

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

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

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

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

突然滅茶苦茶遅くなった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
続きを読む

Amazon Prime Videoで4K UHD映画を検索する方法

-
イメージ
ついにSONYの4K HDRテレビを購入したので、4K映画を物色中です。 77型有機ELテレビ BRAVIA KJ-77A9G を購入 ところが、Amazon Prime Videoで4K映画を検索する方法が不明でした。 検索ボックスに4Kと入れると、4Kがらみの雑多な商品まで表示されてしまいます。 UHDを指定してもシューズなどが一緒に出てきてしまいます。 4K UHDで検索すればだいぶ絞られますが、それでも4Kではないシンゴジラや、Blu-rayメディアの商品まで表示されてしまいます。 検索方法 次の手順で、4K動画のみを検索できます。 Amazonのトップページで、「すべて」をクリックし、「Prime Video」を検索します。 何も入力せずに、右側の虫メガネアイコンをクリックします。 左側に検索条件が表示されるので、下の方にある「4K超高精細[4K UHD]」を選択します。吹替を観たくない人は字幕にチェックを入れるとよいでしょう。 これで、4K UHDの動画のみを検索することができます。 ただし、4K表示ができないパソコンでは選択肢がないかもしれません。iPadでは表示されませんでした。無料で見られる会員特典以外の4K動画は500円や550円と通常より高いので、見られない動画は表示されないようになっているかもしれません。 4Kテレビによってはテレビ搭載のWebブラウザで検索できるかもしれません。 品揃えは少ない それにしても4K映画の品ぞろえの少なさに驚きます。 SF映画で有名なものは、ジュラシックワールドとハムナプトラのみ。 アクションにしてもランボーの修復版や、ジョンウィック、ワイルドスピードの一部作品他と少ないです。 映画ではなくAmazonオリジナルのジャックライアンは友人によると面白いようですが。 2021/12/18追記　Amazonオリジナル以外の普通の映画を検索するなら次のように指定すると良さそうです。相変わらず少なくて多少入れ替わりがあるようです。 BRAVIA A9GではUHDマークが表示されない 4Kモニターを接続したPCで検索した映画にはUHDのマークが表示されます。 これをウォッチリストに追加して、テレビの内臓アプリで見たところ、映画自体は表示はされました。 しかし、テレビの方ではUHDのマークが表示されません。これはテレビではUH
続きを読む

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

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

iPhone 12 Proと iPhone 8 Plusのサイズを比較

-
イメージ
ついにiPhone 12が登場したので購入を検討中です。購入にあたっては画面サイズが最大の問題です。どれにすべきなのか。 ところがAppleのサイトには画面サイズの比較ページが見当たらないし、Googleで検索しても今のところヒットしません。 仕方がないので自分で比較画像を作ってみました。Adobe Illustratorで画像のサイズを実寸に調整し、Photoshopで背景を消しています。 （2020/10/22追記：　iPhone 8の画像も追加しました） iPhone8と12Proのサイズ比較画像 クリックで拡大 画像はApple社の製品説明ページより引用し、比較用に調整しています。画面幅はIllustratorによる実測です。 https://www.apple.com/jp/iphone-12-pro/specs/ https://support.apple.com/kb/SP768?locale=ja_JP こうしてみると、8 Plusと 12 Pro Maxの外寸はほぼ同じということがわかります。幅は同一、厚さも誤差範囲、高さはPro Maxが2mmほど大きいです。 そうなるとベゼルが狭い分画面のサイズはPro Maxが明らかに大きくなりそうです。これなら安心して買い換えることが出来そうです。 画像のサイズを次に転記しました。画面幅はIllustratorで実測したものです。手持ちの8Plusをメジャーで実測すると約68mmなので微妙に誤差があります。 iPhone 12 Pro 高さ： 146.7mm 幅 ： 71.5mm 厚さ： 7.4mm 画面幅： 63.4mm *   重量： 187g iPhone 8 Plus 幅： 78.1mm 厚さ： 7.5mm 画面幅： 66.7mm *   重量： 202g 高さ： 158.4mm iPhonw 12 Pro Max 幅： 78.1mm 厚さ： 7.4mm 画面幅： 69.5mm * 重量： 226g 高さ： 160.8mm 画面のみのサイズ比較 一杯飲みながら、画面のみのサイズ比較も作ってみました。Illustratorで画面の輪郭をトレースしました。最近のIllustratorなら超簡単にできてしまいます。 左からiP
続きを読む

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
続きを読む

次期主力Wi-Fiルーター NEC Aterm WX5400HP

-
イメージ
週末に自宅のIPv4をIPv6 IPoE化しました。 IPv4通信をPPPoEからIPoEに変更して高速化 Wi-Fi5がボトルネック とりあえずIPv4が高速化できたのはメデタイのですが、その際にWi-Fi5がしっかりボトルネックになっていることにも気づかされました。 知らなければ仏でしたが、知ってしまった今となっては物欲番長です。 Wi-Fiを6にして、有線に対抗できる速度で通信したい！ WG2600HP4はASAHIネットにサポートされていない それとあと、今使っているWG2600HP4というWi-FiルーターはプロバイダーのASAHIネットにサポートされていません。手動でパラメーターを指定してとりあえずIPv4 over IPv6を実現しています。 通信出来てはいるものの懸念材料です。なさそうだけれど、ファームウェアアップデートでつながらなくなるとか。 新たにv6コネクト対応ルーターが登場 そして、NECから新しいWi-Fi 6対応ルーターWX5400HPが丁度良く明後日の2/10木曜日に発売されることがわかりました。 今のルーターよりWi-Fiが高速化されて信頼性も向上し、それが毎日使うものという事であれば、買わないわけにはいかなそうです。 検索してみると次の記事が見つかりました。（NECの協力の元）とても良く書かれています。 NECの本気？ メッシュ、セキュリティ、デザインの全方位で勝ちに来たWi-Fi 6ルーター「Aterm WX5400HP」 既存NECルーターに対する不満 NECのWi-Fiルーターは最近家でも職場でも実家でも使っていて、今のところそれほど悪くはありません。 しかし、現在自宅と職場で使っている少し前のモデルのファームウェア更新が自動で行われないのが気にいりません。昨年NECのWi-Fiルーターに脆弱性が見つかっていますし。 また、ゲスト用のSSIDからWANポート側に直接接続されているネットワークにアクセスできてしまうのも気に入りません。既存の社内LANにWi-Fiルーターを追加すると、ゲストユーザーが社内LANにアクセスできてしまいます。 Buffaloの場合、ゲストはLANポートもWANポートもアクセスできません。インターネットへの通信のみできます。 BuffaloもTP-Linkもいまひとつ NECを使う前は、代々Buffal
続きを読む

DELL 31.5インチ 4K HDR モニター U3219Q を購入

-
イメージ
長年使ったEIZOの24型モニターをDellの32型4Kモニターに買い換えました。 これまで使っていたモニターは 2010年の10月くらいに購入した EIZO(当時はナナオ) のSX2462W-HXPXBK でした。 簡易キャリブレーション機能が付いたAdobe RGB対応の24型モニターで、それなりに満足していました。 しかし、購入してから10年が経ち、世の中はスマホなどの高DPIが一般的で、その文字の美しさに見慣れていると、PCで文字を読むときのぼけたような読みづらさがだんだんストレスになってきていました。 （DPIはDots Per Inchの略で、ドット/インチ、つまり1インチ当たり何個のドット（画素、点、ピクセル）があるかということになります。数値が高いほどきれいに見え、低ければドットが目立ち粗く見えます。これまでの一般的なモニターが100 DPI位。MacのRetinaが200 DPI台。最近のiPhoneは400 DPI前後あります。家庭でのカラー印刷の場合300 DPIあれば十分と言われています。） また、職場では30型のモニターを使っているため、画面の狭さもやはりストレスになってきていました。特に写真を編集しているときに、もっと広ければ作業もはかどるのにと思っていました。 そして、コロナによるテレワークが始まり、仕事を24型モニターでしてみると画面が狭くて、普段はウィンドウ表示しているExcelファイルを全画面表示しなくてはならず、そうなるとウィンドウの切り替えが煩雑でこれまたストレスを感じていました。また、夕方になると目の痛みも感じていました。 新しいモニターに求めた条件 新しいモニターに求めた条件は、30型以上の大画面、4K(高DPI)、IPSパネル、非光沢、高さ調整可能なスタンドでした。 これまでのモニターで不満だったのは画面の狭さと解像度の低さ。そのため、新しいモニターに求めるのは30型位の画面と4Kでした。 42型で4Kだと105DPI程度になってしまい、これだと24型Full HDとDPIがあまり変わりなく、文字がきれいになりません。そのため、モニターサイズは30型位が妥当です。 以前、会社でHPの安いVAパネルモニターを買ったら、視野角が極端に狭く、画質も悪く、おまけに高さ調整機能は貧弱と散々でした。あれに懲りて安いモニターはやめよう
続きを読む

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

-
イメージ
業務アプリケーションのデータベースから ODBC を使ってデータを取得できるようになったので、Excel VBAでの ODBC 利用方法を書いてみたいと思います。 ADOを使う方法 Google 先生に利用方法を聞くと ADO を使う方法を解説しているページを紹介してくれます。例えば次のようなページです。 ADO(ActiveX Data Objects)の使い方の要点 エクセルの神髄 私も最初はこのようなサイトを参考にして ADODB オブジェクトを使ってデータベースからデータを取得していました。 しかし、データベースで使っている Unicode の文字列（簡体字）が化けてしまうという問題が生じ、DSN の設定を変えたり色々試しましたが解決せず諦めました。 なお、データベースはマイナーなIntersystems のCacheです。 クエリを使う方法 Excel のクエリを使ったところ、文字化けしなかったので、現在はこちらの方法を使っています。 データベース 次のようなアクセスのデータベースがあるとします。 テーブル名は「商品マスター」 カラム名は、ID, 商品名, 金額 保存してあるファイルは C:\Test\SampleDB.accdb DSNの用意 このファイルにアクセスするための DSN を作成します。（作成方法は後述） VBAのコード 次のコードを用意します。（ご自分の環境で実行する場合は適切なDSN名を指定して、SQL文も適切なものを指定します。Destination にはテーブルの左上の位置を指定します） Option Explicit 'テーブル作成　データシートに最初のテーブルを作るときだけ使用する 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"))         
続きを読む