VBA入門
APIについて（Win32API）

ExcelマクロVBAの基本と応用、エクセルVBAの初級・初心者向け解説
最終更新日：2020-08-28

第123回.APIについて（Win32API）


一般的にはAPIは、アプリケーションプログラミングインタフェースのことです、
ソフトウェアコンポーネントが互いにやりとりするのに使用するインタフェースの仕様です。


ここでは、Windows標準のWin32APIについて解説します。
APIを使用するには、
まず、Declareステートメントで宣言が必要となります。

Declare ステートメン

ダイナミック リンク ライブラリ (DLL) の外部プロシージャへの参照を宣言します。
モジュール レベルで使います。

構文 1
[ Public | Private ]Declare****Sub名前Lib"libname" [ Alias "aliasname"] [([ arglist ])]
構文 2
[ Public | Private ]Declare****関数名前Lib"libname" [ Alias "aliasname"] [([ arglist ])] [ **** 型]

構文を見ても、結局何をどうしたら良いのか分からないと思います。
APIごとに引数の指定が違いますし、つまりは引数の指定方法が知りたいはずです。
使いたいAPIのサンプルを書籍やネットで探して、基本的にはそのまま使えば良いでしょう。

Excel 64Bit版の場合
PtrSafe キーワードが必要になります。
ネット等のサンプルは、ほとんどが32Bit版ですので、適宜PtrSafeキーワードを追加します。
また、
アドレス参照(ポインターおよびハンドルを格納する場合) の引数は、
32Bit版では、Long型ですが、
64Bit版では、LongPtr型 または Longlong型になります。

LongPtr型について
32 ビット環境と64 ビット環境で それぞれ以下に変換されます。
32ビットシステムでは、符号付き32ビット (4 バイト) の数値
64ビットシステムでは、符号付き64ビット (8 バイト) の数値
Longlong型について
Longlongは、64ビットでのみ有効な宣言型で、64ビット (8 バイト) の符号付き数値になります。
APIの中には、LongPtr型ではなくLonglong型を指定しなければならないものもあるようです。

Excel2010以降では、32BitでもPtrSafe キーワードを入れることができます。
つまり、2010以降でしか使わないのであれば、
PtrSafe キーワードは必ず入れておけば良いことになります。
条件付きコンパイル（32ビット64ビットの互換性）
条件付きコンパイルは、VBAの特定のコードブロックを選択してコンパイルします、VBAの他の部分は無視されます、条件付きコンパイルステートメントは、実行時ではなくコンパイル時に実行されます。条件に基づいてコンパイルするコードのブロックを指定するには #If...Then...#Elseディレクティブを使用します。

APIの使用例

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'64bit版のExcelの場合は、以下のようにPtrSafeを付けて下さい。
'Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub untilReady(objIE As Object)
　　Dim starttime As Date
　　starttime = Now()
　　Do While objIE.Busy = True Or objIE.ReadyState <> READYSTATE_COMPLETE
　　　　Sleep 100
　　　　DoEvents
　　　　If Now() > DateAdd("S", 10, starttime) Then
　　　　　　Exit Do
　　　　End If
　　Loop
End Sub

Sleepはプログラムを任意の時間だけ待機させることができ ます。
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
これで定義し、
Sleep 100
これで、100ミリ秒待機させています。

いろいろなAPIについて

マイクロソフトのmsdnで、
よく使われる一部の Windows API をリストし、日本語ドキュメントと英語ドキュメントへのリンクを案内しています。
Windows API リスト
良く使うと書かれていても、膨大な数になっています。
この中から目的の機能を持ったAPIを探すというのは厳しいとは思いますが、いつか役に立つこともあるかと思い掲載しておきます。

以下は、サイト内でAPI使用しているページです。

ConnectToConnectionPoint

