|
楼主 |
发表于 2017-2-23 16:50
|
显示全部楼层
老师,我的原表里面已经含有一个代码,而且有一个按钮
Option Explicit
Private Sub CommandButton1_Click()
Range("a3:ac65536") = Empty
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim s() As String
With CreateObject("Msxml2.XMLHTTP")
.Open "GET", "http://www.17500.cn/getData/dlt.TXT", False
.Send
s = Split(.responseText, Chr(10))
End With
[a3].Resize(UBound(s) + 1) = WorksheetFunction.Transpose(s)
[a:a].TextToColumns [a1], 1, 1, 1, 1, , , 1
[a2].Resize(1, 9) = Array("开奖期号", "开奖日期", "一", "二", "三", "四", "五", "后", "区")
Range("j3:aj65536") = Empty
Application.ScreenUpdating = True
Range("A2").Select
End Sub
Private Sub CommandButton2_Click()
Range("a3:ac65536").ClearContents
Range("A2").Select
End Sub
请问:老师的这个代码应该插入到哪里的?谢谢老师!
|
|