QUOTE:

無效

最近盈再表常抓不到股價和預期ROE，
在未找出解決方法之前請先用此檔，
請重新下載1705f

我的也一樣是同環境，卻常出包

On May 27, 2017, at 12:17 AM, alfidpan wrote:

Dear Michael

我改了一點點，如果不改，我的電腦執行會很久而且會當掉，現在改了，就可以在我的電腦上執行，
還有我是用2016的EXCEL，所以GOOGLE匯率的地方，我改了一下，如果還是CELLS(4,的話，匯率會出錯
所以我本身試了KO、MMM、GSK、TSM都可以顯示股價跟預期ROE。

請重新下載1705f



✉Dear    阿福     桑：

太感謝了，
可是TSM、匯率、年複利抓不過來
另外，台股、港、中、全球也順便改一下，謝謝

問題可能出在電腦記憶體不夠大
今用北投會館電腦跑是正常的

alfidpan  於 2017年5月27日 上午9:06 寫道：


Dear Michael
我不知要多大的記憶體才能執行您的程式，我的電腦至少有4G的記憶體。
美股的部份我沒有用高深的程式碼優化，主要改如下：
程式開頭改這部份


    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
        .Calculation = xlManual＜－－－不自動計算，改手動計算
        .MaxChange = 0.001
        .Calculate＜－－－－計算一下，就像手動按F9
    End With
以上的動作，只是要讓程式不要一直自動計算而變的太慢，又加上計算一下，確保[v69]是我們輸入的值罷了，


        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
        .Delete＜－－－－這是Ben給的靈感
    End With



以上在每一個滙入的部份加入.Delete，這是Ben給的靈感，

With Application
    .StatusBar = "抓公司名+股價+市值+日期  6 / 9"
    .Calculate＜－－－－計算一下，就像手動按F9
End With
With Application
    .StatusBar = "抓市值+日期  7 / 9"
    .Calculate＜－－－－計算一下，就像手動按F9
End With
With Application
    .StatusBar = "抓介紹  8 / 9"
    .Calculate＜－－－－計算一下，就像手動按F9
End With
With Application
    .StatusBar = "抓年金流表  9 / 9"
    .Calculate＜－－－－計算一下，就像手動按F9
End With



  [c9] = [v13]: [k10] = 12: [k11] = [x13]: [q9] = [w29]: [k3] = [w29]: Application.Calculate＜－－－－計算一下，就像手動按F9
以上在程式中隨機加了很多.Calculate，主要是因為，整個程式加上SHEET中的公式，都不是我寫出來的，
所以我只能隨機加入.Calculate，只是確保程式不會因為一開頭的手動計算，而沒有執行出真正的計算值。
還有其他的就是不要用.Select，可以減少的就幫忙減少而已，真的沒有改什麼。
所以其他的股市的部份，還是煩請Michael，您自已看一下，那裡需要修改一下，
因為您的程式真的愈來愈大，一行一行的看，真的複雜，至少您寫的，知道程式執行到那了，
我自已看要花很久的時間，因為我真的不是神級的人，Ben, Alex才真的是神級的人，從他們寫出的程式就可以看出。

剛剛下載新的版本
看起來美股正常
台股試跑富邦金，很快跑完，但無法更新，都停留在中碳畫面
不知何原因?

馬上試跑. 美股部分, 大致正常，但是計算年複利的地方, "年"欄位一直停留在2017, 所以複利無法算出來.

台股怎麼跑都停留在中碳....

應該是阿福桑他修改程式為手動更新的結果，按F9就出現了

Win 10+ Office 2007  ......抓不到最近ROE;年複利地方与Brian兄有同樣问题.

[ 本帖最後由 vegetable888 於 2017-5-27 14:23 編輯 ]

不行. F9只會出現windows控制台(可能是我筆電的關係). 然後Excel裡用"重新整理"也不會出現,中碳之外的資料.

剛剛發現美股C9
改平均ROE後預期報酬沒變
辛苦改程式的Mike老大與學長們感恩~

~試過DE CAT KO~

[ 本帖最後由 studentHank 於 2017-5-27 15:42 編輯 ]

歷史股價的資料也不對, 但是我看不出規則。 (不像是年度直接平移)