Excel VBA - 在網站的html中搜索字符並返回標題

Question

我正在嘗試從一個可能使數據結構有點不規則的網站上抓取數據

感興趣的HTML是

<a href='https://website.com/id=2021'>SampleText 
<img src='https://website.com/img/sample.jpg'   
class='tinyflag'></a>
<br />SampleName 
</td>
<td style='text-align:center;'>
    01/01/2015 <span style='color: #FFFF00;' 
     title='Active in last 24 hours'>&#9670;</span>

我想要做的是搜索字符（字符串？）“＆＃9670”，它在網頁上顯示為菱形並返回它的標題。 在這個例子中，它將是“過去24小時內活躍”的文字

我在excel中這樣做，可以導航到正確的頁面，但我無法弄清楚如何引用標題或＆＃9670返回所需的文本

Answer 1

如果您在A1單元格中有樣本數據，則可以使用以下代碼替換不需要的部分：

Range("A1").Replace "*title=", "", xlPart
Range("A1").Replace ">&#9670*", "", xlPart

如果要提取標題並保持原始數據不變：

Dim iStart As Integer, iEnd As Integer
Dim title As String

iStart = InStr(1, Range("a1").Value2, "title=") + 6 '6-length of the pattern
iEnd = InStr(1, Range("a1").Value2, ">&#9670")

title = Mid(Range("a1").Value2, iStart, iEnd - iStart) 

只有一個樣本行，因此很難判斷它是否適用於所有情況。