此為範例
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