Excel vba 网站

【问题标题】：Excel vba websiteExcel vba 网站
【发布时间】：2018-07-02 15:31:42
【问题描述】：

<td class="sell"> 
<button class="btnSell btnSell-highlight" title="Sell @ 1.3" id="btnSell-group_a.5c653e67-61dc-4e0c-97dc-ca44476dfb76.manual.adecf17a-35f2-4ac4-b337-bbfbb5e42ec4">1.3</button>
</td>

您好，我是使用 Excel VBA 的新手。我的目标是获得 1.3 的十进制值。我尝试通过以下代码提取此值：

Sub ExtractLastValue()

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate ("Enter webiste name")

Do
DoEvents
Loop Until objIE.readystate = 4

MsgBox objIE.document.getElementsByclassname("sell")(0).getElementsbyid("btnSell-group_a.5c653e67-61dc-4e0c-97dc-ca44476dfb76.manual.adecf17a-35f2-4ac4-b337-bbfbb5e42ec4").innertext

End Sub

但是，一旦我运行代码，就会出错：

错误时间 438：对象不支持此属性或方法。

【问题讨论】：

标签： excel vba

【解决方案1】：

据我所知，.getElementsByclassname("sell")(0) 完全是多余的。为什么不直接使用GetElementById 检索要从中提取文本的元素？另请注意它是 GetElementById，不是 GetElementsById，这解释了为什么您的代码没有被 IDE 自动正确大小写。

编辑#1

这应该可行：

MsgBox objIE.document.getElementbyid("btnSell-group_a.5c653e67-61dc-4e0c-97dc-ca44476dfb76.manual.adecf17a-35f2-4ac4-b337-bbfbb5e42ec4").innertext

【讨论】：

嗨，非常感谢我通过更改以下语句MsgBox objIE.document.getElementbyid("btnSell-group_a.fbf6e724-e133-4b6d- a86b-121d1c8fdf63.manual.76e7c687-10c7-485c-8672-5c7c9fdd0c57").innertext 设法摆脱了错误但是，弹出一个没有整数的弹出窗口。 ——
这表明您没有检索到正确的元素。检查拼写错误。 id 以 2ec4 结尾。您在上一条评论中的代码没有。