作者randomness (随机)
看板Office
标题[算表] 用VBA上网页抓取成交量
时间Sun Apr 8 16:36:54 2018
软体: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
请问一下,是哪里需要修改呢?
谢谢大家的解答!
<(_._)>
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 114.44.244.114
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1523176621.A.810.html
1F:→ soyoso: 是connection,原文少了个c 04/08 17:38
2F:→ randomness: 修正了! 谢谢s大~~ 04/08 19:53