APIについて（Win32API）

最終更新日：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回.イベントプロシージャーの共通化 WithEventを使った方法を紹介しましたが、

GdiplusStartup,GdiplusShutdown,
GdipLoadImageFromFile,GdipGetImageDimension

画像サイズ（横x縦）の取得について｜VBA技術解説

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

SetTimer,KillTimer

VBAでのタイマー処理（SetTimer,OnTime）｜VBA技術解説

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

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メソッド）

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

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入門

ホーム
マクロVBA入門編
マクロVBA入門
APIについて（Win32API）

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

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

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

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

Declare ステートメン

APIの使用例

いろいろなAPIについて

ConnectToConnectionPoint

GdiplusStartup,GdiplusShutdown,
GdipLoadImageFromFile,GdipGetImageDimension

SetTimer,KillTimer

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

RtlMoveMemory

GetSystemMetrics

GetDesktopWindow,GetDC,GetDeviceCaps,ReleaseDC

keybd_event

Sleep,Beep

GetInputState

URLDownloadToFile

SHCreateDirectoryEx,MakeSureDirectoryPathExists

mciGetErrorString,mciGetErrorString

GetCursorPos

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

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

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

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

Declare ステートメン

APIの使用例

いろいろなAPIについて

ConnectToConnectionPoint

GdiplusStartup,GdiplusShutdown, GdipLoadImageFromFile,GdipGetImageDimension

SetTimer,KillTimer

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

RtlMoveMemory

GetSystemMetrics

GetDesktopWindow,GetDC,GetDeviceCaps,ReleaseDC

keybd_event

Sleep,Beep

GetInputState

URLDownloadToFile

SHCreateDirectoryEx,MakeSureDirectoryPathExists

mciGetErrorString,mciGetErrorString

GetCursorPos

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

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

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

GdiplusStartup,GdiplusShutdown,
GdipLoadImageFromFile,GdipGetImageDimension

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

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