返回列表 上一主題 發帖

[發問] 代碼應該如何修正, 才能將日期填到網頁中?

justintoolbox

帖子
57 
主題
14 
精華
0 
積分
73 
點名
0  
作業系統
win8.1 
軟體版本
office2010 
閱讀權限
20 
註冊時間
2015-4-2 
最後登錄
2019-6-17 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-9-8 11:38 | 顯示全部帖子

[發問] 代碼應該如何修正, 才能將日期填到網頁中?

各位前輩們大家好,
因不擅於網頁操控,目前遇到問題如下:
利用底下的方法無法將我想要的數值(例如年103)帶入網頁中.

代碼應該如何修正就能克服這問題?
感謝各位前輩們指導.
  1. Sub Ex()
  2. Dim my_url, B
  3. my_url = "http://mops.twse.com.tw/server-java/t13sa150_otc?step=0"
  4. With CreateObject("InternetExplorer.Application")
  5. .Visible = True
  6. .navigate my_url
  7. Do While .Busy Or .readyState <> 4: DoEvents: Loop
  8. For Each B In .document.getElementsByTagName("SELECT")
  9.     If B.Name = "years" Then B.Value = 103
  10. Next
  11. End With
  12. End Sub
複製代碼
收藏 分享

justintoolbox

帖子
57 
主題
14 
精華
0 
積分
73 
點名
0  
作業系統
win8.1 
軟體版本
office2010 
閱讀權限
20 
註冊時間
2015-4-2 
最後登錄
2019-6-17 
2#
發表於 2015-9-9 15:35 | 顯示全部帖子
回復  justintoolbox
試試看
GBKEE 發表於 2015-9-9 10:38


非常感謝GBKEE挺力幫忙!太感謝.

剛剛立刻測試...
只是....出了問題如下:



我的系統是
Win8.1 64bit
EXCEL 2010 64bit
IE11

會不會是64bit關係所致？
懇請GBKEE版主指導~感謝。

TOP

justintoolbox

帖子
57 
主題
14 
精華
0 
積分
73 
點名
0  
作業系統
win8.1 
軟體版本
office2010 
閱讀權限
20 
註冊時間
2015-4-2 
最後登錄
2019-6-17 
3#
發表於 2015-9-9 20:15 | 顯示全部帖子
[版主管理留言]
  • GBKEE(2015/9/10 13:59): 舊版Ie8的VBA程式碼,不能在新版Ie中一式到底,真傷腦筋.

回復 3# justintoolbox

GBKEE大,
問題解決了,參考先前的文章（http://forum.twbts.com/viewthrea ... p;extra=&page=1）
瞭解一些概念後
自行把 Set E = .Document.ALL(4).contentWindow.Document改成 Set E = .Document.ALL(3).contentWindow.Document
就可以了！

太感謝 超級版主 GBKEE, 感恩！

TOP

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題