ShellWindowsコレクションにIEが含まれないのですがなおすには?


ヤマさん@文系  2006-01-02 03:04:11  No: 129339

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


X_File  2006-01-02 08:47:43  No: 129340

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
とか、使ってませんか?


まるち  2006-01-02 12:20:26  No: 129341

http://madia.world.coocan.jp/cgi-bin/VBBBS/wwwlng.cgi?print+200601/06010001.txt

元日早々マルチポスト。


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加