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

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

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

12^#

發表於 2013-3-11 22:50 | 只看該作者

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

new1.rar (63.63 KB)

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

11^#

發表於 2013-3-11 12:25 | 只看該作者

回復 10# 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)

程式

帖子: 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
你為何用工作表上儲存格有修改的預設事件須修改一下

Private Sub Worksheet_Change(ByVal TARGET As Range)
Dim stockno As String
Application.EnableEvents = False
'EnableEvents 屬性如果指定物件能觸發事件，則本屬性為 True。讀/寫 Boolean。
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
Application.EnableEvents = True
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
註冊為會員可查詢所有券商進出資料、排行、持有均價

請先登入，查詢更多資料

註冊成為會員

帖子: 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

帖子: 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的程序(程式碼)來取得 ,你要秀上來看看,旁人才知如何幫忙.

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

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

帖子: 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): 附上網址並說明操作以便測試

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