IEのタイトルの内容を取得したい 削除
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 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。