2014年7月28日月曜日

IE + VBAで仕事を効率化 Webシステムでページ移動、そのページを捕まえる。How to Move Web pages and Catch them

IEの右クリックで、VBAで操りたいWebシステムのページソースを見てくれ。
JavaScriptでページ移動しているなら、以下のコードをトライ。

On how to navigate pages. Check your web page's source code(html).
If your web system made by JavaScript, try this code. 
  • objIE.document.Scriript.setTimeout "JapaScript: your-systems-javascript",200

ページ移動で新しいウィンドウが開かれる場合、そのウィンドウのIE(例えば your-web-page-title-1というタイトルを持つページ)を捕まえないと
制御できない。そのIEを捕まえるコードが、以下。

The following codes enable you to get the control of the new IE window while a new window like "your-web-page-title-1" is open by JavaScript.  
Dim objIE As Object
Dim objShell As Object
Dim objWindow As Object
Set objIE = Nothing
Set objShell = CreateObject("Shell.Application")
For Each objWindow in objShell.Windows
  If TypeName(objWindow.document) = "HTMLDocument" Then
    Set objIE = objWindow
    Debug.Print objIE.Doucument.Title
    If objIE.document.Title = "your-web-page-title-1"  Then Exit For
  End If
Next 
    ページへ移動した後に、表示ボタンをクリックしたい場合、こんな感じ。

    If you want to click for details after you jumped the page, try this. 

    • objIE.socument.Frames("your-frame-name").document.forms("your-form-name").elements("your-bottun-name").Click





    0 件のコメント:

    コメントを投稿