在此之前我做了很多搜索而没有成功 . 搜索链接至少包括此帖子底部的链接 . 请帮忙 .
有问题的网站是https://vcheck.ttc.lacounty.gov/proptax.php?page=main,您在击败CAPTCHA后进入相关的APN输入屏幕,然后单击"Property Tax Inquiry/One-Time Payment"链接 . 然后您可以输入APN号码 .
我能够将所有代码拼凑到网页上,但我没有尝试从我的Excel工作表中输入APN号码 . 代码如下 . 1234567891只是一个例子,我真的希望它从Sheet 1和我选择的任何单元格中提取 . 我发现代码要做那件,但网页永远不会填充:(
Private Sub cmdAPNenter_Click()
Dim ie As SHDocVw.InternetExplorer
Set ie = New SHDocVw.InternetExplorer
ie.Visible = True
ie.Navigate "https://vcheck.ttc.lacounty.gov/proptax.php?page=main"
'we are going to los angeles property tax page
Do
DoEvents
Loop Until ie.ReadyState = 4
'ie READYSTATE has 5 different status codes, here we are using status 4:
'Uninitialized = 0
'Loading = 1
'Loaded = 2
'Interactive = 3
'Complete = 4
Call ie.Document.GetElementByID("theform").SetAttribute("value", "1234567891")
Do
DoEvents
Loop Until ie.ReadyState = 3
Do
DoEvents
Loop Until ie.ReadyState = 4
End Sub
VBA to Enter Data Online and Submit Form How to copy data from a cell in Excel to a webpage text field? Input text into html input box using vba