返回列表 上一主題 發帖

[發問] 股票歷史價格表

iamaraymond
　暱稱: Raymond Chien

中學生Rank: 2

帖子
109 
主題
12 
精華
0 
積分
177 
點名
0  
作業系統
win10 
軟體版本
office2013 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2017-11-19 
最後登錄
2023-7-5 
1# 跳轉到 »
發表於 2018-1-29 01:15 | 顯示全部帖子
回復 2# Scott090

幫大大補充一下，
1.44~51行那邊應該可以用document.all(name)取代會比較簡單
2.可以透過修改
https://www.cnyes.com/twstock/ps_historyprice.aspx?code=2330&ctl00$ContentPlaceHolder1$startText=2001/10/05&ctl00$ContentPlaceHolder1$endText=2018/01/09
然後用外部匯入，會比較快，也比較簡單
個人小小想法，參考一下
Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

iamaraymond
　暱稱: Raymond Chien

中學生Rank: 2

帖子
109 
主題
12 
精華
0 
積分
177 
點名
0  
作業系統
win10 
軟體版本
office2013 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2017-11-19 
最後登錄
2023-7-5 
2#
發表於 2018-1-29 19:49 | 顯示全部帖子
回復 5# Scott090


  我的是按F1之後會上網找說明

另外我的想法是用QueryTable的方式
  1. Sub 股價()

  3. [A10].CurrentRegion.Clear

  5. stockno = [B3]
  6. mydate1 = Format([B4], "YYYY/MM/DD")
  7. mydate2 = Format([B5], "YYYY/MM/DD")
  8. myurl = "https://www.cnyes.com/twstock/ps_historyprice.aspx?code=" & stockno & "&ctl00$ContentPlaceHolder1$startText=" & mydate1 & "&ctl00$ContentPlaceHolder1$endText=" & mydate2

  10. With ActiveSheet.QueryTables.Add(Connection:= _
  11.         "URL;" & myurl _
  12.         , Destination:=Range("$A$10"))
  13.         .RowNumbers = False
  14.         .FillAdjacentFormulas = False
  15.         .PreserveFormatting = False
  16.         .RefreshOnFileOpen = False
  17.         .BackgroundQuery = False
  18.         .RefreshStyle = xlOverwriteCells
  19.         .SavePassword = False
  20.         .SaveData = True
  21.         .AdjustColumnWidth = False
  22.         .RefreshPeriod = 0
  23.         .WebSelectionType = xlSpecifiedTables
  24.         .WebFormatting = xlWebFormattingNone
  25.         .WebTables = "1"
  26.         .WebPreFormattedTextToColumns = True
  27.         .WebConsecutiveDelimitersAsOne = True
  28.         .WebSingleBlockTextImport = False
  29.         .WebDisableDateRecognition = False
  30.         .WebDisableRedirections = False
  31.         .Refresh BackgroundQuery:=False
  32.         .Delete
  33.     End With
  34. End Sub
複製代碼
Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

iamaraymond
　暱稱: Raymond Chien

中學生Rank: 2

帖子
109 
主題
12 
精華
0 
積分
177 
點名
0  
作業系統
win10 
軟體版本
office2013 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2017-11-19 
最後登錄
2023-7-5 
3#
發表於 2018-2-1 14:29 | 顯示全部帖子
回復 8# GBKEE


   我記得會造成不一樣是因為如果輸入日期剛好碰到假日，那資料會以下一個工作日開始，例如輸入20180128(日)，那就會抓到從20180129(一)開始的資料
Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

        靜思自在 : 要批評別人時，先想想自己是否完美無缺。
返回列表 上一主題