作者nine69 (No.Nine)
看板Visual_Basic
标题[VBA ] 自动填写web form并且附加档案
时间Mon Dec 20 15:31:35 2021
此为范例
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
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 36.233.6.148 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1639985498.A.52D.html
1F：→ waiter337: .getElementsByName("gender")(0).Checked = True 12/31 15:09
2F：→ waiter337: 女生是 12/31 15:09
3F：→ waiter337: .getElementsByName("gender")(1).Checked = True 12/31 15:09
4F：→ waiter337: 核取方块四个选项 依0~3 12/31 15:14
5F：→ waiter337: .getElementsByName("hobbies")(0).Checked = True 12/31 15:15
6F：→ waiter337: 最後附加档案这件事情 12/31 15:43
7F：→ waiter337: 可能要让你失望了 12/31 15:43
8F：→ waiter337: 我目前的能力不足以处理这个困难的问题 12/31 15:44
9F：→ waiter337: 从我收集的经验与评估 大致归纳出以下几种方法 12/31 15:45
10F：→ waiter337: 1.自制一个vbs来处理程序跳出页面後中断的问题 12/31 15:45
11F：→ waiter337: 2.或者改用爬虫外挂selenium 或许会有特别的处理方法 12/31 15:45
12F：→ waiter337: 3.真的有办法分析出带有上传字串的关键元素,你目前看到 12/31 15:46
13F：→ waiter337: 显示的那个不是主要的上传元素 他的功能只是显示 12/31 15:47
14F：→ waiter337: 并没有实际上传的功能与作用 12/31 17:56
15F：推 waiter337: 关於上传 adodb.stream的方式处理不知道能不能行 02/04 19:02
16F：→ waiter337: 可以在google 下关键字 upload vba adodb 02/04 19:02