イベントプロシージャーの共通化（Enter,Exit）｜ユーザーフォーム入門
ユーザーフォームのVBAでは、同じイベントプロシージャーを何個も作成することが多々あります。テキストボックスを複数個配置して同じイベント処理を実装する時、全く同じイベントプロシージャーをコピペで何個も作るといったことが必要になります。その解決方法として前回、第23回.イベントプロシージャーの共通化 WithEven…

GdiplusStartup,GdiplusShutdown,
GdipLoadImageFromFile,GdipGetImageDimension

画像サイズ（横x縦）の取得について｜VBA技術解説
マクロVBAで、画像サイズ（横x縦）ピクセル数を取得する方法についての解説です。画像は種類が多いので、全ての画像に対応しようとすると、かなり面倒になります。このような処理は、私もたびたび使いますので、自身の覚書としての意味もあり掲載します。

SetTimer,KillTimer

VBAでのタイマー処理（SetTimer,OnTime）｜VBA技術解説
VBAでタイマー処理（一定時間間隔で処理）を行う方法についての解説です。最も一般的な方法は、Application.OnTimeを使う方法になりますが、今回の主題としては、WindowsAPIのSetTimerを紹介します。まずはApplication.OnTimeの確認してから、次にWindowsAPIのSetTi…

OpenClipboard,EmptyClipboard,CloseClipboard,IsClipboardFormatAvailable,
GetClipboardData,SetClipboardData,GlobalAlloc,GlobalLock,GlobalUnlock,GlobalSize,lstrcpy

クリップボードに2次元配列を作成してシートに貼り付ける｜VBA技術解説
タイトルはいささかとっぴな感じですが、目的はクリップボードのデータ取得とクリップボードへデータを送る方法と、そもそもクリップボードの中に、セル範囲（つまり2次元）のデータがどのように入っているかを確認してみようという事です。そして、それが解ればクリップボードに2次元配列としてデータを用意してシートに貼り付けられるだ…

RtlMoveMemory

VBAにおける変数のメモリアドレスについて｜VBA技術解説
VBA開発においてメモリアドレスを気にすることはほとんど無いと思います。気になる場合があるとしたら、・String変数の処理が遅い ・Variant変数の処理が遅い ・ByRef,ByValの違い ・WindowsAPI使用時 このような場合に多少は気になる事があるくらいではないでしょうか。

GetSystemMetrics

VBAでWEBカメラ操作する｜VBA技術解説
VBAでWEBカメラを操作してみます。WEBカメラの映像を映し出し、任意の時点でスナップショットをとるようにしています。私自身にとってはエクセルでやる実用的な意味はほとんどありませんが、技術的な興味でやってみた自身の覚え書きになります。

GetDesktopWindow,GetDC,GetDeviceCaps,ReleaseDC

列幅・行高をDPI取得しピクセルで指定する｜VBA技術解説
VBAでは、ワークシートの列幅は文字数、行高はポイントで設定します。これらでの指定は便利な時もありますが、VBAで設定する場合に不便になる事も多くあります。そもそも、列幅と行高が別々の単位になっているので設定しづらいのです。

keybd_event

全シートの画面キャプチャを取得する（keybd_event）｜VBAサンプル集
資料等の作成で、画面キャプチャすることがあると思います。そこで、全シートの画面キャプチャを、新規シートに全て取得するプログラムです。Alt+PrntScrnで、エクセルのウインドウのみキャプチャしています。

Sleep,Beep

Beep音で音楽（Beep,Sleep）｜VBAサンプル集
時々検索されるので、Beep音で音楽を演奏してみましょう。プログラムはほぼAPIをCALLするだけです。まずは、シートです。こんな感じです。ドレミの周波数は結構適当なので、詳しい方は自分で調整して下さい。

GetInputState

他ブックへのリンクエラーを探し解除するマクロ｜VBAサンプル集
リンクエラーが見つけられない… 「リンクの編集」で、「リンクの解除」を選択してもリンクが削除できない… こんな経験をした人は多いのではないでしょうか。エクセルをいろいろと操作していると、意図せずに参照先が別ブックになってしまい、かつ、その参照先のブックが無くなってしまっている… こんな場合に、リンクエラーとなります。

