VBA scaping一个类的属性

Question

我正在尝试抓取一个网站，我希望获得data-item-id的值1290526：

我试过这个，但它不起作用：

...
While ie.readyState <> READYSTATE_COMPLETE
    DoEvents
Wend
On Error Resume Next

Set csa = ie.document.getElementsByClassName("listop").getAttribute("data-item-id")
...

有人能说出问题是什么吗？