ＩＥ11でＶＢＡが起動しない

Question

EXCEL2010にて交通費を自動で計算するシステムを作り使用しておりましたが、

ＩＥ7→ＩＥ11へのアップデートと同時に使えなくなりました。

Ｗｉｎ7（32ビット）使用です。

Sub 交通費の検索()

Dim obj As Object, ie As Object


Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = False
ie.navigate ("http://transit.loco.yahoo.co.jp/")



busywait ie

For k = 2 To 9
 If Cells(k, 6).Value = "" Then Exit For
Set obj = ie.document.getElementByID("sFrom")　→ここでエラー474になります。
obj.Value = Cells(k, 4).Value


Set obj = ie.document.getElementByID("sTo")
obj.Value = Cells(k, 6).Value


Set obj = ie.document.getElementByID("tsAvr")
obj.Click


Set obj = ie.document.getElementByID("tic")
obj.Click


Set obj = ie.document.getElementByID("searchModuleSubmit")
obj.Click


busywait ie
 
Set obj = ie.document.getElementsByTagName("ul")
Set obj = search_class(obj, "routeList")


Set obj = obj.getElementsByTagName("li")
Set obj = obj.Item(0).getElementsByTagName("li")
Set obj = search_class(obj, "fare")


Cells(k, 7).Value = obj.InnerText
Next
   
    
    Range("G2:G9").Select
    Selection.Replace What:="円", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

ie.Quit

End Sub

エラーはその都度変わります。

現在は

実行時エラー　214767259（80004005）

'Document'メソッドは失敗しました。'IWeb Browser2'オブジェクト

となっています。

どのように変更すれば動作するか分かりません。

どなたかお知恵をお貸し頂けないでしょうか。

Answer 1

VBA は使ったこともない自分がレスするのもなんですが・・・

> IE11でＶＢＡが起動しない

VBA が動かないということではなくて IE11 ではデフォルトでは VBScript が動かないということではないのですか？

であれば、対症療法的ではありますが、対応手段はあるそうです。

IE11 における VBScript サポートについて
https://vbscript.g.hatena.ne.jp/cx20/20130801/1375380329

IE11 で VBScript を使う場合の注意事項 ( 古い社内アプリ移行時必見 )
http://logicalerror.seesaa.net/article/390811499.html

他にも IE11 VBScript をキーワードにググるといろいろヒットするのでやってみてください。

ハズレだったら失礼しました。

Answer 2

コメントありがとうございました！

他のサイトで使用するvbaは正常に起動しているのに、

yahoo路線を使うｖｂａだけが正常に起動しないため、原因が分からずにおりました。

サイトのソースを見たところ、まさにご案内頂いた内容の起動しないソースと同じ作りになっていました。

サイト自体はこちらでは変更が出来ないので、サイトが対応するまで待つしかないのかなと思っております。

原因が分かり本当に助かりました。ありがとうございました。