ハンドルを取得して表示済みの"名前を付けて保存"ダイアログの保存先を変更したい。

Question

前提・実現したいこと

お世話になっております。
seleniumを利用して名前を付けて保存ダイアログを出現させ、**FindWindow関数（またはFindWindowEx関数）**を利用してハンドルを取得させ、名前を付けて保存させようとしています。
**SPY++**を利用してハンドル名を取得して保存するデータの名前をつけてOKボタンをクリックし、保存する事はできたのですが、保存先のハンドルの取得と指定がうまくいきません。
試しに実行してもエラーは出ずにその部分に関してはスルーされているように見えます。

ご教授願います。

該当のソースコード

Option Explicit

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _
        ByVal hwndParent As LongPtr, _
        ByVal hwndChildAfter As LongPtr, _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long
Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" ( _
        ByVal hwnd As Long, _
        ByVal wMsg As Long, _
        ByVal wParam As Long, _
        lParam As Any) As LongPtr
        
Public Const VK_RETURN As Integer = &HD

Sub test()


中略

'名前を付けて保存画面--------------------------

Dim hwnd As Long
    ' ウィンドウハンドル取得
    hwnd = FindWindow("#32770", "名前を付けて保存")    ' ウィンドウタイトルで検索する場合
  
   If hwnd <> 0 Then
        ' 指定したハンドルのウィンドウを前面に表示
        SetForegroundWindow hwnd
        End If
        
        Driver.Wait (5000)

Dim hInputBox As Long
Dim hbutton As Long

'アドレスバーを選択する
'hInputBox = FindWindowEx(hwnd親ハンドル,子のハンドル,ウインドウクラスネーム, "")

hInputBox = FindWindowEx(hwnd, 0, "WorkerW", "")
hInputBox = FindWindowEx(hInputBox, 0, "ReBarWindow32", "")
hInputBox = FindWindowEx(hInputBox, 0, "Address Band Root", "")
hInputBox = FindWindowEx(hInputBox, 0, "msctls_progress32", "")
hInputBox = FindWindowEx(hInputBox, 0, "Breadcrumb Parent", "")
hInputBox = FindWindowEx(hInputBox, 0, "ToolbarWindow32", "")

SetForegroundWindow hInputBox
'アドレスバーに入力場所を入れる
Call SendMessage(hInputBox, &H6, 1, 0&)　'ToolbarWindow32をアクティブにする

Call SendMessage(hInputBox, &HF5, 0, 0&)　 'ボタンをクリックする（アドレス入力可能状態にする）

Call SendMessage(hInputBox, &HC, 0, ByVal "C:\Users\uehara\Desktop") 'アドレス入力

Call SendMessage(hInputBox, &HD, 0, 0&)　　' エンターを押す


'名前を付けて保存する
hInputBox = FindWindowEx(hwnd, 0, "DUIViewWndClassName", "")
hInputBox = FindWindowEx(hInputBox, 0, "DirectUIHWND", "")
hInputBox = FindWindowEx(hInputBox, 0, "FloatNotifySink", "")
hInputBox = FindWindowEx(hInputBox, 0, "ComboBox", "")
hInputBox = FindWindowEx(hInputBox, 0, "Edit", "")
hbutton = FindWindowEx(hwnd, 0, "Button", "保存(&S)")
Call SendMessage(hInputBox, &HC, 0, ByVal "テスト")
Call SendMessage(hbutton, &H6, 1, 0&)  'ボタンをアクティブにする
Call SendMessage(hbutton, &HF5, 0, 0&) 'ボタンをクリックする
Driver.Wait (1000)
End Sub

試したこと

該当のハンドルはこちらで間違いないとは思います。
また、アドレス部分のハンドルに対して、SendMessageを利用してクリックをする（その部分を有効かできると考えて）ということも試しましたが、そちらも不発に終わりました。
（2021/10/01更新）
各種ご提案頂いた方法試した結果、ウィンドウハンドル自体は間違っていないようなので、アドレスバーへの指示式（指示方法？）が間違っているように思われます。

利用環境

excel2019 32bit版

Comments

[takanaweb5]

