- 帖子
- 75
- 主題
- 8
- 精華
- 0
- 積分
- 109
- 點名
- 0
- 作業系統
- windows XP
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 高雄
- 註冊時間
- 2015-4-19
- 最後登錄
- 2025-5-7
|
請問VBA神人:
要如何控制IE的值在VBA直接輸入就好?
以下是我模仿的程式，地區輸入: 104 ，
執行到Set what = .document.getElementByName("onchage")
就出現錯誤訊息，可是不知道怎麼改，請問有大大可以協助嗎??
Sub Ex_網頁元素_3()
Dim E As Object, what As Object
Set objIE = CreateObject("InternetExplorer.application")
URL = "http://amis.afa.gov.tw/v-htm/v102.htm"
myjobtype = InputBox("輸入地區代號:")
With objIE
.Visible = True
.Navigate URL
Do While .Busy Or .readyState <> 4: DoEvents: Loop
Set what = .document.getElementByName("onchage")
what.Item(0).Value = myjobtype
.document.getElementByName("B1").Click '搜尋鍵
With .document '網頁的文件
'*** 這段程式碼可查看這網頁的元素內容
On Error Resume Next
For Each E In .all
i = i + 1
Cells(i, "a") = E.tagname '控制項標記的名稱
Cells(i, "b") = E.ID '控制項標記的ID (惟一的)
Cells(i, "c") = E.Name '控制項標記的命名
Cells(i, "d") = E.Value '控制項標記的值
Cells(i, "e") = E.innertext '控制項標記的文字
Cells(i, "f") = E.Type '控制項標記的類型
Cells(i, "g") = E.href '控制項標記的網址
Next
'****************************************
End With
'.QUIT
End With
End Sub |
|
發表於 2015-12-5 16:07
| 
