此为范例
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