タイトル : Re: Webページの取得 投稿日 : 2010/06/29(Tue) 20:50 投稿者 : 魔界の仮面弁士
> 上記の4と5を手動では無くてソフトで取得したいのですが、 3,4,5 ではなく、4,5だけなのですね? 3 までは出来ているのであれば、あとはこんな感じ。 ' #4 Private Sub Command4_Click() WebBrowser1.Navigate2 "javascript:sendRequest2('JA4DND')" End Sub ' #5 Private Sub Command5_Click() Dim tbl As Object, row As Object, cell As Object Set tbl = WebBrowser1.Document.getElementById("thegrid") For Each row In tbl.rows For Each cell In row.cells Debug.Print Tab(cell.cellIndex * 8); If cell.tagName = "TH" Then Debug.Print cell.innerText; Else Debug.Print cell.currentStyle.backgroundColor; End If Next Debug.Print Next End Sub === 出力結果の例 === 6m 10m 12m 15m 17m 20m 30m 40m 80m 160m PH red red red green red green #eee red red red CW #eee red green green green green green green green green RTTY #eee #eee #eee #eee #eee green #eee #eee #eee #eee |