Windows10、Office2016、Internet Explorer11で動作NG
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
| Message#1 2017年11月5日(日)09時53分 From: 鈴木進 | 返事 削除 変更 |
| Windows7、Office2010、Internet Explorer11で動作していたＶＢＡが Windows10、Office2016、Internet Explorer11で動作NGとなり解決方法が見つからなくて、掲示板に投稿しました。どなたかヒントを頂けませんか？ セル内のテキストをクリップボードにコピーして、ＩＥのテキストＢＯＸに貼り付けるのみの内容です。下記が動作していたＶＢＡです。 下から3行目のSet objInpTxt = objIE.document.getElementsByName("Detail")(0) でobjInpTxt がNothingの状態となります。 ＩＥ操作用ライブラリーの必要な項目は確認済です。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim objInpTxt As HTMLInputTextElement Dim objSh As Object Dim objWin As Object Dim name As String 'グループ名 name = Tearget.Value 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("Detail")(0) objInpTxt.Value = name End Sub |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
