這裡也來分享個 excel vba也能做到類似的事(雖然現在已經不能爬了)
https://i.imgur.com/1J5W1OK.jpg
Sub 巨集1()
'
'
Range("A:A").Clear
Dim webURL As String
For x = 1 To 100
webURL =
"URL;https://略)com/GTS/specialEnter?msisdn=09X&shopType=A&captchaCode="
With ActiveSheet.QueryTables.Add(Connection:=webURL, Destination:=Range("A" &
x))
.RefreshStyle = xlOverwriteCells
.WebTables = "1"
.Refresh BackgroundQuery:=False
End With
Next x
'
End Sub
成果↓
https://i.imgur.com/sYzf4ay.jpg