トップ回答者
IE11でVBAが起動しない

質問
-
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'オブジェクト
となっています。
どのように変更すれば動作するか分かりません。
どなたかお知恵をお貸し頂けないでしょうか。
回答
-
VBA は使ったこともない自分がレスするのもなんですが・・・
> IE11でVBAが起動しない
VBA が動かないということではなくて IE11 ではデフォルトでは VBScript が動かないということではないのですか?
であれば、対症療法的ではありますが、対応手段はあるそうです。
IE11 における VBScript サポートについて
https://vbscript.g.hatena.ne.jp/cx20/20130801/1375380329IE11 で VBScript を使う場合の注意事項 ( 古い社内アプリ移行時必見 )
http://logicalerror.seesaa.net/article/390811499.html他にも IE11 VBScript をキーワードにググるといろいろヒットするのでやってみてください。
ハズレだったら失礼しました。
- 回答としてマーク てんぷら5 2016年1月12日 5:25
すべての返信
-
VBA は使ったこともない自分がレスするのもなんですが・・・
> IE11でVBAが起動しない
VBA が動かないということではなくて IE11 ではデフォルトでは VBScript が動かないということではないのですか?
であれば、対症療法的ではありますが、対応手段はあるそうです。
IE11 における VBScript サポートについて
https://vbscript.g.hatena.ne.jp/cx20/20130801/1375380329IE11 で VBScript を使う場合の注意事項 ( 古い社内アプリ移行時必見 )
http://logicalerror.seesaa.net/article/390811499.html他にも IE11 VBScript をキーワードにググるといろいろヒットするのでやってみてください。
ハズレだったら失礼しました。
- 回答としてマーク てんぷら5 2016年1月12日 5:25