Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

71115 / 76807

←次へ　｜　前へ→


	【10193】Re:ウインドウネームを取得できますか？

EMU - 04/1/10(土) 17:46 -


	引用なし

	パスワード

▼Keinどうもありがとうございます。
>OSの処理ですから、Excelのコードでは及びません。全てAPIの処理になります。
そういうことなのですね、どうもありがとうございます

>例えばどんなウィンドウを開いていても IE を見つけて前面に出す、という
>ことなら
>
>Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, _
>lPalam As Long) As Long
>Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
>(ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
>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 Function OpenIcon Lib "user32" (ByVal hWnd As Long) As Long
>Declare Function IsIconic Lib "user32" (ByVal hWnd As Long) As Long
>
>Sub MyWindow_SetFront()
>　 Dim Ret As Long
>
>　 Ret = EnumWindows(AddressOf Rekkyo, 0)
>End Sub
>
>
>Public Function Rekkyo(ByVal Handle As Long) As Boolean
>　　Dim Ret As Long, Leng As Long, hWnd As Long
>　　Dim Name As String
>
>　　Name = String(255, ChR(0))
>　　Leng = Len(Name)
>　　Ret = GetWindowText(Handle, Name, Leng)
>　　If Ret <> 0 Then
>　　　 If Name Like "*Microsoft Internet Explorer*" Then
>　　　　　hWnd = FindWindow(vbNullString, Name)
>　　　　　SetForegroundWindow hWnd
>　　　　　If IsIconic(hWnd) Then OpenIcon hWnd
>　　　　　Exit Function
>　　　 End If
>　　End If
>　　Rekkyo = True
>End Function

上記のコード意味がよくわかりませんが（申し訳ありません）、
とりあえず試してみました。
すると
「実行時エラー’49’
　DLLが正しく呼び出せません」
とエラーメッセージが出力されてしまいました。どうしたらよろしいでしょうか?
それと併わせて、IEいがいの場合は
"*Microsoft Internet Explorer*"
の部分を他のアプリケーションの名前に変えればよろしいのですか？教えてください。

>
>こんな感じになります。MyWindow_SetFront を実行してみて下さい。
>なお、IE ならもう少し簡単に・・
>
>Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) _
>As Long
>Declare Function OpenIcon Lib "user32" (ByVal hWnd As Long) As Long
>Declare Function IsIconic Lib "user32" (ByVal hWnd As Long) As Long
>
>Sub IE_SetFront()
>　 Dim MyShell As Object, MyWindow As Object, objIE As Object
>　 Dim hWnd As Long
>
>　 Set MyShell= CreateObject("Shell.Application")
>　 For Each MyWindow In MyShell.Windows
>　　　If TypeName(MyWindow.document) = "HTMLDocument" Then
>　　　　 Set objIE = MyWindow: Exit For
>　　　End If
>　 Next
>　 If Not objIE Is Nothing Then
>　　　hWnd = objIE.hwnd
>　　　SetForegroundWindow hWnd
>　　　If IsIconic(hWnd) Then OpenIcon hWnd
>　 End If
>　 Set objIE = Nothing: Set MyShell = Nothing
>End Sub
>
>でも出来ますが。

はい、こちらはエラーも出ず動作いたしました。ありがとうございます。

3 hits

▼

【10136】ウインドウネームを取得できますか？ EMU 04/1/8(木) 16:57