软件:Excel
版本:2003
我想用VBA上这个网页http://traderoom.cnyes.com/tse/quote2FB.aspx?code=3550
抓取其中的成交量，抓下来放到Sheet2的A5这个储存格
但写完跑一遍出现错误，如图:https://imgur.com/a/9yzdf
程式码如下:
Sub 股价成交量抓取()
Application.ScreenUpdating = False
Sheet2.Select
With ActiveSheet.QueryTables.Add(Connetion:= _
"URL;http://traderoom.cnyes.com/tse/quote2FB.aspx?code=3550",
Destination:= _
Range("$A$5"))
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "4"
.Refresh BackgroundQuery:=False
End With
End Sub
请问一下，是哪里需要修改呢?
谢谢大家的解答！
<(_._)>