将各个跨度值导入到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