0
我想使用excel vba從網頁中的標題類型中提取屬性值。我想從webpage刮數據結構如下:Excel:從HTML標題查詢屬性
<div class="index-detail">
<h5><a href="/indices/equity/dow-jones-sustainability-chile-index-clp" title="DJSI Chile" contentIdentifier="2e9cb165-0cbf-4070-a5ef-dc20bf6219ba" contentType="web-page" contentTitle="Dow Jones Sustainability™ Chile Index (CLP)">DJSI Chile</a></h5>
<span class="return-value">917.08 </span>
<span class="daily-change down ">-0.1% ▼ </span>
</div>
使用getElementsByClassName
和getElementsByTagName
我已經提取的標題<h5>
,但是當我打印的標題我的innerText
得到DJSI Chile
,但我想獲得屬性contentTitle
的文本Dow Jones Sustainability™ Chile Index (CLP)
。
我該怎麼做?
UPDATE
的代碼我使用如下:
Sub myConSP()
' Declare variables
Dim oHtmlSP As HTMLDocument
Dim tSPIndex As HTMLDivElement
Dim tSPIdx As HTMLDivElement
' Load page inside HTMLDocument
Set oHtmlSP = New HTMLDocument
With CreateObject("WINHTTP.WinHTTPRequest.5.1")
.Open "GET", "http://www.espanol.spindices.com", False
.send
oHtmlSP.body.innerHTML = .responseText
End With
' Get indices
Set tSPIndex = oHtmlSP.getElementById("all-indices-slider")
Set objTitleTag = tSPIndex.getElementsByClassName("index-detail")(0).getElementsByTagName("h5")(0)
MsgBox objTitleTag.getAttribute("contentTitle").innerText
End Sub
'objTitleTag.getAttribute(「contentTitle」)' –
如何定義objTitleTag? – capm
這就是你所謂的'innerText'。總是最好展示您的實際代碼:更容易提出有關添加內容的建議。 –