股票歷史價格表 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 股票歷史價格表

返回列表下一主題上一主題發帖

[發問] 股票歷史價格表

　暱稱: Raymond Chien

中學生 Rank: 2

帖子: 109
主題: 12
精華: 0
積分: 177
點名: 0
作業系統: win10
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2017-11-19
最後登錄: 2023-7-5

11^# 跳轉到 »

發表於 2018-2-1 14:29 | 只看該作者

回復 8# GBKEE

我記得會造成不一樣是因為如果輸入日期剛好碰到假日，那資料會以下一個工作日開始，例如輸入20180128(日)，那就會抓到從20180129(一)開始的資料

Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

超級版主 Rank: 8 Rank: 8

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

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

12^#

發表於 2018-2-1 20:37 | 只看該作者

本帖最後由 GBKEE 於 2018-2-1 20:39 編輯

回復 11# iamaraymond
這網頁可能也有流量管制
試試看

Option Explicit
Sub 股價()
Dim stockno As String, mydate1 As String, mydate2 As String, myurl As String
Dim Ar As Variant, i As Integer, xTime As Date
Ar = Array("2005/1/1", "2006/1/1", "2007/1/1", "2008/1/1")
[B3] = 2303
stockno = [B3]
[B5] = Date
For i = 0 To UBound(Ar)
[b4] = Ar(i)
[A10].CurrentRegion.Clear
mydate1 = Format([b4], "YYYY/MM/DD")
mydate2 = Format([B5], "YYYY/MM/DD")
myurl = "https://www.cnyes.com/twstock/ps_historyprice.aspx?code=" & stockno & "&ctl00$ContentPlaceHolder1$startText=" & mydate1 & "&ctl00$ContentPlaceHolder1$endText=" & mydate2
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & myurl, Destination:=Range("$A$10"))
.RefreshStyle = xlOverwriteCells
.SaveData = True
.AdjustColumnWidth = False
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "1"
Application.StatusBar = "資料下載中 ... " & [b4]
.Refresh BackgroundQuery:=False
.Delete
End With
With [A10].End(xlDown)
.Select
If Abs(.Cells - [b4]) > 15 Then
MsgBox "開始日期 " & [b4] & " <****> " & .Cells
End If
End With
If i < UBound(Ar) Then
xTime = Time
Do
DoEvents
Application.StatusBar = xTime + #12:00:20 AM# & " - 等候 20秒 ..." & Time
Loop While xTime + #12:00:20 AM# > Time
Else
MsgBox "程式完畢 "
End If
Next
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

高中生 Rank: 3 Rank: 3

帖子: 519
主題: 54
精華: 0
積分: 595
點名: 258
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

13^#

發表於 2018-2-2 08:58 | 只看該作者

回復 11# iamaraymond

我想是資料的完整性問題，不是起始日期是否與資料日期一致
在下列位址有討論，請參考
http://forum.twbts.com/thread-20288-1-1.html

中學生 Rank: 2

帖子: 319
主題: 6
精華: 0
積分: 309
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-4-27

14^#

發表於 2018-2-2 11:15 | 只看該作者

IE , ActiveX.EXE 最大特點是什? 善用之

高中生 Rank: 3 Rank: 3

帖子: 519
主題: 54
精華: 0
積分: 595
點名: 258
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

15^#

發表於 2018-2-3 06:48 | 只看該作者

回復 14# jackyq

請 jackyq 大明示，以便學習

謝謝

中學生 Rank: 2

帖子: 319
主題: 6
精華: 0
積分: 309
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-4-27

16^#

發表於 2018-2-3 16:44 | 只看該作者

回復 15# Scott090

多工 ...

靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。

返回列表下一主題上一主題