Edge/Chromeでファイルダイアログからアップロードする【Selenium】【ExcelVBA】

ファイルダイアログからファイルをアップロードする

Edge/Chromeの自動制御にて、ローカルにある画像データ等をアップロードしたいケースがあります。
Webサイトではドラッグアンドドロップなどでファイルを選択するサイトも多いですが、
本記事ではファイルダイアログから、ファイルを選択する場合の方法を纏めています。

ファイルダイアログ表示し、ファイル選択するサンプルコード

ファイルダイアログまでは表示できたものとして、必要な部分のみ記載します。
単純にSendkeysで送る形です。

'■Edge/Chromeでファイルダイアログを使用し､ファイルをアップロードする
Dim driver As New Selenium.WebDriver
Public Sub sample()
    '■Edge/Chromeを起動
    driver.Start "chrome"
    
    '↓
    '↓該当ページへ遷移→ファイルダイアログ表示する(例なし)
    '↓
        
    '■クリップボードへアップロードするファイルを「フルパス」でコピー
    Call call_ClipBoardSave("C:\testdata\sample.png")
    driver.Wait 2000
    
    '■Ctrl + V でアップロードするファイルをペースト→Enterで確定する
    SendKeys "^v", True
    driver.Wait 2000
    SendKeys "{ENTER}", True
    driver.Wait 2000

End Sub

注意点

• こちらのコードだけでは動作しません。
  下記パーツ化したコードが必要です。
  ExcelVBAマクロ「指定したキーワードをクリップボードへコピーする」をパーツ化する
• SendKey(キーボードの入力反映)を使用する為、処理する前には必ず処理待ちの時間を作りましょう。
  ※処理待ちしないと、マクロの実行が早すぎて反映できない場合があります。