変数やDeclare宣言でハンドルはLongPtr型で宣言しなければならないはずです。
ハンドルの実態はポインタですから

32bit版のExcelをご使用であれば結果オーライですが

[tetrisuehara]

すみません表記しておけばよかったですね。
利用環境は32ビット版になります。
質問文を編集しておきます。
ご指摘ありがとうございます。

[tetrisuehara]

皆様ご回答頂きましてありがとうございました。

h.horikoshi様のご回答でベストアンサーとさせていただきますが、tyamzak_様、takanaweb5様共にお知恵をお貸しいただきまして誠にありがとうございました。
見ていただけているかはわかりませんが、コメントにてお礼申し上げます。

Answer 1

質問中で提示されたコード自体は動作していると思います。
※なお、各々のsendMessageの間にはDoEventsを入れてください。

当方で試してみましたが、ToolbarWindow32に値は入ります(プログラム実行後にSPYで
確認してみてください)
ただし、値は入っても入力フィールドの表示は変更されません。この入力フィールド
はいろいろなウィンドウが重なっていますので、対象にしているウィンドウが異なる
のではないかと思います。

．．．ところで、保存先のハンドルの取得と指定を試されているのは、ファイルの保存先ドライブや
フォルダを指定したいということなのでしょうか？
であれば、ファイル名フィールドにドライブを含めたフルパスのファイル名を指定すれば
よいかと思います。そうすれば保存先フィールドの値は関係なく指定したパスでファイルが
格納できます。ファイル名フィールドはEditクラスですので設定も簡単です。

Comments

[tetrisuehara]

遅ればせながら、ご回答ありがとうございます。
そのような理由で見た目で反映はされずに内部的には処理されているという状態だったんですね
私の方でも確認できました。

まさしく保存先及び名前をつけるまでをするというコードを書いておりました。
フルパスでファイル名のフィールで再現できるというのは思いもよりませんでした。

重ねてお礼申し上げます。

Answer 2

    hwnd = FindWindow("#32770", "名前を付けて保存")
    Debug.Print WorksheetFunction.Dec2Hex(hwnd, 8)
    
    hInputBox = FindWindowEx(hwnd, 0, "WorkerW", "")
    Debug.Print WorksheetFunction.Dec2Hex(hInputBox, 8)

のようにして、たえずウインドウハンドルの変数の中身を確認し、spy上に表示されるウインドウハンドルの値と比較されてはどうでしょうか？

ふと思っただけで外しているかもしれませんが、EXCELは32bit、SPYも32bitでウインドウハンドルを取得したいアプリは64bitというのが原因とかないでしょうか？
32bitアプリでは、64bitのハンドル(ポインタ)を取得することは出来るのでしょうか？

Comments

[tetrisuehara]

お世話になっております。
ご回答ありがとうございます。

ハンドルの値の比較までたどり着けていないのですが、先に32ビット・64ビットのご指摘についてですが、確かに原因の可能性は捨てきれないですね。
名前を付けて保存ダイアログのダイアログ自体はwindowsのシステムですので、私のPC自体が10Pro64ビット環境なので。
または、windowsシステムをアプリケーション側環境に準拠している場合、該当アプリケーションは32ビットなので、他に原因があるという事になりそうです。

[tetrisuehara]

お世話になっております。
ウインドウハンドルの動きを見てみたのですが、やはりハンドル自体は変わっていませんでした。
よって、ハンドル取得後のハンドルへの命令式が間違っているように感じます。
ハンドルの命令式を見直してみます。
重ねてご提案いただきありがとうございました。

Answer 3

ですが、なぜ３２より少ない場合呼び出しという形なのでしょうか？

エラーコードが32ビットであり、31が最上位なので、そうしています。

GetLaGetLastError

ウインドウハンドルは取得できていて、実際にsendmessageでアドレスを入れる時にハンドルが無効になっているということはどういうことでしょうか？

ウィンドウがトップにあると見なされていないからかもしれません。
そうであれば、SetForegroundWindow関数をSendMessageの直前に入れるとうまくいくことがあります。

エクセルVBAでWindows APIのSetForegroundWindow関数を利用する

