WebページのソースをHtmlファイルで保存【Selenium Basic × ExcelVBA】

SeleniumBasicでChrome操作を行い、PageSourceメソッドでWebページのソースを取得します

そして文字コードがあってないと文字化けする為、文字コードを合わせる必要がある

Microsoft ActiveX Data Objects 〇.〇 Libraryの参照設定を行い、ADODB.Streamクラスを使用し

Charsetプロパティを使用し、文字コードを合わせて、FileToSaveメソッドでhtmlファイルとして保存するまでの流れで実践

ｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰ

実際に使用したサンプルコード

Option Explicit
Sub Sample1()

'driverでChromeを使用する準備
Dim driver As New Selenium.ChromeDriver

'指定したWebサイトまで接続
driver.Get "https://vba.company/samplepage/"

'変数でStream機能を使用する準備
Dim 変数 As New ADODB.Stream

With 変数

'文字コードを指定
.Charset = "utf-8"

'開く
.Open

'データを入力(ページのソース)
.WriteText driver.PageSource

'データを今日の日付をyyyymmdd形式でファイル名にして保存
.SaveToFile ThisWorkbook.Path & "\" & Format(Date, "yyyymmdd") & ".html", adSaveCreateOverWrite

'閉じる
.Close

End With

End Sub