|
はじめまして
ExcelのVBAで下記内容のマクロを作成していましたが
壁にぶち当たってしまったので質問させてください。
動きとしては、あるWebページに移動して検索を行う動作をしたい。
その前段階として、そのページには必ず手順を踏んで遷移しないと
該当のWebページには進めないページになっている。
ソースとしては
Private Sub コマンド1_Click()
Set IE = CreateObject("InternetExplorer.application")
IE.Visible = True
IE.Navigate2 "xxxx://www.vbalab.net/"
IE.Navigate2 "xxxx://www.vbalab.net/vbaqa/c-board.cgi?id=excel"
Do While IE.Busy = True
DoEvents
Loop
Do While IE.Document.ReadyState <> "complete"
DoEvents
Loop
IE.Document.Links(0).Click
IE.Quit
Set IE = Nothing
Dim win As Object
Set win = CreateObject("Shell.Application")
For Each w In win.Windows
Debug.Print TypeName(w), w.LocationURL
If Right$(w.LocationURL, 5) = "excel" Then
End If
Next
End Sub
です。
URLは変更しています。
IE.Navigate2で二回目に開いたページの"IE.Document.Links(0).Click"
を行うと新規でIEが起動するようになっています。
その新規で開いたIEを何とかVBA上で操作が行えるようにしたいのですが
どうやって、innerHTMLを取得していいのかわからず壁にぶち当たっています。
For Each w In win.Windows
Debug.Print TypeName(w), w.LocationURL
If Right$(w.LocationURL, 5) = "excel" Then
End If
で該当のページがあることは見つけることはできていると思っているのですが
Dim ws
Set ws = CreateObject("WScript.Shell")
ws.AppActivate ("タイトル")
を追加して、さらにアクティブ化できることも実験はしたんですが
肝心のVBA上の操作できないところで悩んでいます。
わかりにくい質問で申し訳ございませんが、ご指導のほどよろしくお願いします。
|
|