いずれにせよ、操作したいウィンドウが送ろうとしているメッセージを受け付ける様に作られていれば操作できますが、そうでなければ操作できないと思います。
保存先の指定を手で行ってみて、想定されるメッセージのやり取りが作成されているか確認するのも良いかもしれません。

Spy++ (ウィンドウメッセージを調べる)の使い方

Comments

[tetrisuehara]

お世話になっております。
ご回答頂きましてありがとうございます

>いずれにせよ、操作したいウィンドウが送ろうとしているメッセージを受け付ける様に作られていれば操作できますが、そうでなければ操作できないと思います。

確かにアドレス入力に対する指示が違っているような気もしますのでこちらの見直しをしてみます。

Answer 4

昔触ったことがあります。
WindowsAPIはエラーで止まったりしなかったような記憶があります。
戻り値をチェックして確認してみてはいかがでしょうか。
例えばですが、

'アドレスバーを選択する
'アドレスバーに入力場所を入れる

の部分を、以下のようにすると、エラーが出ているのかどうかわかるかと思います。

hInputBox = FindWindowEx(hwnd, 0, "WorkerW", "")
If hInputBox < 32 Then
　　Call sGetErrMsg
End If
hInputBox = FindWindowEx(hInputBox, 0, "ReBarWindow32", "")
If hInputBox < 32 Then
　　Call sGetErrMsg
End If
hInputBox = FindWindowEx(hInputBox, 0, "Address Band Root", "")
If hInputBox < 32 Then
　　Call sGetErrMsg
End If
hInputBox = FindWindowEx(hInputBox, 0, "msctls_progress32", "")
If hInputBox < 32 Then
　　Call sGetErrMsg
End If
hInputBox = FindWindowEx(hInputBox, 0, "Breadcrumb Parent", "")
If hInputBox < 32 Then
　　Call sGetErrMsg
End If
hInputBox = FindWindowEx(hInputBox, 0, "ToolbarWindow32","")
If hInputBox < 32 Then
　　Call sGetErrMsg
End If

Dim r as Long

'アドレスバーに入力場所を入れる
r = SendMessage(hInputBox, &HC, 0, ByVal "C:\Users\ユーザー名\Desktop")

If r < 32 Then
　　Call sGetErrMsg
End If

Private Sub sGetErrMsg()
'最後にDLLを呼び出したときのエラーを取得(GetLastError)
　　Dim lngResult As Long
　　Dim ErrorCode As Long
　　Dim ErrBuffer As String
　　'エラーメッセージを受け取るバッファーを確保
　　ErrBuffer = String$(256, vbNullChar)
　　'最後にDLLを呼び出したときのエラーコードを取得
　　ErrorCode = Err.LastDllError
　　'エラーコードからエラーメッセージを取得する
　　lngResult = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, ByVal 0&, ErrorCode, 0&, ErrBuffer, Len(ErrBuffer), 0&)
　　'バッファーからメッセージを取り出し
　　ErrBuffer = Left$(ErrBuffer, InStr(ErrBuffer, vbNullChar) - 1)
　　'エラーコードとエラーメッセージを表示
　　MsgBox "エラーコード: " & ErrorCode & vbLf & ErrBuffer, vbInformation, "GetLastError"
End Sub

Comments

[tetrisuehara]

お世話になっております。ご回答頂きましてありがとうございます。
上記コードに変更して、宣言等してから動かしてみました。
結果としては
ハンドルの掘り下げの部分では
エラーコード：０　この操作を正しく終了しました。
と出ますので、正しくハンドルの取得はできているようです。

r = SendMessage(hInputBox, &HC, 0, ByVal "C:\Users\ユーザー名\Desktop")
この部分でエラーを吐き出していて、
エラコード：1400
ウインドウハンドルが無効です。
と出ています。

質問としていくつかございまして、
まず１つ目
If hInputBox < 32 Then
　　Call sGetErrMsg
ですが、なぜ３２より少ない場合呼び出しという形なのでしょうか？
この32の数字はハンドル番号を比較しているという認識でいいんでしょうか？

2つ目
ウインドウハンドルは取得できていて、実際にsendmessageでアドレスを入れる時にハンドルが無効になっているということはどういうことでしょうか？

ご回答のほどよろしくお願いします。