需求:大量填寫表單,已將需填寫內容整理至Excel清單,透過VBA迴圈依序填寫表單。
問題:一般文字格輸入沒問題,但表單需要上傳附件(圖片),目前無法將路徑寫入
這邊附上一個公開官網,以做範例
希望可將檔案路徑寫入,完成表單填寫並送出
以下是我的程式碼
Sub 填寫表單()
theURL = "https://www.ifreesite.com/upload/"
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate theURL
Do While .busy Or .readystate <> 4: DoEvents: Loop
With .document
Filename = "C:\Users\USER\Desktop\照片\1101.jpg"
.all("img").value = Filename
End With
End With
End Sub
提供你 另一個可能作法
imgur 是可以使用API呼叫上傳檔案的前端後端都有,可以參考看看
相關連結 :
你 google 找找 xmlhttp for vba 吧,學好便可以做好多神奇的東西了