返回列表 上一主題 發帖

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

justintoolbox

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

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

各位前輩們，大家好：

目前遇到的問題是：『自己設定一個日期（如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

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 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

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2015-7-15 20:10 | 只看該作者
回復 1# justintoolbox
也可顯示資料日期
  1. Option Explicit
  2. Sub Ex()
  3.     Dim my_url, A, AR(), i As Integer, Msg As Integer
  4.     Dim Sca_Date As String
  5.     Sca_Date = "2015020"  '給錯誤的日期
  6.     'Sca_Date = "20150105"
  7.     my_url = "http://www.tdcc.com.tw/smWeb/QryStock.jsp"
  8.    
  9.     With CreateObject("InternetExplorer.Application")
  10.         .Visible = True
  11.         .Navigate my_url
  12.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  13.         For Each A In .document.getelementsbytagname("SELECT")
  14.             If A.Name = "SCA_DATE" Then
  15.                 ReDim AR(1 To A.Length)
  16.                 For i = 1 To A.Length  '指"SELECT"的"OPTION"數量
  17.                     If Sca_Date = Trim(A(i - 1).innerHTML) Then Msg = i
  18.                     AR(i) = A(i - 1).innerHTML  '日期導入陣列
  19.                 Next
  20.                 If Msg Then
  21.                     A(Msg - 1).Selected = True
  22.                 Else
  23.                     MsgBox " 資料日期  沒有 " & Sca_Date & vbLf & Join(AR, vbTab)
  24.                 End If
  25.                 Exit For
  26.             End If
  27.         Next
  28.     End With
  29. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

justintoolbox

帖子
57 
主題
14 
精華
0 
積分
73 
點名
0  
作業系統
win8.1 
軟體版本
office2010 
閱讀權限
20 
註冊時間
2015-4-2 
最後登錄
2019-6-17 
4#
發表於 2015-7-15 21:36 | 只看該作者
真的太棒了！！！
太感謝這裡的前輩stillfish00 , 超級版主GBKEE！
真的非常受用，增長了許多知識，非常謝謝你們！

TOP

        靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。
返回列表 上一主題