麻辣家族討論版版 » Excel程式區 » 無法在網頁輸入日期資料，應該如何修正代碼呢？

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

帖子: 57
主題: 14
精華: 0
積分: 73
點名: 0
作業系統: win8.1
軟體版本: office2010
閱讀權限: 20
註冊時間: 2015-4-2
最後登錄: 2019-6-17

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-7-15 09:51 | 顯示全部帖子

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

各位前輩們，大家好：

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

代碼如下：

Sub Ex()
my_url = "http://www.tdcc.com.tw/smWeb/QryStock.jsp"
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate my_url
Do While .Busy Or .readyState <> 4: DoEvents: Loop
With .document
For Each A In .getElementsByTagName("SELECT")
If A.Name = "SCA_DATE" Then A.Value = "20150522"
Next
End With
.Quit
End With
End Sub

複製代碼

樓主熱帖

收藏

中學生 Rank: 2

帖子: 57
主題: 14
精華: 0
積分: 73
點名: 0
作業系統: win8.1
軟體版本: office2010
閱讀權限: 20
註冊時間: 2015-4-2
最後登錄: 2019-6-17

2^#

發表於 2015-7-15 21:36 | 顯示全部帖子

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

靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -

返回列表下一主題上一主題