3台あるPCの1台で発生したのですが、
ShellWindowsコレクションからIEのURLアドレスなどを参照する
プログラム部分が430エラーを返すようになりました。
Dim w as new Shdocvwctl.shellwindows'1
For each o in w
debug.print o.locationurl
Next
みたいなプログラムです
1をレイトバインドに書き換えて
set w=creatobject("SHell.Application").windows()
にしてみたらエラーはきえたのですが
コレクションの中に起動中のIEが含まれていないようです。
microsoftの技術文書になかったのですが、
このエラー自体原因は何かわかりますか?
VB6(SP6) XP,SP2 IE6SP1
Dim w As Object, o As Object
Set w = CreateObject("SHell.Application").windows()
For Each o In w
List1.AddItem o.LocationURL
Next
Set o = Nothing
Set w = Nothing
ん?上記みたいな感じでとれませんか?
On Error Resume Next
とか、使ってませんか?
http://madia.world.coocan.jp/cgi-bin/VBBBS/wwwlng.cgi?print+200601/06010001.txt
元日早々マルチポスト。
ツイート | ![]() |