On May 22, 2017, at 3:20 PM, 方家晟 wrote:
1. 因Alex前輩提到全球｢小幅修改url即可｣，順著這個認知，我再將部分程式碼寫成Function CCSV，讓程式碼看起來更簡潔，也方便Mike修改。
2. 有反應2010版等易出問題，將抓股價用的物件改用Microsoft.XMLHTTP試試。
3. 抱歉目前沒有時間仔細推敲，才疏學淺無法短時間內讀通港股陸股Module內的VBA碼。
附帶一提，工作表儲存格內的函數參照到處理股價股息迴圈的寫入範圍、工作表上資料多，又觸發工作表事件，速度一定慢。
再請Mike修改dc數值後放在港股抓股價的地方：
myday = DateDiff("s", "1/1/1970", Now()) ' unix timestamp
dc = 68 '本表在第幾欄位 ' for price
CCSV "
https://query1.finance.yahoo.com/v7/finance/download/" & cd$ & ".HK?period1=57600&period2=" & myday & "&interval=1mo&events=history&crumb=", Cells(2, dc)
dc = 78 ' for dividend
CCSV "
https://query1.finance.yahoo.com/v7/finance/download/" & cd$ & ".HK?period1=57600&period2=" & myday & "&interval=1mo&events=div&crumb=", Cells(2, dc)
將這段放在陸股抓股價的地方：
myday = DateDiff("s", "1/1/1970", Now()) ' unix timestamp
dc = 68 '本表在第幾欄位 ' for price
CCSV "
https://query1.finance.yahoo.com/v7/finance/download/" & cd$ & ".SS?period1=57600&period2=" & myday & "&interval=1mo&events=history&crumb=", Cells(2, dc)
dc = 78 ' for dividend
CCSV "
https://query1.finance.yahoo.com/v7/finance/download/" & cd$ & ".SS?period1=57600&period2=" & myday & "&interval=1mo&events=div&crumb=", Cells(2, dc)
