[VBA ] 自动填写web form并且附加档案

楼主: nine69 (No.Nine)   2021-12-20 15:31:35
此为范例
https://www.automationandagile.com/p/sample-form.html
我有大量的填写表单需求,内容都列在excel明细,用循环一一填入表单。
目前文字框、下拉选单没问题
但“选项”、“核取方块”、“选择附加档案”有问题
我的程式码如下,再请各位帮忙解惑,感激不尽!
Sub Click()
theURL = "https://www.automationandagile.com/p/sample-form.html"
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate theURL
Do While .busy Or .readystate <> 4: DoEvents: Loop
With .document
.all("fname").Value = "FNAME" '文字框:OK
.all("lname").Value = "LNAME" '文字框:OK
.all("occupation").Value = "Business" '下拉选单:OK
.all("gender").Value = "m" '选项:错误
.all("hobbies").Value = "Travelling" '核取方块:错误
file = "C:\Users\USER\Desktop\使用照片\1101.jpg"'要附加的档案路径"
.all("btnAttachment").Value = file '附加档案:错误
End With
End With
End Sub
作者: waiter337 (给开司一罐苏格登)   2021-12-31 15:09:00
.getElementsByName("gender")(0).Checked = True女生是.getElementsByName("gender")(1).Checked = True核取方块四个选项 依0~3.getElementsByName("hobbies")(0).Checked = True最后附加档案这件事情可能要让你失望了我目前的能力不足以处理这个困难的问题从我收集的经验与评估 大致归纳出以下几种方法1.自制一个vbs来处理程序跳出页面后中断的问题2.或者改用爬虫外挂selenium 或许会有特别的处理方法3.真的有办法分析出带有上传字串的关键元素,你目前看到显示的那个不是主要的上传元素 他的功能只是显示并没有实际上传的功能与作用

Links booklink

Contact Us: admin [ a t ] ucptt.com