[VBA ] 自動填寫web form並且附加檔案
此為範例
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://www.ptt.cc/bbs/Visual_Basic/M.1639985498.A.52D.html
→
12/31 15:09,
2年前
, 1F
12/31 15:09, 1F
→
12/31 15:09,
2年前
, 2F
12/31 15:09, 2F
→
12/31 15:09,
2年前
, 3F
12/31 15:09, 3F
→
12/31 15:14,
2年前
, 4F
12/31 15:14, 4F
→
12/31 15:15,
2年前
, 5F
12/31 15:15, 5F
→
12/31 15:43,
2年前
, 6F
12/31 15:43, 6F
→
12/31 15:43,
2年前
, 7F
12/31 15:43, 7F
→
12/31 15:44,
2年前
, 8F
12/31 15:44, 8F
→
12/31 15:45,
2年前
, 9F
12/31 15:45, 9F
→
12/31 15:45,
2年前
, 10F
12/31 15:45, 10F
→
12/31 15:45,
2年前
, 11F
12/31 15:45, 11F
→
12/31 15:46,
2年前
, 12F
12/31 15:46, 12F
→
12/31 15:47,
2年前
, 13F
12/31 15:47, 13F
→
12/31 17:56,
2年前
, 14F
12/31 17:56, 14F
推
02/04 19:02,
3年前
, 15F
02/04 19:02, 15F
→
02/04 19:02,
3年前
, 16F
02/04 19:02, 16F
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章