CreateObject("InternetExplorer.Application")

Question

VB6.0からのアップグレードによって

Dim IEE as object

                        IEE = CreateObject("InternetExplorer.Application")
                        IEE.Navigate(New System.Uri(http://jp.msn.com/))

・・・・・・

コードが作成されました。

ところが IEE.Navigate(New System.Uri(http://jp.msn.com/))のところでＨＲＥＳＵＬＴ・・・ＴＹＰＥＭＩＳＭＡＴＣＨエラーが出ます。

事前バインディングしてくださいのような・・・。

上記のようなコードを事前バインディングするにはどうしたらよいのでしょうか？お願いします。

 

Answer 1

ネット移行者さん、こんにちは。

 

ネット移行者 さんからの引用

ところが IEE.Navigate(New System.Uri(http://jp.msn.com/))のところでＨＲＥＳＵＬＴ・・・ＴＹＰＥＭＩＳＭＡＴＣＨエラーが出ます。

URL を文字列で表現すれば解決するような気がしますが、

事前バインディングしてくださいのような・・・。 上記のようなコードを事前バインディングするにはどうしたらよいのでしょうか？お願いします。

 

こちらの質問にお答えするならば、最初の IEE の型を明示して宣言します。

 

型を明示して宣言する

Dim IEE As New InternetExplorer.Application

 

 

そのために 「InternetExplorer.Application」 を含む参照を追加する必要があります。

Answer 2

じゃんぬねっとさん、ありがとうございます。

 

じゃんぬねっと さんからの引用

ネット移行者 さんからの引用 ところが IEE.Navigate(New System.Uri(http://jp.msn.com/))のところでＨＲＥＳＵＬＴ・・・ＴＹＰＥＭＩＳＭＡＴＣＨエラーが出ます。 URL を文字列で表現すれば解決するような気がしますが、

 

これは質問作成時のIEE.Navigate(New System.Uri("http://jp.msn.com/"))の間違いでした

でも解決してませんでした。たぶん参照設定をしていないのが原因かも・・・。

 

じゃんぬねっと さんからの引用

事前バインディングしてくださいのような・・・。 上記のようなコードを事前バインディングするにはどうしたらよいのでしょうか？お願いします。   こちらの質問にお答えするならば、最初の IEE の型を明示して宣言します。   型を明示して宣言する Dim IEE As New InternetExplorer.Application     そのために 「InternetExplorer.Application」 を含む参照を追加する必要があります。

 

この「InternetExplorer.Application」 を含む参照はどこにあるのでしょうか？

 

Answer 3

ＣＯＭコンポーネントを探して、有り場所がわかりました。

Ｍｉｃｒｏｓｏｆｔ Internet Controls コンポーネントでした。

 

    Dim IEE As New SHDocVw.InternetExplorer

で解決しました。

 

じゃんぬねっとさん、ありがとうございました。