本人VB新人，所以請教下各位大師這個問題該怎么解決，
Private Sub Command1_Click()
WebBrowser1.Document.getelementbyid("submitBtn").Click
End Sub
Private Sub Command2_Click()
Dim hyvDoc, hyvTag, zyvDoc, zyvTag, hzvDoc, hzvTag, zjvDoc, zjvTag, flvDoc, flvTag, gzvDoc, gzvTag, dzvDoc, dzvTag, dhvDoc, dhvTag, xlvDoc, xlvTag '
Dim i As Integer, ii As Integer
Set hyvDoc = WebBrowser1.Document
For i = 0 To hyvDoc.All.length - 1
If UCase(hyvDoc.All(i).tagName) = "SELECT" Then
Set hyvTag = hyvDoc.All(i)
If hyvTag.Type = "select-one" Then
If hyvTag.id = "marriagetype" Then hyvTag.Value = 21
End If
End If
Next i
'職業
Set zyvDoc = WebBrowser1.Document
For i = 0 To zyvDoc.All.length - 1
If UCase(zyvDoc.All(i).tagName) = "SELECT" Then
Set zyvTag = zyvDoc.All(i)
If zyvTag.Type = "select-one" Then
If zyvTag.id = "occupation" Then zyvTag.Value = 0
End If
End If
Next i
'戶主
Set hzvDoc = WebBrowser1.Document
For i = 0 To hzvDoc.All.length - 1
If UCase(hzvDoc.All(i).tagName) = "SELECT" Then
Set hzvTag = hzvDoc.All(i)
If hzvTag.Type = "select-one" Then
If hzvTag.id = "relation" Then hzvTag.Value = 2
End If
End If
Next i
'分離
Set flvDoc = WebBrowser1.Document
For i = 0 To flvDoc.All.length - 1
If UCase(flvDoc.All(i).tagName) = "SELECT" Then
Set flvTag = flvDoc.All(i)
If flvTag.Type = "select-one" Then
If flvTag.id = "separatetype" Then flvTag.Value = 8
End If
End If
Next i
'作業
Set gzvDoc = WebBrowser1.Document
For i = 0 To gzvDoc.All.length - 1
If UCase(gzvDoc.All(i).tagName) = "INPUT" Then
Set gzvTag = gzvDoc.All(i)
If gzvTag.Type = "text" Then
If gzvTag.id = "jobunit" Then gzvTag.Value = "無"
End If
End If
Next i
'地址
Set dzvDoc = WebBrowser1.Document
For i = 0 To dzvDoc.All.length - 1
If UCase(dzvDoc.All(i).tagName) = "INPUT" Then
Set dzvTag = dzvDoc.All(i)
If dzvTag.Type = "text" Then
If dzvTag.id = "jobaddress" Then dzvTag.Value = "無"
End If
End If
Next i
'聯系電話
Set dhvDoc = WebBrowser1.Document
For i = 0 To dhvDoc.All.length - 1
If UCase(dhvDoc.All(i).tagName) = "INPUT" Then
Set dhvTag = dhvDoc.All(i)
If dhvTag.Type = "text" Then
If dhvTag.id = "phone" Then dhvTag.Value = "無"
End If
End If
Next i
'學歷
Set xlvDoc = WebBrowser1.Document
For i = 0 To xlvDoc.All.length - 1
If UCase(xlvDoc.All(i).tagName) = "SELECT" Then
Set xlvTag = xlvDoc.All(i)
If xlvTag.Type = "select-one" Then
If xlvTag.id = "edulevel" Then xlvTag.Value = 60
End If
End If
Next i
'證件
Set zjvDoc = WebBrowser1.Document
For i = 0 To zjvDoc.All.length - 1
If UCase(zjvDoc.All(i).tagName) = "SELECT" Then
Set zjvTag = zjvDoc.All(i)
If zjvTag.Type = "select-one" Then
If zjvTag.id = "cardtype" Then zjvTag.Value = 1
End If
End If
Next i
End Sub
Private Sub form_load()
WebBrowser1.Navigate "http://10.10.202.135/cmis/Populate_add.action?"
End Sub
uj5u.com熱心網友回復：
看到這排版，已經沒有看完它的欲望了uj5u.com熱心網友回復：
Set hyvDoc = WebBrowser1.DocumentSet flvDoc = WebBrowser1.Document
Set zjvDoc = WebBrowser1.Document
....
看到一堆這個，我暈了....
只需在WebBrowser1_documentcomplete事件中設定一個即可
比如：Set myDoc = WebBrowser1.Document
后面的hyvDoc flvDoc zjvDoc ...都使用mydoc即可
uj5u.com熱心網友回復：
另外，都知道id了，就沒有必要使用回圈+tagname判斷了，直接這樣用mydoc.all.item("jobunit").value="https://bbs.csdn.net/topics/無"
mydoc.all.item("phone").value="https://bbs.csdn.net/topics/無"
.......
uj5u.com熱心網友回復：
感謝Topc008的回復，不好意思，我是新手，不懂VB，只能照葫蘆畫瓢，id我知道，剛開始用除錯登錄的時候我是手動登錄的，登錄進去后點擊按鈕自動填寫要填寫的表單專案，但是匯出EXE后，不能記錄登錄資訊，導致出錯，因為填寫的框比較多，所以我都定義了變數，不好意思。
uj5u.com熱心網友回復：
謝謝老師的指點，代碼簡短了很多，但是還是匯出EXE檔案運行錯誤‘91’，未設定物件變數或With block變數，
我是在我們單位的內網錄入資訊，登錄都是手動登錄，登錄進去找到錄入界面進行錄入資料，因為有些選項是固定的，所以想偷懶一鍵把固定的選項都填了。
請教老師這改怎么辦呢？
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/119404.html
標籤：VB基礎類
上一篇：怎么用vbdata控制元件建立一個擁有資料庫的用戶注冊？？？
下一篇：改變一個按鈕顏色