楼主围蓝表突然不能更新最新的期号,按照论坛发的网址复制进去还是不能更新到最新,网址怎么更改,附件上传不了,非常感谢!
Private Sub CommandButton1_Click()
Dim i, j, Arr
Dim s() As String
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", "http://data.17500.cn/dlt_asc.txt", False
.Send
s = Split(.responseText, Chr(10))