URLDownloadToFile

GoogleスプレッドシートをExcelにインポートする｜VBAサンプル集
Googleスプレッドシートをエクセルに取り込みたい場合、手動のコピペでも出来ますが、もう少し自動化したくなります。スプレッドシートをエクセルに取り込む場合の方法について解説します。スプレッドシートのURLを取得 スプレッドシートを開いたら、右上にある「共有」をクリックします。

SHCreateDirectoryEx,MakeSureDirectoryPathExists

多階層フォルダ（ディレクトリ）の作成｜VBAサンプル集
フォルダを作成する場合、親フォルダの下にサブフォルダ作成します。VBAでフォルダを作成するには、MkDirステートメントまたはFileSystemObjectを使用しますが、これらは、親のフォルダから順次作成していく必要があります。Win32APIを使用することで、多階層フォルダを一括で作成する事もできます。

mciGetErrorString,mciGetErrorString

VBAで音楽再生するクラスを作成｜VBAサンプル集
VBAにも音楽を！ということでVBAで音楽再生をしてみることにしました。VBAでの音楽再生方法はいろいろありそうですが、多くの環境で動くのではないかという事でAPIを使いました。mciSendString このAPIで音楽再生します。

GetCursorPos

エクセルVBAで15パズルを作ってみた
古くからある15パズルをエクセルVBAで作ってみました。エクセルでこのパズルを遊んでも決して面白いものではないですね。このパズルそのものを使いたいという事はあまりないでしょう。あくまで、エクセルVBAでボタンをドラッグ移動するような場合に、VBAの参考にしてもらえればと思います。


同じテーマ「マクロVBA入門」の記事

第120回.OnTimeメソッド
第121回.SendKeysメソッドとAppActivateステートメント
第122回.Shell関数
第123回.APIについて（Win32API）
第124回.Workbookのイベントプロシージャー
第125回.Worksheetのイベントプロシージャー
第130回.テーブル操作の概要（ListObject）
第131回.テーブル操作のVBAコード（ListObject,DataBodyRange）
第142回.テーブル全件処理とデータ最終行（ListObject,DataBodyRange）
第127回.他のブックのマクロを実行（Runメソッド）
第128回.マクロをショートカットで起動（OnKeyメソッド）


新着記事NEW ・・・新着記事一覧を見る

エクセル馬名ダービー｜エクセル雑感(2021-07-21)
在庫を減らせ！毎日棚卸ししろ！｜エクセル雑感(2021-07-05)
日付型と通貨型のValueとValue2について｜エクセル雑感(2021-06-26)
DXってなんだ? ITと何が違うの?｜エクセル雑感(2021-06-24)
エクセルVBA 段級位 目安｜エクセル雑感(2021-06-21)
ローカル版エクセルが「Office Scripts」に変わる日｜エクセル雑感(2021-06-10)
新関数SORTBYをVBAで利用するラップ関数を作成｜VBA技術解説(2021-06-12)
VBA今日のひとこと/VBA今日の教訓 on Twitter｜エクセル雑感(2021-06-10)
VBAの演算子まとめ（演算子の優先順位）｜VBA技術解説(2021-06-09)
画像が行列削除についてこない場合の対処｜VBA技術解説(2021-06-04)


アクセスランキング ・・・ ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.Excelショートカットキー一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.RangeとCellsの使い方｜VBA入門
5.繰り返し処理（For Next)｜VBA入門
6.マクロって何？VBAって何？｜VBA入門
7.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
8.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
9.セルに文字を入れるとは（Range,Value）｜VBA入門
10.とにかく書いてみよう（Sub,End Sub）｜VBA入門



このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
本文下部へ
同じテーマの記事
新着記事
アクセスランク


↑