12
返回列表 上一主題 發帖

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

chihminyang88

帖子
33 
主題
10 
精華
0 
積分
59 
點名
0  
作業系統
win10 
軟體版本
office 2013 
閱讀權限
20 
性別
男 
註冊時間
2013-3-10 
最後登錄
2024-2-7 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-3-10 11:44 | 只看該作者

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

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

1314

帖子
2 
主題
0 
精華
0 
積分
50 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2013-2-8 
最後登錄
2013-6-22 
2#
發表於 2013-3-10 13:53 | 只看該作者
我也抓取過，每分鐘抓一次，
有時候他自動會停止抓取，
還不知道原因，努力爬文作功課中。
人生就像雪球。重要的是要找到濕的雪，和一道長長的山坡。（法拍屋富爸爸系統象限執行長）

TOP

chihminyang88

帖子
33 
主題
10 
精華
0 
積分
59 
點名
0  
作業系統
win10 
軟體版本
office 2013 
閱讀權限
20 
性別
男 
註冊時間
2013-3-10 
最後登錄
2024-2-7 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2013-3-10 16:06 | 只看該作者
回復 1# chihminyang88

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

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2013-3-10 17:47 | 只看該作者
回復 3# chihminyang88
Hsieh(2013-3-10 12:01): 附上網址並說明操作以便測試

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

TOP

chihminyang88

帖子
33 
主題
10 
精華
0 
積分
59 
點名
0  
作業系統
win10 
軟體版本
office 2013 
閱讀權限
20 
性別
男 
註冊時間
2013-3-10 
最後登錄
2024-2-7 

論壇榮譽勳章論壇贊助勳章
5#
發表於 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
操作方法 : 該網站需申請為會員(免費)->進入網站後點主力成本->輸入代號及啟迄時間按下查詢後等一段時間即可得計算後之資料.

TOP

chihminyang88

帖子
33 
主題
10 
精華
0 
積分
59 
點名
0  
作業系統
win10 
軟體版本
office 2013 
閱讀權限
20 
性別
男 
註冊時間
2013-3-10 
最後登錄
2024-2-7 

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

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
7#
發表於 2013-3-10 19:34 | 只看該作者
回復 6# chihminyang88
計算後之資料.請問你是如何用VBA的程序(程式碼)來取得 ,你要秀上來看看,旁人才知如何幫忙.

TOP

chihminyang88

帖子
33 
主題
10 
精華
0 
積分
59 
點名
0  
作業系統
win10 
軟體版本
office 2013 
閱讀權限
20 
性別
男 
註冊時間
2013-3-10 
最後登錄
2024-2-7 

論壇榮譽勳章論壇贊助勳章
8#
發表於 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

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
9#
發表於 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       
註冊為會員可查詢所有券商進出資料、排行、持有均價                                       
                                       
                                       
請先 登入 ，查詢更多資料                                       
                                       
註冊成為會員

TOP

chihminyang88

帖子
33 
主題
10 
精華
0 
積分
59 
點名
0  
作業系統
win10 
軟體版本
office 2013 
閱讀權限
20 
性別
男 
註冊時間
2013-3-10 
最後登錄
2024-2-7 

論壇榮譽勳章論壇贊助勳章
10#
發表於 2013-3-11 10:56 | 只看該作者
回復 9# GBKEE
謝謝您的回答!!
經修改後依然只能截取到表頭(如下之資料),附上excel程式(NEW),煩請指導.
NOTE : 一直懷疑是否因該筆資料需經計算,因時間差而造成只能讀取到表頭?

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

new.rar (63.65 KB)

程式

TOP

        靜思自在 : 人生不一定球球是好球，但是有歷練的強打者，隨時都可以揮棒。
12
返回列表 上一主題