| |
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):2000
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):98
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
Sub Button1_Click()
On Error GoTo my_re
Dim i As Integer
Dim n As Name
Dim MyRange As Range
Set MyRange = Range("a1")
For i = 1 To 30
my_re:
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://lotto.tolinux.net/index.html?mode=input&num_01=1&num_02=2&num_03=3&num_04=4&num_05=5&num_06=6&num_07=7&num_08=8&num_09=9&num_10=10&num_11=11&num_12=12&num_13=13&num_14=14&num_15=15&num_16=16&num_17=17&num_18=18&num_19=19&num_20=20&num_21=21&num_22=22&num_23=23&num_24=24&num_25=25&num_26=26&num_27=27&num_28=28&num_29=29&num_30=30&num_31=31&num_32=32&num_33=33&num_34=34&num_35=35&num_36=36&num_37=37&num_38=38&num_39=39&num_40=40&num_41=41&num_42=42&num_43=43&num_44=44&num_45=45&oddCount=23&evenCount=22&g1Count=9&g10Count=10&g20Count=10&g30Count=10&g40Count=6&o_six_sum1=&o_six_sum2=&o_lastnum=&o_diagonal1=&o_width=&o_diagonal2=&o_height=&o_near=&o_power_num_1=&o_power_num_2=&o_power_num_3=&o_power_num_4=&o_ma_num_1=&o_ma_num_2=&o_ma_num_3=&o_ma_num_4=&o_ma_num_5=&o_ma_num_6=&o_ma_num_7=&o_ma_num_8=&o_ma_num_9=&o_ma_num_10=&o_ma_num_11=&o_pre_num_1=&o_pre_num_2=&o_pre_num_3=&o_pre_num_4=&o_pre_num_5=&o_pre_num_6=&o_pre_num_7=&o_pre_num_8=&o_start_num=&ln_total=8145060&&page=" & i _
, Destination:=MyRange)
.AdjustColumnWidth = False
.WebFormatting = xlWebFormattingNone
.Refresh BackgroundQuery:=False
Set MyRange = Range("a65536").End(xlUp).Offset(1, 0)
End With
Next i
Set MyRange = Nothing
For Each n In ThisWorkbook.Names
n.Delete
Next n
End Sub
실행해보시면 아시겠지만 잘 안될겁니다. 아마도....
웹쿼리시 무작위로 발생되는 런타임오류를 회피하기 위한 좋은 방법을 알고자 합니다. |
|
엑셀에 대한 질문과
답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
