Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


31192 / 76732 ←次へ | 前へ→

【50795】起動済みのIEのソースの取得について
質問  みつを  - 07/8/16(木) 11:29 -

引用なし
パスワード
   はじめまして
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上の操作できないところで悩んでいます。

わかりにくい質問で申し訳ございませんが、ご指導のほどよろしくお願いします。
0 hits

【50795】起動済みのIEのソースの取得について みつを 07/8/16(木) 11:29 質問
【50797】Re:起動済みのIEのソースの取得について かみちゃん 07/8/16(木) 12:29 発言
【50808】Re:起動済みのIEのソースの取得について みつを 07/8/16(木) 18:40 お礼
【50812】Re:起動済みのIEのソースの取得について ichinose 07/8/16(木) 23:31 発言
【50823】Re:起動済みのIEのソースの取得について みつを 07/8/17(金) 10:04 お礼
【50867】Re:起動済みのIEのソースの取得について みつを 07/8/20(月) 21:58 お礼

31192 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free