Edge/Chromeでファイルアップロードする(ファイルダイアログが開かない場合)【Selenium】【ExcelVBA】

VBAでEdge/Chromeを使用し、Webページにファイルをアップロードしたい場合があります。
ファイル選択ダイアログが表示できれば、VBAのSendKeysメソッドで無理やり反映すればよいですが、
サイトによっては手動操作でファイル選択ダイアログが表示できるが、
Selenium経由だとファイル選択ダイアログが表示できない場合があります。

上記の場合、SeleniumのSendKeysで反映が可能です。

ファイルアップロードするサンプルコード
1. HTMLサンプル
関連記事
SeleniumBasicについて

ファイルアップロードするサンプルコード

当方のページにはサンプルがないためコードのみ記載します。

Dim driver As New Selenium.WebDriver

'■Edge/ChromeでWebページの要素が表示 or 非表示のチェックをする。
Public Sub sample()
    '■ブラウザを起動
    driver.Start "chrome" 'Edgeの場合はdriver.start "edge"
    driver.Get "https://vba-create.jp/"
   
    '■ページ内の指定要素(fileupload)を書き換え、ファイル選択状態にする
    driver.FindElementById("fileupload").SendKeys "C:\Users/User\Desktop\a.jpg"
 
End Sub

HTMLサンプル

単純なコードでイメージとソースサンプルは下記。

<td>
    <input id="fileupload" name="fileupload" type="file">
</td>

SeleniumBasicについて

Internet Explorer11 のサポート期限が2022年6月までと、スクレイピング自体入れ替えていく必要があります。
今一番スムーズなのはSeleniumBasicを使用したスクレイピングと考えます。

但し、VBAでのネット記事は少なく困っている方も多いと思います。
弊社で代行開発も可能ですので、お気軽にご用命ください。

ファイルアップロードするサンプルコード

HTMLサンプル

関連記事

SeleniumBasicについて

コメント