| |
>エラーメッセージが出力
どこに出てますか ? たぶん、Declare〜 のどこかだと思いますが、ひょっとして
コピペするときに引数を囲む括弧が、余分に追加されちゃってませんか ?
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
()(ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
↑ここの部分のようにです。
私もそうなった経験があるのですが、もしこれが追加されていたら消して下さい。
>他のアプリケーションの名前に変えればよろしいのですか
そのとうりです。もしタイトルバーの文字列が完全に固定しているのなら、
それを使って hWnd = FindWindow(vbNullString, タイトルバーの文字列)
のようにしてウィンドウハンドルが得られますが、たいてい固定した部分とそうで
ない部分とが合体しているはずなので、先のように固定した部分を Like演算子で
判定することになります。例えばメモ帳なら
If Name Like "*メモ帳*" Then
とすればいいのです。なお変数名に使った Name は、Excelのオブジェクトや
プロパティに存在しているので、ちょっと変更して全て WName などとしておいて
下さい。
Dim WName As String
WName = String(255, ChR(0))
Leng = Len(WName)
Ret = GetWindowText(Handle, WName, Leng)
If WName Like "*Microsoft Internet Explorer*" Then
hWnd = FindWindow(vbNullString, WName)
の、６ヶ所あります。
|
|
kein
- 04/1/10(土) 21:19 -
