Board logo

標題: [發問] 使用excel上網捉取資料,該網站之資料需經計算幾分鐘,如何取得? [打印本頁]
作者: chihminyang88    時間: 2013-3-10 11:44     標題: 使用excel上網捉取資料,該網站之資料需經計算幾分鐘,如何取得?

使用excel上網捉取資料,但該網站之資料需經計算幾分鐘,因此每次捉取時,
只捉取到表頭,沒捉到經計算後之資料,是否有方法可以取得?
作者: 1314    時間: 2013-3-10 13:53

我也抓取過，每分鐘抓一次，
有時候他自動會停止抓取，
還不知道原因，努力爬文作功課中。
作者: chihminyang88    時間: 2013-3-10 16:06

[attach]14327[/attach]回復 1# chihminyang88

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

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

還缺說明操作  :附檔 或 程式碼
作者: chihminyang88    時間: 2013-3-10 18:29

回復 4# GBKEE

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

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

回復 6# chihminyang88
計算後之資料.請問你是如何用VBA的程序(程式碼)來取得 ,你要秀上來看看,旁人才知如何幫忙.
作者: chihminyang88    時間: 2013-3-10 20:57

回復 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    時間: 2013-3-11 08:57

回復 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    時間: 2013-3-11 10:56

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

展開主力成本表                                                                        
                                                                       
                                                                       
∼                                                                       
                                                                       
共有22天交易日                                                                       
最高價:7.08     最低價:6.6     均價:6.81 最高量:1719     最低量:128     均量:503                                                                       
券商        買張        買進        賣張        賣出        買賣超        買進        賣出        沖銷       
                比重                比重                均價        均價
作者: GBKEE    時間: 2013-3-11 12:25

回復 10# chihminyang88
該網站需申請為會員(免費)    但會搜集個人資訊 (不想加入)
執行你的檔案如圖


[attach]14331[/attach]
作者: chihminyang88    時間: 2013-3-11 22:50

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)