作者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/cn.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