将单个跨度值导入excel
大约10年没有接触过VBA,并且刚刚开始使用它来提高工作效率和准确性。我只想从html5中导入/复制单个值 这是HTML5(我希望这是您需要的唯一信息),我希望导入“FRANK”将单个跨度值导入excel,excel,html,vba,Excel,Html,Vba,大约10年没有接触过VBA,并且刚刚开始使用它来提高工作效率和准确性。我只想从html5中导入/复制单个值 这是HTML5(我希望这是您需要的唯一信息),我希望导入“FRANK” FRANK 我已经能够启动IE并登录到该页面,并进入到包含我想要的信息的页面,但我不确定从那里去哪里,我尝试了下面的方法,希望它会很容易,但这似乎不是事实。正如你可能看到的,大规模的amature ieApp.Navigate "https://example.info.com/Details/" & Rang
FRANK
我已经能够启动IE并登录到该页面,并进入到包含我想要的信息的页面,但我不确定从那里去哪里,我尝试了下面的方法,希望它会很容易,但这似乎不是事实。正如你可能看到的,大规模的amature
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")
任何帮助都将不胜感激。我希望从同一页面上的其他跨距中收集一些其他值
谢谢
Fletch您需要做的是获取
ieApp.document.getElementById(“GivenName”)的innerHTML值
下面的代码将用于从https://example.info.com/Details/
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
您好,我想您应该看看这个主题,它应该适合您。appIE.Document:.getElementsById(“GivenName”)< /代码>这不编译,是吗?<代码> AppI不是您使用的对象的名称<代码> IEAP。