澳股ABC改好了，
謝謝宥聰桑發現bug，
請自行下載。

market watch 居然把股價分成4種情況：
GO、Closed、After Hours、Premarket

連台股元大、玉山證網頁也在作怪，
都修好了。

PFE (Pfizer)在不同的f版之間按了好幾次都跑不出股價, 請問其他同學可以在最後一版幫忙檢查看看嗎. 謝謝

我按 CAT, IBM, V, LMT, JPM也有相同的問題

[ 本帖最後由 Trytrylook 於 2017-3-21 21:47 編輯 ]

market watch 居然把股價分成5種情況：
GO、Closed、After Hours、Premarket、Open
已修好，
請重新下載

盈再表若出現錯誤，請先由原網址重新下載。
又不行，再來反映。

不必比較前後版哪個可用，
只要看最新版本即可。

股息列都空白 (BZQIY, INTHY), 但其ˊ實有配息

改好了，公式滑掉了
謝謝James童桑發現bug
請重新下載

我們巴菲特班真是優秀，領先全台在投資全世界，
連BZQIY這什麼公司也有同學在看

宥聰桑說：只有我們巴菲特班有能力去討論各國的個股

這是巴班電信股的名單股。只是不瞭解為何今天預期報酬率怎麼掉得這麼低，去年觀察時預期報酬率還有15%，ROE明明還有60，也還掉不多。PEr也還在12倍左右，居然ROE報酬率已經頂了？

Michael 辛苦了
也感謝同學認真按盈再表幫忙除錯

On Mar 22, 2017, at 4:26 PM, 方家晟  wrote:

Micheal您好，
又冒昧地打擾您了。在討論區看到幾位留言表示重新下載檔案仍有錯誤，結果多是因為沒有確實下載到最新版，提供一個不是很要緊的解決方案(會增加EXCEL負擔)，或許可以避免使用者疏忽版本號的問題：

1.需要先將這個Function完整地放在模組內
已知〈請重新下載盈再表1703g：修改 IRR〉文章的網址，若文章網址有變動則必需要修改。而另一個必要條件是文章標題"盈再表"&"1703g"&"："用詞用字結構需一致，即版本號夾在"盈再表"和"："之間，否則會出錯。
Function 檢查版本()
  Dim title As String
  ' 取得網頁資料
  With CreateObject("Microsoft.XMLHTTP")
    .Open "POST", "http://mikeon88.freebbs.tw/viewthread.php?tid=42772", False
    .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=big5"
    .send
    title = .responsebody
  End With
  ' 處理文字編碼
  With CreateObject("ADODB.Stream")
      .Type = 2
      .Open
      .Writetext title
      .Position = 0
      .Charset = "BIG5"
      .Position = 2
  ' 取得文章標題
      title = Split(Split(.ReadText, "</title>", , vbTextCompare)(0), "<title>", , vbTextCompare)(1)
      .Close
  End With
  ' 將文章標題切割出"營再表"之後、"："之前的版本號
  title = Split(Split(title, "盈再表", , vbTextCompare)(1), "：", , vbTextCompare)(0)
  ' 檢查這個EXCEL檔名內是否有最新版本號
  If InStr(1, ThisWorkbook.Name, title) = 0 Then
    檢查版本 = "請更新至：" & title
  Else
    檢查版本 = "最新版本"
  End If
End Function

2.找一個需要啟動檢查版本的地方放置這句，透過對話窗格告知版本
MsgBox 檢查版本

通常可能會在開啟時做這個動作，例如放在ThisWorkbook內觸發：
Private Sub Workbook_Open()
  MsgBox 檢查版本
End Sub

如果認為已經是最新版本則不需要通知，需要改成這三句：
Dim 版本 As String
版本 = 檢查版本

If 版本 <> "最新版本" then MsgBox 版本
（非學員） 方家晟

謝謝方桑教導，來研究一下
為答謝方桑幫忙，寄了一份盈再表給他

討論區越來越像許願池，
來這裡許願就有貴人相助。