我是這樣想的：
一、如果你的資金並沒有那麼多，那之前的盈再表你收集了2、3百支，其實也買不了那麼多，只是之前自動更新完心理安慰而已，那現在的盈再表其實就夠用了，用一個小本子或app筆記軟體記錄一下就可以了，我反而希望盈再表更簡僕一些，只是顯示那公司的成績單也很好。
二、如果你的資金非常雄厚，那這位大大就花一些少少錢用其他的投資輔助軟體，再加上盈再表所顯示的資訊+本班討論區眾多會員分享的方法，那也不過是你的九牛一毛及一點點時間而已，畢竟大筆金額投資應該更謹慎，不是嗎?何必一直為難MIKE及義務幫忙的眾多大大桑。
三、我是從文化大學推廣班一路跟著MIKE學習的，也是從一開始的盈再表一路更新用到現在，現在的盈再表真的比以前好太多了，要再次謝謝MIKE及義務幫忙的眾多大大桑。
你們辛苦了(因為本班規定稱讚只能說辛苦了^^..)，更謝謝MIKE大師真是一位信守承諾的真漢子。
不懂VBA及程式設計的小小會員的小小意見，請參考。

[ 本帖最後由 wale0823 於 2018-11-1 16:41 編輯 ]

GX Wu  於 2018年11月1日 下午4:40 寫道：

Michael您好

不能抓的原因應該是此網頁是由Javascript所產生出來的
Google了一下找到的解法，https://traveldog99.blogspot.com/2017/06/vbajavascriptjs.html

我將網頁的code稍微改了一下，這解法是可以運作的
只是不知道這樣抓網頁的方式是否會和現行盈再表的code差異過大
需再麻煩Michael費心看看這樣的解法OK不OK了

'以下為我修改過的code
    Const url As String = "https://docs.google.com/spreadsheets/d/e/2PACX-1vT5T9B31yXPst_UOngDt0tjOXa0ChviuzjKytpqBJOWt10634VFXZtp-IE5BkDc_xgZ_8ZYks6Dw7tS/pubhtml"     ' 正確的

    Cells.Clear

    Set ie = CreateObject("internetexplorer.application") '使用此方式可以免除 "設定引用項目"

    With ie
        .Visible = False 'True為開啟ie, False為不開啟ie
        .Navigate url
      
        Do While .ReadyState <> 4 '等待網頁開啟
        DoEvents
        Loop
      
        .ExecWB 17, 2 'Select All
        .ExecWB 12, 2 'Copy selection
        Range("A1").Activate
        ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
            False, NoHTMLFormatting:=True
    End With

    'Columns("A:E").Delete    ' 將匯入時 A、E 兩欄移除
    'Columns("B:G").Delete
    Rows("1:2").Delete
    Rows("7:7").Delete
  
    ie.Quit

謝謝Genjuro桑，這樣的確可抓了
現在如何進行？
已在google excel 設了一個美股股價檔可以共享？

抱歉，沒有要為難大家的意思，我的資金並不雄厚，去年下半年進場美股，每支2500美元買，現在手上50多支。想買哪一支，要買前按按盈再表決定沒問題，就怕手上股票不便宜卻沒注意到，錯失賣股機會。不知有沒有人像我一樣有此疑慮，可能我多慮了。

請問把google excel 輸出成網頁怎麼弄？

Dear MIKE不知道是不是您要的，Step 1~4
如下圖示，File選1 publish to web，出現視窗後
選2指定要分享的工作表，3代表這個工作表的web網址、按4 publish應該就行了
以上 kevin

我試出來了，也抓進盈再表了

美股股價，大家都看得到嗎？
https://docs.google.com/spreadsheets/d/e/2PACX-1vSNOyd6VjcrB8IVmxuz_-a9ric_ES25xh_7yFr8e8emIDt_eMrXuJKHfUeApLy9amGcLzOWcnUf5eNK/pubhtml?gid=0&single=true

看得到, 這真是一個好方法 !!

Wu Alex 於 2018年11月1日 下午11:03 寫道：

Hi Mike,

1.       用Call ConnectMarketWatch(url, Cells(3, dc), 1) 即可以抓取. 請參考附檔.

2.       原方法採用web 複製貼上, 容易會產生提示訊息, 且應該會比較慢.


Regards,

Alex

看到了，用iPad

但用Google試算表參數最好只用股價，漲幅，股數
千萬不要用市值參數
個人經驗，市值常錯

[ 本帖最後由 chousirbuy 於 2018-11-1 23:26 編輯 ]