プラグインが入った別ブックにALTキーなどを送って操作したい

Question

プラグインが入った別ブックに、操作用のブックからALTキーなどを送ってプラグインを、
バックグランドで操作したいのでSendKeyやkeybd_evenを使わない方法を検討しています。

＜問題点＞
下記コードで（学習のため）メモ帳での操作と、別ブック(Data.xlsx)の操作をトライしているのですが、メモ帳のテストでは文字を入力できましたが、ALTキーが入力できません。
エクセルのテストではいずれもできません。
どこを修正すればよいかご教授頂けますでしょうか？

Const WM_KEYDOWN = &H100
Const VK_MENU = &H12
Const WM_SYSKEYDOWN = &H104
Const VK_F = &H46

Sub Main()
Dim hApp As Long
Dim hEdit As Long, hEdit2 As Long, Res As Long

'メモ帳
hApp = FindWindow("NotePad", vbNullString)
hEdit = FindWindowEx(hApp, 0, "Edit", vbNullString)
Res = PostMessage(hEdit, WM_KEYDOWN, VK_MENU, 0)   'ALT 反応なし
Res = PostMessage(hEdit, WM_KEYDOWN, VK_F, 0)       'F 入力可能

'エクセル
hApp = FindWindow("XLMAIN", vbNullString)
hEdit = FindWindowEx(hApp, 0, "XLDESK", vbNullString)
hEdit2 = FindWindowEx(hEdit, 0, vbNullString, "Data.xlsx")
Res = PostMessage(hEdit2, WM_KEYDOWN, VK_MENU, 0)    'ALT 反応なし
Res = PostMessage(hEdit2, WM_KEYDOWN, VK_F, 0)       'F 反応なし

End Sub

Wndows10/office2019

よろしくお願いします。

Answer 1

試行錯誤した結果、押下するキーを引数としたUWSCを実行することでできました。

<VBA>
Sub test()
Dim wb(2)
Set wb(0) = ThisWorkbook
Set wb(1) = Workbooks("Data.xlsx")
Dim WSH As Variant
Set WSH = CreateObject("WScript.Shell")
'キーを変数に設定 キー、キー、・・・
HIKISUU1 = "VK_MENU,VK_W,VK_Z,VK_S,VK_V,VK_F"  'ALT W ZS VF　数式バー表示
HIKISUU1 = wb(1).Name & " " & HIKISUU1 'ファイル名追加
'WSHで同期させ実行
With CreateObject("Wscript.Shell")
.Run ("""" & ThisWorkbook.Path & "\SendKey3.exe" & """" & " " & HIKISUU1), 0, True
End With
End Sub

<UWSC>
//ExcelのID取得
id = getid(PARAM_STR[0])
//キー操作
KeyStr= PARAM_STR[1]
for i=2 to Length(PARAM_STR)-1
	KeyStr=KeyStr + "," + PARAM_STR[i]
next
//実行
eval("sckey(id, " + KeyStr + ")")