修改全球頁
非常謝謝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 |
新浪微博
QQ空间
人人网
腾讯微博
Facebook
Google+
Plurk
Twitter
Line
