Question

excel vba如何读取网页中的某个数值。

目标网页：http://quote.eastmoney.com/globalfuture/CL00Y.html需要读取的数值如下图所示：

Answer 1

用数据字典，dictionary value，item 。 value不允许重复。
Sub test()
Dim name()
Set dic = CreateObject("Scripting.Dictionary")
a = [a65536].End(xlUp).Row
For Each Cell In Worksheets("Sheet1").Range("A1:A" & a)
If Not dic.exists(Cell.Value) Then
dic.Add Cell.Value, Cell.Value
On Error Resume Next
End If
Next
name = dic.items
For i = 1 To dic.Count
Worksheets("Sheet1").Cells(i, 2) = name(i - 1)
Next
End Sub

追问

对于我这个小白来说，你这个有点高深，没有直接达到我的目的，所以，我根本看不懂，也用不上。

Answer 2

用解析dom的方式，找到这个class，然后选择到节点后用innertext就可以了。

追问

谢谢，0基础小白，你说的这些等我学会可能没那么容易了

追答

那你交学费吧