コンパイルエラー：型が一致しません。

質問

VBA(EXCEL2007)-Win7Proで下記コードを実行すると、

　コンパイルエラー：型が一致しません。

が、発生します。

Option Explicit
'呼ばれる側
Public Sub sub1(ie As InternetExplorer)

End Sub

'呼び出し側
Public Sub Test()
Dim ie As InternetExplorer
sub1 (ie)
End Sub

VAB初心者です。
netで紹介されていたソースをコピペしてみたのですが、コンパイルエラーとなってしまいました。問題点絞り込みのために、削ぎ落とした結果が、先のソースです。

下記が参考のソースの場所になります。
http://www.macrogirls.net/iesamplecode/vbaie_day4_4.html
画面遷移待受サブルーチン が問題のソースです。

回答No.3

real beatin（@realbeatin） · ベストアンサー

こんにちは。

> コンパイルエラー：型が一致しません。
容易に再現できるエラーですが、
コンパイルエラーの原因は、引数の渡し方、です。
オブジェクト型のまま「参照渡し」として
　　sub1 ie
または
　　 Call sub1(ie)
のようにするのが正しのですが、
　　 sub1 (ie)
などのように余分な括弧を付けてしまうと、
オブジェクト型では「値渡し」できませんので、
「型が一致しません。 」というエラーになります。
こういうのは、ベテランでも見落とすことのあるミスですが、
何か問題にあった時に、「不必要な括弧」が残っていないか、
「不必要」や「余分」を探すようにデバッグすると、
あっけない程簡単に解決できることが結構ありますね。

回答No.2

Hayashi_Trek

参照設定が不足しているからだと思う。

参照設定を活用してIEオブジェクトのメソッドやプロパティを調べる
http://www.macrogirls.net/iesamplecode/vbaie_day2_4.html
http://www.macrogirls.net/download.html#vbaie

回答No.1

trytobe

このように ie という名前の Object を明示的に作って、その Object である ie を引数で関数 sub1() に渡していますよ、と明示してもダメでしょうか。

'呼ばれる側
Public Sub sub1(ie As Object)

End Sub

'呼び出し側
Public Sub Test()
Dim ie As InternetExplorer
Set ie = CreateObject("InternetExplorer.Application")
sub1 (ie)
End Sub