既存IEのテキストボックスにEXCELの値を貼り付ける動作が不安定 削除
Message#2 2015年4月15日(水)14時53分 From: VBAマスター |
やりたいことって検索ボックスにダブルクリックした値をセットしたいということですか? わざわざクリップボード経由で入力する必要はないと思いますが。 とりあえずクリップボードなしでもOKの場合は以下でもいけるかと思います。 Public objIE As InternetExplorer 'ダブルクリックでスタートする Private Sub Worksheet_BeforeDoubleClick(ByVal Target As range, Cancel As Boolean) Dim objInpTxt As HTMLInputTextElement Dim objSh As Object Dim objWin As Object Cancel = True Set objSh = CreateObject("Shell.Application") For Each objWin In objSh.Windows If TypeName(objWin.document) = "HTMLDocument" Then Set objIE = objWin Set objSh = Nothing Exit For End If Next Set objInpTxt = objIE.document.getElementsByName("q")(0) objInpTxt.value = Target.value End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。