mikeon88

ADR 扣稅率又跑掉了
請下載200321

mikeon88

我按都OK

mikeon88

都可以跑得很順了
請下載200322

如果跑不出來，請重複多按幾次

mikeon88

請下載新版盈再表

mikeon88

請把跑不出來的盈再表存檔後email給我

mikeon88

關檔重開

mikeon88

修改美股歷史股價
謝謝Bryce桑
請同學下載200322a測試看看並回報結果，謝謝

mikeon88

修改歷史股價分割
請下載200323

mikeon88

因為公司名表未抓到，資料庫不穩定

mikeon88

修改上述問題
謝謝Curry桑和阿宏桑
請下載200324

mikeon88

修改大盤頁上櫃
謝謝Alex吳桑幫忙修改
請下載200325

mikeon88

修改美股bug
請下載200326

mikeon88

年底財報就會是這樣

mikeon88

修改五糧液
謝謝Eunice桑
請下載200327

mikeon88

修改全球頁
非常謝謝Alex桑
請下載200328



From: On Michael
Sent: Friday, March 27, 2020 8:39 PM
Subject: 全球盈再表的表抓不過來

Dear     Alex     桑：

全球盈再表的表抓不過來，
請幫忙修改，用附檔，謝謝





Alex Wu 於 2020年3月28日 下午12:44 寫道：

Hi Mike,

1.      應該是下列這一句有問題,導致程式 觸發 On Error GoTo err, 而跳過 抓歷史股價這一段
我將其註解後, 用原方法仍可以抓到資料, 故請檢查一下 [ac46]原先規劃要作什麼判斷?

       'If ndd = ".CH" And [ac46] Then nd$ = ".VX"

2.      另外, 抓歷史股價 用原方法 ActiveSheet.QueryTables比較慢一些, 故我改用MSXML2.XMLHTTP來抓取, 你可決定是否採用此法.

'Call ConnectMarketWatch(url, Cells(3, dc), 2)

Call ConnectXMLHTTP(url)

        For Each tbl In doc.getElementsByTagName("table")
            If tbl.className = "W(100%) M(0)" Then
                ii = 0
                              Set rng = Cells(3, dc)
                                 For Each rw In tbl.Rows
                                     For Each cl In rw.Cells
                                            rng.Value = Trim(cl.innerText)
                                            Set rng = rng.Offset(, 1)
                                         ii = ii + 1 'column
                                     Next cl
                                     Set rng = rng.Offset(1, -ii)
                                     ii = 0
                                 Next rw
            End If
        Next tbl
        Set doc = Nothing
   


Regards,

Alex

mikeon88

修改中股
謝謝archy桑
請下載200329

mikeon88

修改中股年度
謝謝archy桑
請下載200330

mikeon88

修改台股股息股子
請下載200331

mikeon88

應該修好了
非常謝謝archy桑
請下載200401

mikeon88

請下載200402