外部アプリケーションでcreateobjectを使用して、IEとのデータ連携を行う
ツールを組んでいました。
こんな感じで。
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
Set btns = objIE.Document.All.tags("input")
For i = 0 To btns.length - 1
If btns(i).Value = strButton Then
btns(i).Click 'ボタンクリック
ClickButton = True
Exit For
End If
Next
title = objIE.Document.title
Windows7のときは問題なく動いていたのに、windows8.1にしたら
動かなくなった。
正確いうと、ボタンクリックを実行した後に、objIEが空になってしまう。
objIEが空になるといっても、nothingになるわけではなく
何も値が取れなくなってしまう。
ネットでしたべたら、ボタンクリックの前後でVisibleの値を変化させると回避できるって
あったからやってみた。
こんな感じ。
objIE.Visible = false
ClickButton = True
objIE.Visible = True
でもやっぱり駄目だった。
1時間ぐらい試行錯誤したけどダメだから、仕方なくVB6で作ることにした。
PR
COMMENT