如何使用VBA將鉅亨網的歷史股價下載到EXCEL註冊登錄首頁論壇版規禁止列表說明地圖數位書香私人消息(0)公共消息(0)論壇任務(0)系統消息(0)好友消息(0)帖子消息(0)麻辣家族討論版版»Excel程式區»股票歷史價格表12下一頁返回列表下一主題上一主題發帖[發問]股票歷史價格表Scott090發短消息加為好友Scott090當前在線UID13127 帖子482 主題50 精華0 積分554 金錢554 點名204 作業系統win10 軟體版本[] 閱讀權限50 性別男 在線時間604小時 註冊時間2013-3-19 最後登錄2021-9-17 高中生帖子482 主題50 精華0 積分554 點名204 作業系統win10 軟體版本[] 閱讀權限50 性別男 註冊時間2013-3-19 最後登錄2021-9-17 1#跳轉到»倒序看帖打印字體大小:tT發表於2017-10-1315:46|只看該作者[發問]股票歷史價格表進入這個網站取得個股歷史價：http://www.cnyes.com/twstock/ps_historyprice/2330.htm下載(33.76KB)2017-10-1315:40它只有固定的日期區間資料請教導：          VBA如何用選用其中的"開始日期"及"結束日期"及"查詢"而取得更長區間的資料表謝謝樓主熱帖個股歷史價格表WIN10雙螢幕DVI主螢幕沒信號圖表chart內趨勢線的資料點之TopLeft網頁資料很長，如何有效率地知道已完整進來無法插入ActiveX控制項VBA寫Countif的公式進入儲存格在Access2010要匯入.xlsxExcel工作表資VBA如何處理網頁中的選擇項使網頁更新數列曲線的谷底數值及數列的位置VBAVBASQL取得時間間隔的其他欄位之平均值收藏分享DreamweaverCC資料庫網頁實例應用：零程式基礎輕鬆製作PHP資料庫網頁Scott090發短消息加為好友Scott090當前在線UID13127 帖子482 主題50 精華0 積分554 金錢554 點名204 作業系統win10 軟體版本[] 閱讀權限50 性別男 在線時間604小時 註冊時間2013-3-19 最後登錄2021-9-17 高中生帖子482 主題50 精華0 積分554 點名204 作業系統win10 軟體版本[] 閱讀權限50 性別男 註冊時間2013-3-19 最後登錄2021-9-17 2#發表於2017-10-2015:12|只看該作者回復1#Scott090參考以下程式碼可以設定日期區間繼續尋求更佳的方法'從鉅亨網取得歷史股價'使用IE物件'optionexplicit'optionbase1SubTestCNYES()  DimPrice(0To20,0To9)  DimCode  Code="2330"    DimIEAsObject,URL$  Dimdate0AsDate,StartDate$,EndDate$,timer,time0AsDate  DimTableAsObject,oDocAsObject,E  DimRe%,Ce%,i%,k%,ColName$    ActiveSheet.Cells.Clear    '設定資料開始及結束日期  StartDate=Format(DateAdd("m",-2,Date),"yyyy/mm/dd")  '取2個月的資料，約40筆  EndDate=Format(Date,"yyyy/mm/dd")    k=0Again:  SetIE=CreateObject("InternetExplorer.Application")  WithIE        URL="http://www.cnyes.com/twstock/ps_historyprice/"&Code&".htm"        .Visible=False          '不顯示IE        .navigateURL                time0=Now()+#12:00:05AM#  '設定時間控制計時5秒鐘        Do          DoEvents        LoopWhile(.BusyOr.readystate<>4)AndTime4Then          .Quit          k=k+1          Ifk<=2ThenGoToAgain          GoToGiveUp            '開啟3次都失敗就放棄        EndIf