IEのタイトルの内容を取得したい
昨日以降(0) 2日前以降(0) 3日前以降(0) 4日前以降(0) 5日前以降(0)
Message#1 2016年2月1日(月)16時48分 From: カープファン | 返事 削除 変更 |
毎度お世話になっています。 素人には問題が次々発生し、ソフト作成がストップします。 次の a は1が得られます。 ところが b は実行時エラー438が出てしまいます。 多分、単純なミスと思いますが、原因がわかりません。 ご指導のほどお願いします。 Sub x() Dim a,b,objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True With objIE a = .document.all.tags("title").Length b = .document.all.tags("title")(0).innerTex' 実行時エラー 438 End With End Sub |
昨日以降 2日前以降 3日前以降 4日前以降 5日前以降