返回列表 上一主題 發帖

[發問] 無法在網頁輸入日期資料,應該如何修正代碼呢?

[發問] 無法在網頁輸入日期資料,應該如何修正代碼呢?

各位前輩們,大家好:

目前遇到的問題是:『自己設定一個日期(如20150522)並填入該網頁的資料日期欄位,結果卻是變成空白,網頁無法顯示我輸入的內容裡面。』
想請問代碼應該如何修正,才能解決這個問題?
期望各位前輩們能出手相救... 感謝!

代碼如下:
  1. Sub Ex()
  2. my_url = "http://www.tdcc.com.tw/smWeb/QryStock.jsp"
  3. With CreateObject("InternetExplorer.Application")
  4.         .Visible = True
  5.         .navigate my_url
  6.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  7. With .document
  8.         For Each A In .getElementsByTagName("SELECT")
  9.             If A.Name = "SCA_DATE" Then A.Value = "20150522"
  10.         Next
  11. End With
  12. .Quit
  13. End With
  14. End Sub
複製代碼

真的太棒了!!!
太感謝這裡的前輩stillfish00 , 超級版主GBKEE!
真的非常受用,增長了許多知識,非常謝謝你們!

TOP

        靜思自在 : 每天無所事事,是人生的消費者,積極、有用才是人生的創造者。
返回列表 上一主題