###前提・実現したいこと
理想は、excelで英単語を入力すると、自動的にweblioで検索し、おおよその意味をとってきて、隣のセルにその意味が入力されるようにしたい。
###発生している問題・エラーメッセージ
オブジェクトは、このプロパティまたはメソッドをサポートしていません。 MsgBox objIE.document.getElementsByClassName("summaryM descriptionWrp").innerText の部分が問題の場所だと思われます。
###該当のソースコード
Sub Macro1() n = Cells(Rows.Count, "A").End(xlUp).Row For i = 2 To n Range("A" & i).Select a = ActiveCell.Value Call weblio(a) Next i End Sub Sub weblio(keyWD) Set objIE = CreateObject("InternetExplorer.Application") strURL = "http://ejje.weblio.jp/" With objIE .Visible = True .Navigate2 strURL Do While .Busy = True DoEvents Loop Do While .document.ReadyState <> "complete" DoEvents Loop .document.getelementbyid("searchWord").Value = keyWD .document.forms(0).Submit MsgBox objIE.document.getElementsByClassName("summaryM descriptionWrp").innerText End With End Sub
###試したこと
MsgBox objIE.document.getElementsByClassName("summaryM descriptionWrp").innerText
の部分が問題の場所だと思われます。
一応、
MsgBox objIE.document.getElementbyid("summary").innerText
の時は、きちんと表示されましたが、表示される部分をもっと限定したいので、上のエラーを治したいです。
###補足情報(言語/FW/ツール等のバージョンなど)
VBAですが、javascriptとかとほぼ一緒だと思います。
頭の悪い方法を用いていると思うかもしれませんが、どなたかご教授お願いします。
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/04/21 11:25 編集
2017/04/21 13:48
2017/04/22 00:22