[發問] 使用excel上網捉取資料,該網站之資料需經計算幾分鐘,如何取得? excel, 如何

chihminyang88

使用excel上網捉取資料,但該網站之資料需經計算幾分鐘,因此每次捉取時,
只捉取到表頭,沒捉到經計算後之資料,是否有方法可以取得?

chihminyang88

下載 (167.7 KB)
附件

2013-3-10 16:02

回復 1# chihminyang88

網址如下 : http://stockdog.tw/stockdog/index.php?p=3&m=2&sid=3176&model=0&g=&date=&YM=201212
                 輸入代號及啟迄時間,該網站需申請為會員(免費)

chihminyang88

回復 4# GBKEE

網址如下 : http://stockdog.tw/stockdog/index.php?p=3&m=2&sid=3176&model=0&g=&date=&YM=201212
操作方法 : 該網站需申請為會員(免費)->進入網站後點主力成本->輸入代號及啟迄時間按下查詢後等一段時間即可得計算後之資料.

chihminyang88

回復 5# chihminyang88
網址如下 : http://stockdog.tw/stockdog/index.php?p=3&m=2&sid=3176&model=0&g=&date=&YM=201212
操作方法 : 該網站需申請為會員(免費)->進入網站後點籌碼分析(頁面上方)->主力成本(頁面左方)->輸入代號及啟迄時間按下查詢後等一段時間即可得計算後之資料.

chihminyang88

回復 7# GBKEE
抱歉!現在附上程式碼:

Private Sub Worksheet_Change(ByVal TARGET As Range)
       Dim stockno As String
       stockno =3176
      
        With ActiveSheet.QueryTables.Add(Connection:= _
             "URL;http://www.stockdog.tw/stockdog/index.php?p=3&m=2&sid=" & stockno & "&sdate=2013-01-01&edate=2013-01-31&Submit=%ACd%B8%DF" _
             , Destination:=Range("A5"))
             .Name = "持股分佈"
             .FieldNames = True
             .RowNumbers = False
             .FillAdjacentFormulas = False
             .PreserveFormatting = False
             .RefreshOnFileOpen = False
             .BackgroundQuery = True
             .RefreshStyle = xlOverwriteCells
             .SavePassword = False
             .SaveData = True
             .AdjustColumnWidth = False
             .RefreshPeriod = 0
             .WebSelectionType = xlSpecifiedTables
             .WebFormatting = xlWebFormattingNone
             .WebTables = "1,2,3,4,5,6,7,8,9,10"
             .WebPreFormattedTextToColumns = True
             .WebConsecutiveDelimitersAsOne = True
             .WebSingleBlockTextImport = False
             .WebDisableDateRecognition = False
             .WebDisableRedirections = False
             .Refresh BackgroundQuery:=False
         End With
End Sub

chihminyang88

回復 9# GBKEE
謝謝您的回答!!
經修改後依然只能截取到表頭(如下之資料),附上excel程式(NEW),煩請指導.
NOTE : 一直懷疑是否因該筆資料需經計算,因時間差而造成只能讀取到表頭?

展開主力成本表                                                                        
                                                                       
                                                                       
～                                                                       
                                                                       
共有22天交易日                                                                       
最高價:7.08     最低價:6.6     均價:6.81 最高量:1719     最低量:128     均量:503                                                                       
券商        買張        買進        賣張        賣出        買賣超        買進        賣出        沖銷       
                比重                比重                均價        均價

chihminyang88

回復 11# GBKEE
您有e-mail帳號嗎?或許可用本人之帳號及密碼,使用帳號及密碼進入該網站後使用 程式(new)得到之結果如附件(new1)