既存ＩＥのテキストボックスにEXCELの値を貼り付ける動作が不安定
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
| Message#3 2015年4月16日(木)17時58分 From: 鈴木 | 返事 削除 変更 |
| VBAマスターのメッセージ(#2)への返事 ありがとうございました。 今日、実際の作業がこれで実現できました。 随分遠回りをしていたと思いました。ＶＢＡ初心者なので・・・ > やりたいことって検索ボックスにダブルクリックした値をセットしたいということですか？ > わざわざクリップボード経由で入力する必要はないと思いますが。 > > とりあえずクリップボードなしでも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 |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
