質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

89.24%

Excel VBA で PostMessage できない

受付中

回答 1

投稿

  • 評価
  • クリップ 0
  • VIEW 3,281

menshan

score 53

Execl(2016) からCppで作成したアプリ(32bit)へ PostMessage したいのですができません。
PostMessage の戻り値が FLASE となり LastError の番号は 87(ERROR_INVALID_PARAMETER)となってしまいます。
宛先ウインドウハンドルは受け取り側のアプリで画面上に表示させそれをExcel側で使用しています。
Declare Function の定義も間違っていないと思うのですがなぜPostMessageが失敗してしまうのでしょうか?
(Excelの64bit/32bitとも失敗します)

Option Explicit
#If VBA7 And Win64 Then
Declare PtrSafe Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, ByVal lparam As LongPtr) As Long
#Else
Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lparam As Long) As Long
#End If

Sub test1()
    Const WM_APP As Long = &H8000
    Dim glhWndMain As LongPtr
    Dim wParam As LongPtr
    Dim lParam As LongPtr
    Dim ret As Long
    wParam = 123
    lParam = 456
    glhWndMain = &HC0644    '<-- 宛先ウインド
    ret = PostMessage(glhWndMain, WM_APP, wParam, lParam)
    Debug.Print ret & " " & Err.LastDllError    ' 0 87 (ERROR_INVALID_PARAMETER)となってしまう
End Sub

受け取り側アプリは以下の様になっています。

LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
{
    TCHAR buff[256];
    switch (message)
    {
    case WM_CREATE:
        swprintf_s(buff, 256, _T("hWnd=%p"), (void*)hWnd);
        SetWindowText(hWnd, buff);  // キャプションにハンドル値16進表示
        break;
    case WM_APP:
        swprintf_s(buff, 256, _T("wparam=%d lParam=%p"), (int)wParam, (void*)lParam);
        MessageBox(hWnd, buff, NULL, MB_OK);
        break;
    ・・・

CPPで作成した以下の送信アプリ(64bit/32bitとも)では問題なく送信できます。

int main(int argc, char *argv[])
{
    if (argc > 1) {
        HWND hwnd;
        hwnd = (HWND)_strtoi64(argv[1], NULL, 16);
        if(!PostMessage(hwnd, WM_APP, 123, (LPARAM)456)){
            printf("NG PostMessage\n");
        }
    }
    return 0;
}
  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 1

0

VBAのLong型は4バイトとなってるようです

データ型の概要

LongLong にしてみてはどうでしょう

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/08/06 18:25

    Declare PtrSafe Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As LongLong, ByVal wMsg As Long, ByVal wParam As LongLong, ByVal lparam As LongLong) As Long
    にしてやってみましたが結果は変わりませんでした。

    キャンセル

  • 2018/08/06 18:27

    Declare PtrSafe Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As LongLong, ByVal wMsg As LongLong, ByVal wParam As LongLong, ByVal lparam As LongLong) As Long

    ではどうでしょう

    キャンセル

  • 2018/08/06 18:49

    こちらもやってみましたが同じ結果でした。

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 89.24%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる