[[20180706095911]]　『VBAでSub または Function が定義されていません』（うい）　ページの最後に飛ぶ

『VBAでSub または Function が定義されていません』（うい）

以下のVBAを記述しましたが、
「Sub または Function が定義されていません」
とエラーが表示されます。
参照設定で
Microsoft Internet Controls
Microsoft HTML Object Library
は追加してあります。

原因が分からず困惑しております。
アドバイスください。よろしくお願いします。

Sub Auto()

  Dim objIE  As InternetExplorer
  Dim Name1Kanji As HTMLInputTextElement
  Dim Name2Kanji As HTMLInputTextElement
  Dim Name1Kana As HTMLInputTextElement
  Dim Name2Kana As HTMLInputTextElement

  'InternetExplorerでフォームページを起動
  Call ieView(objIE, "http://～～～～")

  Set Name1Kanji = objIE.document.getElementsByName("Name1Kanji")(0)
  Set Name2Kanji = objIE.document.getElementsByName("Name2Kanji")(0)
  Set Name1Kana = objIE.document.getElementsByName("Name1Kana")(0)
  Set Name2Kana = objIE.document.getElementsByName("Name2Kana")(0)

  'テキストボックスに値を入力
  Name1Kanji.Value = Range("H3").Value
  Name2Kanji.Value = Range("J3").Value
  Name1Kana.Value = Range("H4").Value
  Name2Kana.Value = Range("J4").Value

End Sub

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 エラーに関して質問するときにはどこでエラーが発生しているかも書こう。
 ieViewプロシージャはちゃんとあるのだろうか？
（ねむねむ） 2018/07/06(金) 10:12

どの行でエラー停止しますか？ステップ実行も試してください。

そして、ieView というサブプロシジャを呼び出していますが、そのコードは何処にありますか？ ieView の内容次第ですが、以下の変数宣言を変えるとどうなりますか？

 Dim objIE  As InternetExplorer
  ↓
 Dim objIE  As New InternetExplorerMedium
（???） 2018/07/06(金) 10:20

質問が正確でなく申し訳ありません。

エラーを示す黄色い矢印はSub Auto()を指し、Call ieViewがブルーに強調されていました。

ですが、ねむねむさんのおっしゃる通りでした。
私の勘違いで、ieViewはすでに定義されている標準のものだと思っておりました。
プロシージャをきちんと定義すれば実行可能になりました。

初歩的なところでお手を煩わせてしまい、申し訳ないです。

大変助かりました。
ありがとうございました。
（うい） 2018/07/06(金) 10:29

解決したようですね。最近、似たコーディングを見ますが、コードの出典元は以下のようです。
https://www.vba-ie.net/

ここに ieView とか ieCheck のコードがありました。掲示板も設置してあるので、そちらなら誤解なく回答が得られたと思いますよ。
（???） 2018/07/06(金) 10:43

コメント返信：

[ 一覧(最新更新順) ]

[[20180706095911]] 『VBAでSub または Function が定義されていません』（うい） ページの最後に飛ぶ

[[20180706095911]]　『VBAでSub または Function が定義されていません』（うい）　ページの最後に飛ぶ