[VBA ] 自動填寫web form並且附加檔案

[nine69 (No.Nine)]

此為範例
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
→ waiter337: .getElementsByName("gender")(0).Checked = True
→ waiter337: 女生是
→ waiter337: .getElementsByName("gender")(1).Checked = True
→ waiter337: 核取方塊四個選項 依0~3
→ waiter337: .getElementsByName("hobbies")(0).Checked = True
→ waiter337: 最後附加檔案這件事情
→ waiter337: 可能要讓你失望了
→ waiter337: 我目前的能力不足以處理這個困難的問題
→ waiter337: 從我收集的經驗與評估 大致歸納出以下幾種方法
→ waiter337: 1.自製一個vbs來處理程序跳出頁面後中斷的問題
→ waiter337: 2.或者改用爬蟲外掛selenium 或許會有特別的處理方法
→ waiter337: 3.真的有辦法分析出帶有上傳字串的關鍵元素,你目前看到
→ waiter337: 顯示的那個不是主要的上傳元素 他的功能只是顯示
→ waiter337: 並沒有實際上傳的功能與作用
推 waiter337: 關於上傳 adodb.stream的方式處理不知道能不能行
→ waiter337: 可以在google 下關鍵字 upload vba adodb