将各个跨度值导入到excel中

在10年左右没有碰过VBA,只是开始利用它来提高工作效率和准确性。 我想要做的就是从html5跨度导入/复制单个值。

这是HTML5(我希望这是唯一的信息,你需要)而且我希望导入“弗兰克

<span class="defvalue" id="GivenName">FRANK</span>

我已经能够启动IE浏览器并login到页面,并获得我想要的信息的页面,但我不知道从那里去哪里,我尝试了一些沿着下面的行,希望这将是那么容易,但是这似乎并非如此。 正如你所看到的那样,大规模的成熟。

 ieApp.Navigate "https://example.info.com/Details/" & Range("C6") Do While ieApp.Busy: DoEvents: Loop Do Until ieApp.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop Range("B1").Value = "Collecting Data..." Range("C10").Value = appIE.Document: .getElementsById ("GivenName") 

任何帮助将非常感激。 我希望从同一页面上的其他跨度收集一些选定的其他值。

谢谢,

陈伟伟

你必须做的是获得ieApp.document.getElementById("GivenName")的innerHTML值

下面的代码将完成工作,从https://example.info.com/Details/获取GivenName id块中的值

 Dim ieApp As Object Set ieApp = CreateObject("internetexplorer.application") With ieApp .Navigate "https://example.info.com/Details/" .Visible = False End With Do While ieApp.Busy DoEvents Loop Set allRowOfData = ieApp.document.getElementById("GivenName") Dim myValue As String myValue = allRowOfData.innerHTML MsgBox myValue Set ieApp = Nothing