ＩＥ操作 ＶＢＡ

質問

リコーのスキャナーを使っているのですが
http://xx.xx.xxx.xxx/web/guest/ja/websys/webArch/mainFrame.cgi
を開いて、
javascript:wsMenu_jumpUrl('../../webdocbox/docListPage.cgi',10000)
をクリックしたいのですが、どのように行えばよろしいでしょうか？

objIE.Navigate "javascript:wsMenu_jumpUrl('../../webdocbox/docListPage.cgi',10000)"
をしてもダメなので、

Sub スキャナー()
Dim objIE As Object

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate "http://xx.xx.xxx.xxx/web/guest/ja/websys/webArch/mainFrame.cgi"
objIE.Visible = True

Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents
Loop

Debug.Print objIE.Document.Links.Length
objIE.Quit

Set objIE = Nothing
End Sub

で、リンクの数を数えて、ひとつずつクリックして確認してみようと思ったのですが
0が返ってきてしまいます。

VBAでjavascript:wsMenu_jumpUrl('../../webdocbox/docListPage.cgi',10000)
を押す方法を教えてください。

回答No.1

DOUGLAS_ · ベストアンサー

１）ＩＥで「http://xx.xx.xxx.xxx/web/guest/ja/websys/～～」の
　　ページを開いて、[表示(V)] - [ソース(C)] してください。

２）恐らく、
　　　　<frameset ～～>
　　　　　<frame name="header"～～>
　　　　　<frameset ～～>
　　　　　　<frame name="menu" ～～>
　　　　　　<frame name="work" ～～>
　　　　　</frameset>
　　　　</frameset>
　　みたいな html コード が得られるかと存じます。

３）つまり、お示しの URL は、フレーム構造になっていますので、
　　　> objIE.Navigate "javascript:～～"
　　とか
　　　> Debug.Print objIE.Document.Links.Length
　　　> で、リンクの数を数えて、
　　　> ひとつずつクリックして確認してみようと思っても、
　　　> 0が返ってきてしまいます。
　　みたいなことになるのだと存じます。

４）「Set objIE = CreateObject("InternetExplorer.Application")」で、
　　「objIE.Document.～～」というような内容を調べようとするとき
　　には、当該の WEBページ の ソース の構造を予め調べておくことが
　　有用かと存じます。

５）私の手元の環境で
　　「http://xx.xx.xxx.xxx/web/guest/ja/websys/～～」のページを
　　VBA で操作しようとする場合、上記のソースを例に取れば
　　objIE.Document.all.work.Navigate "javascript:～～"
　　で「javascript:～～」を押すことができました。

６）ちなみに、上記のソースの場合、"header" が メニューバー、
　　"menu" が左ペイン、"work" が右ペイン になりますので、右ペイン
　　にある「javascript:～～」を押す場合には、
　　objIE.Document.all.work.Navigate "javascript:～～"
　　ということになります。

お礼

回答ありがとうございました。