Excel VBA質問箱 IV

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

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


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

9655 / 76734

←次へ　｜　前へ→


	【72640】Re:マクロが止まる理由？

ウッシ - 12/8/30(木) 13:15 -


	引用なし

	パスワード

こうするとどうでしょうか？

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
　　　　ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _
　　　　ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
　　　　ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SETTEXT = &HC

Sub test1()
　　Dim hExe　As Long
　　Dim hEnt　As Long

　　hExe = FindWindow("hlexpl32", vbNullString)
　　hEnt = FindWindowEx(hExe, 0, "Edit", vbNullString)
　　Call SendMessage(hEnt, WM_SETTEXT, 0, ByVal "%( )")
　　Call SendMessage(hEnt, WM_SETTEXT, 0, ByVal "R")
End Sub

▼たつさん：
>▼ウッシさん：
>>▼たつさん：
>>
>>ウインドウ名が"ｼﾃｲｱﾌﾟﾘ"というアプリが起動されていますでしょうか？
>>
>はい、起動しています。
>ｱﾌﾟﾘは
>"C:\Program Files\COMNET Series Emulator\hlexpl32.exe"
>です。
>何か、環境がよくないのでしょうか？
>何度もすみません・・・

3 hits

▼

【72618】マクロが止まる理由？ たつ 12/8/29(水) 9:56