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

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

論壇榮譽勳章論壇贊助勳章

2^#

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

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

論壇榮譽勳章論壇贊助勳章

3^#

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

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

論壇榮譽勳章論壇贊助勳章

4^#

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

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

論壇榮譽勳章論壇贊助勳章

5^#

發表於 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

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

論壇榮譽勳章論壇贊助勳章

6^#

發表於 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)

程式

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

論壇榮譽勳章論壇贊助勳章

7^#

發表於 2013-3-11 22:50 | 顯示全部帖子

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

new1.rar (63.63 KB)