作者abc9gad (鄉民愛發呆)
看板Office
標題Re: [文件] Excel VBA更新股價無法使用
時間Fri Jan 11 14:53:46 2019
※ 引述《abc9gad (鄉民愛發呆)》之銘言：
: 軟體:Excel
: 版本:2010
: 小弟我原本有上網抓一個VBA可以更新股價的檔案
: 然後有小改一些地方
: 但昨日突然無法更新，平常只要按左上的手動全/各(按鈕)
: 就可以自動更新股價，從Excel VBA顯示的錯誤來看
: 也不像是連結的問題 還請版上高手看看 感謝
: 檔案連結
: https://drive.google.com/open?id=1WkbYLhqaPCVa2jf3-qba0OJhShgyU7TQ
今天盤後要更新股價時，又如同上次出現錯誤，
這次不管是改成idv與div都無法正常更新，錯誤顯示的地方更上次一樣
好像不是問題所在，還望請版上高手協助 謝謝
檔案連結
https://drive.google.com/open?id=1WkbYLhqaPCVa2jf3-qba0OJhShgyU7TQ
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 210.242.212.205
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1547189628.A.C81.html
1F：→ soyoso: 同上次地方出現的話，ST1的字串改為"資料日期:" 01/11 15:19
2F：→ soyoso: ST2改"</font></td>" 01/11 15:20
3F：→ soyoso: 下面uRng(..)= left(gettime,9) 01/11 15:20
4F：→ abc9gad: 成功了謝謝s大，請問這一樣是原始網頁的編碼變更關係嗎 01/11 15:58
5F：→ soyoso: 一樣是變更的關係 01/11 16:01
6F：→ abc9gad: 請問s大看的出來是因為哪個部分變更的關係，造成無法跑 01/11 16:08
7F：→ abc9gad: 是日期或是時間等等的原因嗎，想看有沒有一勞永逸的方法 01/11 16:09
8F：→ abc9gad: 其實我只需要檔案可以讓我即時更新股價就夠了~ 01/11 16:09
10F：→ soyoso: 原本變數ST1的<..=""ssbodyw"">和ST2的"</span>..."今天就 01/11 16:32
11F：→ soyoso: 不存在了，也就無法抓取原本希望要取得的字串 01/11 16:33
12F：→ soyoso: 因這二次皆出現錯誤在這方面，且日期時間也不是所需的話 01/11 16:34
13F：→ soyoso: 就從ST1...往下四行到uRng(...)=...這部分看要刪除或標註 01/11 16:36
14F：→ soyoso: 起來，這方面影響的是n欄time的部分 01/11 16:36
15F：→ abc9gad: 先謝過s大 01/11 16:37
16F：→ soyoso: 但表格內股票代號的右側是時間，如果想改以這個時間寫到n 01/11 16:51
17F：→ abc9gad: 謝謝s大，我先把這段註解起來好了~看未來還會不會再發生 01/11 16:51
18F：→ soyoso: 欄的話變數ST1...往下三行到GetTime=...刪除或標註起來 01/11 16:51
19F：→ soyoso: 第四行的uRng(1,12)=right(arr(1),5) 就為表格內時間資料 01/11 16:52
20F：→ abc9gad: 太感謝S大!，我將GetTime註解起來，uRng改為您說的 01/11 16:58
21F：→ abc9gad: 時間就能正常顯示了 01/11 16:58
22F：→ soyoso: 抱歉更正我的回文，"標註"起來應為a大所回文的"註解"才對 01/11 17:38