暱稱: 温奇 頭銜: 議論者
中學生
- 帖子
- 104
- 主題
- 5
- 精華
- 0
- 積分
- 110
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- Office2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2017-11-14
- 最後登錄
- 2019-4-30
 
|
2#
發表於 2018-6-10 19:48
| 只看該作者
由於公司內部網頁無法提供網址
嘗試過用myIE.document.all("txtFile").Value傳值進去,
可是[readonly] ...
faye59 發表於 2018-6-9 21:23 
補上我的寫的VBA
沒一開始補上想說沒什麼內容- Option Explicit
- Dim a As Object
- Sub UpData()
- Dim tagid As Object
- Set a = CreateObject("InternetExplorer.Application")
- a.Visible = True
- a.Navigate "http://test/Query.jsp"
- While a.Busy = True Or a.readyState <> 4
- DoEvents
- Wend
- a.document.all("fldName").Value = "選單"
- a.document.all("queryCondition").Value = "名稱"
- Set tagid = a.document.getelementsbytagname("INPUT")
- tagid(1).Click
- While a.Busy = True Or a.readyState <> 4
- DoEvents
- Wend
- a.document.parentWindow.execScript "tabChange(1, 'P_LOT_OPER', 'ORACLE2')", "JavaScript"
- End Sub
複製代碼 |
|