2

私は現在、オンラインで入手可能ないくつかの参考文献の助けを借りて、公開 Web サイトからテーブル データをクロールするために、VBA を使用して Excel でクローラーを構築しています。

ただし、クロールするフォントで使用されているフォントの色を認識する必要がある追加の手順が必要です。

例: 単語の一部が赤色で残りが黒色の場合、それらを識別できます。フォントの色を検出するにはどうすればよいですか?

以下は私のコードの一部です。

For Each tbl In doc.getElementsByTagName("TABLE")
            tabno = tabno + 1
            If tabno = 5 Then
            nextrow = nextrow + 1
            Set rng = ws.Range("B" & nextrow)
            rng.Offset(, -1) = "Table " & tabno
            For Each rw In tbl.Rows
                If count = 1 Then
                For Each cl In rw.Cells
                    rng.Value = cl.outerText
                    Set rng = rng.Offset(, 1)
                    i = i + 1
                Next cl
                nextrow = nextrow + 1
                Set rng = rng.Offset(1, -i)
                i = 0
                End If
                count = count + 1
            Next rw
            End If
        Next tbl
4

2 に答える 2

0

関心をお寄せいただき、ありがとうございます。大変感謝しています。

HTMLページから「ソースコード」をクロールし、表の値を区別したいものに部分文字列化することで回避策を実行しました。

以下は、私が行った回避策です。

rng.Value = cl.outerText
temp = cl.outerHTML
If InStr(temp, "color=") <> 0 Then
rng.Value = rng.Value + " *this value has a different font color from the rest"
End If

よろしく。

于 2013-05-27T03:42:57.277 に答える