Private Sub CommandButton1_Click()
Range("a3:g8000").ClearContents
Dim i, j, Arr
Dim s() As String
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", "http://data.17500.cn/3d_asc.txt", False
.Send
s = Split(.responseText, Chr(10))
End With
List = Array(0, 2, 3, 4, 5, 6, 7)
ReDim Arr(1 To UBound(s), 1 To 8)
For i = UBound(s) - 31 To UBound(s) - 1
For j = 1 To 7
Arr(i - UBound(s) + 31 + 1, j) = Split(s(i), " ")(List(j - 1))
Next j
Next i
With Cells(3, 1).Resize(UBound(s), 7)
' .ClearContents
.Value = Arr
End With
Range("A" & (Application.Count(Range("a1:a8000")) - 12)).Select
Range("A2").Select
Call del_name
End Sub