質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.48%
Internet Explorer

Internet Explorer(IE;MSIE)はマイクロソフトが開発したウェブブラウザです。Microsoft Windowsに組み込まれています。

Visual Studio 2010

Microsoft Visual Studio 2010はMicrosoftが提供している統合開発環境(IDE)です。

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

Q&A

1回答

4874閲覧

VB.NET でInternetExplorerのオブジェクト取得後のOuterHtml確認エラーについて

Com

総合スコア30

Internet Explorer

Internet Explorer(IE;MSIE)はマイクロソフトが開発したウェブブラウザです。Microsoft Windowsに組み込まれています。

Visual Studio 2010

Microsoft Visual Studio 2010はMicrosoftが提供している統合開発環境(IDE)です。

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

0グッド

0クリップ

投稿2017/04/14 02:59

編集2017/04/15 08:35

環境:Windows10 VisualVasic2010Express でVB.netを書いています。
目的:InternetExplorerでページにログインして目的のページへボタンを探してクリックしながら進むプログラムを作っています。

ページを進んでいくうちに、なぜか OuterHtml でタグの文字列を取得しようとすると、【HRESULT からの例外:0x800A01B6】とエラーが発生します。
そこで、試しにエラーが発生する箇所で outerHtml と記述してみたら(違いは O を o と大文字を小文字に変換)エラーが出ずに取得できることに気づきました。
さらに、進めるとまた、同じエラーが出るので、次は outerHtml を OUTERHTML と全て大文字にすると対応できるといった感じになっています。
この原因と、正しい対応などわかるかたいらっしゃいますでしょうか?

###該当のソースコード

Dim IE As Object = CreateObject("InternetExplorer.Application") Dim oDocument, oDoc As Object IE.Navigate "URL" ' 待受け処理--- oDocument = IE.Document ' テキストボックスを探して入力 For Each oDoc In oDocument.GetElementsByTagName("input") If oDoc.OuterHtml.IndexOf("id") > -1 then '---ログインテキストを探す oDoc.Value = "ログインID" ElseIf oDoc.OuterHtml.IndexOf("pw") > -1 then '---パスワードテキストを探す oDoc.Value = "ログインパス" End If System.Runtime.InteropServices.Marshal.ReleaseComObject(oDoc) Next ' ボタンを探してクリック For Each oDoc In oDocument.GetElementsByTagName("input") If oDoc.OuterHtml.IndexOf("ログイン") > -1 then '---ログインボタンを探す oDoc.Click System.Runtime.InteropServices.Marshal.ReleaseComObject(oDoc) Exit For End If System.Runtime.InteropServices.Marshal.ReleaseComObject(oDoc) Next ' 待受け処理--- ' ボタンを探してクリック For Each oDoc In oDocument.GetElementsByTagName("a") If oDoc.OuterHtml.IndexOf("案件管理") > -1 then '---案件管理ボタンを探す oDoc.Click System.Runtime.InteropServices.Marshal.ReleaseComObject(oDoc) Exit For End If System.Runtime.InteropServices.Marshal.ReleaseComObject(oDoc) Next ' 待受け処理--- ' ボタンを探してクリック For Each oDoc In oDocument.GetElementsByTagName("a") If oDoc.OuterHtml.IndexOf("詳細検索") > -1 then ← ここでエラー oDoc.Click System.Runtime.InteropServices.Marshal.ReleaseComObject(oDoc) Exit For End If System.Runtime.InteropServices.Marshal.ReleaseComObject(oDoc) Next

###試したこと

エラーの箇所で次のような確認をいたしました。
Msgbox(oDocument.Title) ← OK
Msgbox(oDocument.GetElementsByTagName("a").Length) ← OK
Msgbox(oDocument.GetElementsByTagName("a")(0).outerHtml) ← OK
Msgbox(oDocument.GetElementsByTagName("a")(0).OuterHtml) ← NG

どなたか、宜しくお願いいたします。

###補足情報(言語/FW/ツール等のバージョンなど)

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

odocumentの変数宣言の際objectが指定できておらず、Variantになっています。
dim oDocument as object, oDoc as objects
としてください。

投稿2019/10/14 16:36

die_Taka

総合スコア6

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだベストアンサーが選ばれていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.48%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問