返回列表 上一主題 發帖

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

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 2015-7-15 19:09 | 顯示全部帖子
本帖最後由 stillfish00 於 2015-7-15 19:13 編輯

回復 1# justintoolbox
日期要下選單原本就有才行
  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
  10.                     For Each opt In A.Options
  11.                         If opt.innerText = "20150522" Then
  12.                             opt.Selected = True
  13.                             Exit For
  14.                         End If
  15.                     Next
  16.                     Exit For
  17.                 End If
  18.             Next
  19.         End With
  20.         .Quit
  21.     End With
  22. End Sub
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題