GetWindowText、GetActiveWindowについて

こんばんは。よろしくお願いします。
まずは以下をご覧ください。
Excel VBA です。

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Sample()
Dim rtn, rtn2 As Long
Dim Name As String
Dim Leng As Long
Dim ReturnValue
ReturnValue = Shell("CALC.EXE", 1)
AppActivate ReturnValue

Sleep 500
Name = String(250, Chr(0))
Leng = Len(Name)
rtn = GetActiveWindow()
rtn2 = GetWindowText(rtn, Name, Leng)
Debug.Print Name
End Sub

これを実行しても、イミディエイトウインドウに「電卓」は出ません。
エラーもありません。
なぜなのでしょうか？

No.1 ベストアンサー 回答者： BellBell 回答日時： 2010/03/11 20:50

GetActiveWindow

↓
GetForegroundWindow

では？
API使うなら、MSDNぐらい読みましょう。

この回答へのお礼

ご即答ありがとうございます。
MSDNはほとんどスルーでしたが、これを機に、眺める時間をちょっとずつ延ばしてみます。

お礼日時：2010/03/11 21:23