Windows10、Office2016、Internet Explorer11で動作NG
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
| Message#2 2017年11月5日(日)20時42分 From: みかさ | 返事 削除 変更 |
| getElementsByNameってByTagNameのことですか？ > 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 |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
