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

chihminyang88

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

1314

我也抓取過，每分鐘抓一次，
有時候他自動會停止抓取，
還不知道原因，努力爬文作功課中。

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
                 輸入代號及啟迄時間,該網站需申請為會員(免費)

GBKEE

回復 3# chihminyang88

Hsieh(2013-3-10 12:01): 附上網址並說明操作以便測試

還缺說明操作  :附檔 或 程式碼

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
操作方法 : 該網站需申請為會員(免費)->進入網站後點籌碼分析(頁面上方)->主力成本(頁面左方)->輸入代號及啟迄時間按下查詢後等一段時間即可得計算後之資料.

GBKEE

回復 6# chihminyang88
計算後之資料.請問你是如何用VBA的程序(程式碼)來取得 ,你要秀上來看看,旁人才知如何幫忙.

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

GBKEE

回復 8# chihminyang88
你為何用工作表上儲存格有修改的預設事件  須修改一下

1. Private Sub Worksheet_Change(ByVal TARGET As Range)
   
2.         Dim stockno As String
   
3.         Application.EnableEvents = False   
   
4.        'EnableEvents 屬性  如果指定物件能觸發事件，則本屬性為 True。讀/寫 Boolean。
   
5.         stockno = 3176
   
6.         With ActiveSheet.QueryTables.Add(Connection:= _
   
7.              "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" _
   
8.              , Destination:=Range("A5"))
   
9.              .Name = "持股分佈"
   
10.              .FieldNames = True
    
11.              .RowNumbers = False
    
12.              .FillAdjacentFormulas = False
    
13.              .PreserveFormatting = False
    
14.              .RefreshOnFileOpen = False
    
15.              .BackgroundQuery = True
    
16.              .RefreshStyle = xlOverwriteCells
    
17.              .SavePassword = False
    
18.              .SaveData = True
    
19.              .AdjustColumnWidth = False
    
20.              .RefreshPeriod = 0
    
21.              .WebSelectionType = xlSpecifiedTables
    
22.              .WebFormatting = xlWebFormattingNone
    
23.              .WebTables = "1,2,3,4,5,6,7,8,9,10"
    
24.              .WebPreFormattedTextToColumns = True
    
25.              .WebConsecutiveDelimitersAsOne = True
    
26.              .WebSingleBlockTextImport = False
    
27.              .WebDisableDateRecognition = False
    
28.              .WebDisableRedirections = False
    
29.              .Refresh BackgroundQuery:=False
    
30.          End With
    
31.          Application.EnableEvents = True
    
32. End Sub

複製代碼

匯入的外部資料 如下有何不對?
～                                       
券商        買張        賣張        合計        持股成本       
9659(富邦高雄)        545        446        99        176.53       
9653(富邦延平)        513        185        328        173.68       
5260(大慶)        436        308        128        173.07       
126U(宏遠館前)        293        95        198        181.41       
9183(群益金鼎高雄)        264        220        44        175.28       
註冊為會員可查詢所有券商進出資料、排行、持有均價                                       
                                       
                                       
請先 登入 ，查詢更多資料                                       
                                       
註冊成為會員

chihminyang88

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

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