IEのタイトルの内容を取得したい 削除
| Message#2 2016年2月3日(水)14時52分 From: カープファン |
| カープファンのメッセージ(#1)への返事 申し訳ありません。 objIE.navigate "**********" とinnerTextのtが抜けていました。 Sub x() Dim a,b,objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.navigate "**********" With objIE a = .document.all.tags("title").Length b = .document.all.tags("title")(0).innerText' 実行時エラー ４３８ End With End Sub ●最終の例 innerTextをinnerHTML にしました。 Sub x() Dim a,b,objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.navigate "**********" With objIE.document.all a = .tags("title").Length b = .tags("title")(0).innerHTML End With End Sub 分からずにコピーするため、度々、ミスに気付かず、ご迷惑をおかけしています。 > 毎度お世話になっています。 > 素人には問題が次々発生し、ソフト作成がストップします。 > > 次の a は1が得られます。 > ところが b は実行時エラー４３８が出てしまいます。 > 多分、単純なミスと思いますが、原因がわかりません。 > ご指導のほどお願いします。 > > 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' 実行時エラー ４３８ > End With > End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
