VBAでEdge/Chromeで表示している画面をキャプチャしたい場合があります。
TakeScreenshotで画面キャプチャ(スクリーンショット)として保存が可能です。
ブラウザ画面をキャプチャするサンプルコード
Dim driver As New Selenium.WebDriver '■Edge/Chromeでブラウザ画面をキャプチャする Public Sub sample() '■ブラウザを起動 driver.start "chrome" driver.Get "https://vba-create.jp/" '■ファイル名のみ指定した場合はカレントディレクトリに保存 driver.TakeScreenshot.SaveAs "screenshot1.png" '■フルパス指定した場合は指定した場所に保存 driver.TakeScreenshot.SaveAs "C:\vba\screenshot1.png" '■画面を最大サイズにすれば、最大サイズ分キャプチャする(画面全体をキャプチャするわけではない) driver.Window.Maximize driver.TakeScreenshot.SaveAs "C:\vba\screenshot2.png" End Sub
注意点
- 保存先に既に同名ファイルが存在する場合、上書きします。
- 上記コードは現在表示している画面のみを画像ファイルとしてキャプチャします。
※Webブラウザ全体をキャプチャしたい場合はこちらの記事参照。
※キャプチャした画像をエクセルに貼り付けたい場合はこちらの記事参照。
関連記事
- Selenium「ブラウザのサイズを最大化/指定サイズ」にする【ExcelVBA】
- Selenium「Edge/Chromeの起動をする」【ExcelVBA】
- Edge/ChromeでWebページを印刷する【shadowRoot】【Selenium】
SeleniumBasicについて
Internet Explorer11 のサポート期限が2022年6月までと、スクレイピング自体入れ替えていく必要があります。
今一番スムーズなのはSeleniumBasicを使用したスクレイピングと考えます。
但し、VBAでのネット記事は少なく困っている方も多いと思います。
弊社で代行開発も可能ですので、お気軽にご用命ください。
コメント