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

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
20070224	2007-8-20	8	3	0
20070223	2007-8-19	6	8	7
20070222	2007-8-18	8	0	1
20070221	2007-8-17	6	1	1
20070220	2007-8-16	2	6	3
20070219	2007-8-15	8	6	2
20070218	2007-8-14	5	9	0
20070217	2007-8-13	0	3	7
20070216	2007-8-12	4	9	2
20070215	2007-8-11	6	4	4
20070214	2007-8-10	5	1	3
20070213	2007-8-9	1	3	8
20070212	2007-8-8	3	1	9
20070211	2007-8-7	7	5	5
20070210	2007-8-6	4	7	6
20070209	2007-8-5	6	0	7
20070208	2007-8-4	7	4	6
20070207	2007-8-3	8	2	8
20070206	2007-8-2	5	1	1
20070205	2007-8-1	1	5	3
20070204	2007-7-31	0	3	3
20070203	2007-7-30	3	8	4
20070202	2007-7-29	2	7	4
20070201	2007-7-28	2	8	4
20070200	2007-7-27	8	1	8
20070199	2007-7-26	2	8	9
20070198	2007-7-25	9	4	2
20070197	2007-7-24	0	2	4
20070196	2007-7-23	0	3	0
20070195	2007-7-22	5	3	7
20070194	2007-7-21	1	5	4
20070193	2007-7-20	8	1	8
20070192	2007-7-19	0	1	4
20070191	2007-7-18	6	0	3
20070190	2007-7-17	4	8	8
20070189	2007-7-16	5	0	5
20070188	2007-7-15	7	7	4
20070187	2007-7-14	4	5	1
20070186	2007-7-13	2	0	8
20070185	2007-7-12	6	6	2
20070184	2007-7-11	9	9	8
20070183	2007-7-10	4	8	0
20070182	2007-7-9	5	1	8
20070181	2007-7-8	4	1	7
20070180	2007-7-7	7	0	1
20070179	2007-7-6	2	6	9
20070178	2007-7-5	9	8	9
20070177	2007-7-4	8	4	8
20070176	2007-7-3	8	1	1
20070175	2007-7-2	9	4	2
20070174	2007-7-1	2	1	2
20070173	2007-6-30	7	3	4
20070172	2007-6-29	5	0	3
20070171	2007-6-28	7	7	2
20070170	2007-6-27