SeleniumBasicでアップロードする構文を紹介します。SeleniumBasicの構文としては、基本的な命令文となるため、特別な処理は特に行っておりません。
- 利用目的は業務効率化です。（テスト自動化ではありません）
- ブラウザはGoogleChromeが対象です。（EdgeやFirefoxは対象外）
- 原文のVBAでは現在エラー発生する場合が多いため、修正を加えてます。
Examples.xlsmの保存場所（ここをクリック）
Examples.xlsmが保存されている場所は、SeleniumBasicがインストールされているサブフォルダ内になります。SeleniumBasicのインストール完了時に保存フォルダを確認することができます。ただ、大体以下フォルダのどちらかにファイル保存されています。
- C:\Program Files\Seleniumbasic\Examples\Excel
- shell:Local AppData\SeleniumBasic\Examples\Excel
Private Sub Upload_File()
Dim file As String
file = ThisWorkbook.Path & "\sc-element.png"
Dim driver As New ChromeDriver
driver.Get "https://the-internet.herokuapp.com/upload"
driver.Wait 2000
driver.FindElementById("file-upload").SendKeys(file).Submit
driver.Wait 2000
driver.Quit
End Sub３行目：マクロファイルと同ディレクトリに保存している画像ファイルを指定
５行目：ホームページを取得
７行目：「ファイルを選択」ボタンをFindElementByIdで取得し、ファイル名を送信
