Sub gettable() Dim s() As String, i As Long, temp As String With CreateObject("Msxml2.XMLHTTP") .Open "GET", "http://data.cnfund.cn/jzdata/qbjj.htm", False .Send s = Split(Split(.responseText, "<table")(7), "<td>") End With For i = 2 To UBound(s) Step 10 temp = temp & "," & Split(Split(s(i), "blank"">")(1), "<")(0) Next Debug.Print Mid(temp, 2) End Sub
Split(Split(.responseText, " <table")(7), " <td >") For i = 2 To UBound(s) Step 10 temp = temp & "," & Split(Split(s(i), "blank"" >")(1), " <")(0) 有点看不懂,请讲解下 谢谢
这个方法解决此问题非常好!、、 With CreateObject("Msxml2.XMLHTTP") .Open "GET", "http://data.cnfund.cn/jzdata/qbjj.htm", False .Send 这几句原理还在研究当中。 但我有个问题就是,网站表格数据是动态的,如果我想实时更新读取下来的数据,加个Timer控件实时监控,或者加个命令按钮命名“更新”来通过点击更新数据,可现在问题是怎么更新不了呢? 就比如下:(点击命令按钮,数据没有发生更新) Private Sub Command1_Click() Dim s() As String, i As Long, temp As String With CreateObject("Msxml2.XMLHTTP") .Open "GET", "http://data.cnfund.cn/jzdata/qbjj.htm", False .Send s = Split(Split(.responseText, "<table")(7), "<td>") End With For i = 2 To UBound(s) Step 10 temp = temp & "," & Split(Split(s(i), "blank"">")(1), "<")(0) Next Debug.Print Mid(temp, 2) End Sub
Dim s() As String, i As Long, temp As String
With CreateObject("Msxml2.XMLHTTP")
.Open "GET", "http://data.cnfund.cn/jzdata/qbjj.htm", False
.Send
s = Split(Split(.responseText, "<table")(7), "<td>")
End With
For i = 2 To UBound(s) Step 10
temp = temp & "," & Split(Split(s(i), "blank"">")(1), "<")(0)
Next
Debug.Print Mid(temp, 2)
End Sub
temp = temp & "," & Split(Split(s(i), "blank"" >")(1), " <")(0) 有点看不懂,请讲解下
谢谢
With CreateObject("Msxml2.XMLHTTP")
.Open "GET", "http://data.cnfund.cn/jzdata/qbjj.htm", False
.Send 这几句原理还在研究当中。
但我有个问题就是,网站表格数据是动态的,如果我想实时更新读取下来的数据,加个Timer控件实时监控,或者加个命令按钮命名“更新”来通过点击更新数据,可现在问题是怎么更新不了呢?
就比如下:(点击命令按钮,数据没有发生更新)
Private Sub Command1_Click()
Dim s() As String, i As Long, temp As String
With CreateObject("Msxml2.XMLHTTP")
.Open "GET", "http://data.cnfund.cn/jzdata/qbjj.htm", False
.Send
s = Split(Split(.responseText, "<table")(7), "<td>")
End With
For i = 2 To UBound(s) Step 10
temp = temp & "," & Split(Split(s(i), "blank"">")(1), "<")(0)
Next
Debug.Print Mid(temp, 2)
End Sub