none
IE11でVBAが起動しない RRS feed

  • 質問

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

    IE7→IE11へのアップデートと同時に使えなくなりました。

    Win7(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'オブジェクト

    となっています。

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

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

    2016年1月8日 8:02

回答

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

    > IE11でVBAが起動しない

    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 をキーワードにググるといろいろヒットするのでやってみてください。

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

    2016年1月8日 8:35

すべての返信

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

    > IE11でVBAが起動しない

    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 をキーワードにググるといろいろヒットするのでやってみてください。

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

    2016年1月8日 8:35
  • コメントありがとうございました!

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

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

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

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

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

    2016年1月12日 5:24