第123回.APIについて（Win32API）
一般的にはAPIは、アプリケーションプログラミングインタフェースのことです、
ソフトウェアコンポーネントが互いにやりとりするのに使用するインタフェースの仕様です。
APIを使用するには、
まず、Declareステートメントで宣言が必要となります。
Declare ステートメン
モジュール レベルで使います。
[ Public | Private ]Declare****Sub名前Lib"libname" [ Alias "aliasname"] [([ arglist ])]
構文 2
[ Public | Private ]Declare****関数名前Lib"libname" [ Alias "aliasname"] [([ arglist ])] [ **** 型]
APIごとに引数の指定が違いますし、つまりは引数の指定方法が知りたいはずです。
使いたいAPIのサンプルを書籍やネットで探して、基本的にはそのまま使えば良いでしょう。
ネット等のサンプルは、ほとんどが32Bit版ですので、適宜PtrSafeキーワードを追加します。
また、
アドレス参照(ポインターおよびハンドルを格納する場合) の引数は、
32Bit版では、Long型ですが、
64Bit版では、LongPtr型 または Longlong型になります。
32ビットシステムでは、符号付き32ビット (4 バイト) の数値
64ビットシステムでは、符号付き64ビット (8 バイト) の数値
APIの中には、LongPtr型ではなくLonglong型を指定しなければならないものもあるようです。
Excel2010以降では、32BitでもPtrSafe キーワードを入れることができます。
つまり、2010以降でしか使わないのであれば、
PtrSafe キーワードは必ず入れておけば良いことになります。
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について
全シートの画面キャプチャを取得する（keybd_event）
マイクロソフトのmsdnで、
よく使われる一部の Windows API をリストし、日本語ドキュメントと英語ドキュメントへのリンクを案内しています。
Windows API リスト
良く使うと書かれていても、膨大な数になっています。
この中から目的の機能を持ったAPIを探すというのは厳しいとは思いますが、いつか役に立つこともあるかと思い掲載しておきます。
同じテーマ「マクロVBA入門」の記事
第120回.OnTimeメソッド
第121回.SendKeysメソッドとAppActivateステートメント
第122回.Shell関数
第123回.APIについて（Win32API）
第124回.Workbookのイベントプロシージャー
第125回.Worksheetのイベントプロシージャー
第130回.テーブル操作の概要（ListObject）
第131回.テーブル操作のVBAコード（ListObject）
第127回.他のブックのマクロを実行（Runメソッド）
第128回.マクロをショートカットで起動（OnKeyメソッド）
第129回.レジストリの操作（SaveSetting,GetSetting,GetAllSettings,DeleteSetting）
新着記事NEW ・・・新着記事一覧を見る
Variantの数値型と文字列型の比較｜エクセル雑感（7月1日）
VBAのVariant型について｜VBA技術解説（6月30日）
VBAのString型の最大文字数について｜エクセル雑感（6月20日）
VBAで表やグラフをPowerPointへ貼り付ける｜VBAサンプル集（6月19日）
アクティブシート以外の表示(Window)に関する設定｜VBA技術解説（6月17日）
マクロ記録での色のマイナス数値について｜エクセル雑感（6月16日）
ツイッター投稿用に文字数と特定文字で区切る｜エクセル雑感（6月15日）
日付の謎：IsDateとCDate｜エクセル雑感（6月14日）
IFステートメントの判定｜エクセル雑感（6月13日）
インクリメンタルサーチの実装｜ユーザーフォーム入門（6月12日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.マクロって何？VBAって何？｜VBA入門
5.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
6.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
7.繰り返し処理（For Next)｜VBA入門
8.セルに文字を入れるとは（Range,Value）｜VBA入門
9.とにかく書いてみよう（Sub,End Sub）｜VBA入門
10.マクロはどこに書くの（VBEの起動）｜VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。