3D历史数据下载

 

Sub Macro1()
Application.ScreenUpdating = False
Dim temp() As String, n As Long, i As Long
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "http://www.cpkc.net/3d/3dwz1-0.htm"
Do Until .Readystate = 4
DoEvents
Loop
temp = Split(.Document.body.innertext, vbCrLf)
End With
Application.SendKeys "%{f4}"
For i = 0 To UBound(temp)
If temp(i) Like "200*" Then n = n + 1: Cells(n, 1) = temp(i)
Next
[a:a].Parse "[xxxxxxxx] [xxxxxxxxxx] [x] [x] [x]", [a1]
[a:e].Columns.AutoFit
Application.ScreenUpdating = True
End Sub

<t>

20070269	2007-10-4	8	2	5
20070268	2007-10-3	4	9	3
20070267	2007-10-2	8	3	8
20070266	2007-10-1	5	4	7
20070265	2007-9-30	4	3	2
20070264	2007-9-29	6	9	6
20070263	2007-9-28	2	1	7
20070262	2007-9-27	0	6	2
20070261	2007-9-26	2	3	5
20070260	2007-9-25	2	6	8
20070259	2007-9-24	6	4	9
20070258	2007-9-23	1	7	3
20070257	2007-9-22	3	7	3
20070256	2007-9-21	9	5	2
20070255	2007-9-20	6	9	2
20070254	2007-9-19	9	8	1
20070253	2007-9-18	5	7	3
20070252	2007-9-17	8	8	2
20070251	2007-9-16	9	4	1
20070250	2007-9-15	7	0	6
20070249	2007-9-14	3	6	0
20070248	2007-9-13	1	1	9
20070247	2007-9-12	3	9	3
20070246	2007-9-11	8	8	4
20070245	2007-9-10	0	6	2
20070244	2007-9-9	0	9	5
20070243	2007-9-8	4	9	2
20070242	2007-9-7	1	1	7
20070241	2007-9-6	3	9	8
20070240	2007-9-5	6	7	5
20070239	2007-9-4	3	2	3
20070238	2007-9-3	1	9	3
20070237	2007-9-2	0	4	7
20070236	2007-9-1	5	5	2
20070235	2007-8-31	3	5	8
20070234	2007-8-30	3	0	2
20070233	2007-8-29	8	5	5
20070232	2007-8-28	7	3	9
20070231	2007-8-27	4	8	2
20070230	2007-8-26	0	2	1
20070229	2007-8-25	5	8	4
20070228	2007-8-24	1	4	1
20070227	2007-8-23	4	2	0
20070226	2007-8-22	5	8	5
20070225	2007-8-21	5	9	2