ExcelのVBAで、mhtmlファイル内の特定の文字列の有無を調べたい

前提・実現したいこと

ExcelのVBAで、mhtmlファイル内の特定の文字列を見つける、という処理を行いたいです。

ChromeからWebサイトをmhtml形式で保存し、そのmhtmlファイル内を特定の文字列で検索し、
ファイル内に文字列が存在したら「記載有」と転記するマクロを作成したいです。

発生している問題

下記のソースコードが現在作成しているマクロの一部なのですが、こちらでは
Chromeの「名前を付けてページを保存」→「ウェブページ、完全（.htm;.html）」の形式で保存したファイルであれば
きちんと検索してくれますが、
「ウェブページ、１つのファイル（*.mhtml）」の形式で保存したもので実行すると、
ファイル内に指定の文字列が存在しても認識してくれません。

（下の補足情報に記載していますが、おそらく文字コードの問題です）

該当のソースコード

VBA
1Sub FileCheck(Str As String, HTMLpath As String , t_row As Long , e_col As Long)
2
3'引数Strで検索する文字列を指定、引数HTMLpathで検索対象のHTMLファイルのフルパスを指定
4
5	Dim Buf As String
6
7	With CreateObject("ADODB.Stream")
8		.Charset = "UTF-8"
9		.Open
10		.LoadFromFile HTMLpath
11		Buf = .ReadText
12
13		If InStr(Buf,Str)<>0 Then
14			Cells(t_row,e_col) = "記載有"
15		End If
16
17		.Close
18
19	End With
20
21End Sub

補足情報

Debug.Printで読み込んだmhtmlファイルを確認したところ、
日本語のところが「=A1=E3=82=A4=E3……」のようになっていたので
恐らくは文字コードでの問題だと思われます。

VBAでmhtmlファイルも日本語の文章で読み込む方法、または日本語に変換する方法がわからないです。

VBAにも文字コードにも理解が浅いので初歩的な質問かもしれませんが、
ご教示いただけますと幸いです。何卒よろしくお願いします。

行動規範の内容に同意します

回答1件

mhtmlファイルはHTML形式ではありません。メールの形式になっています。
mhtmlファイルはページまるごと、その中で使われている画像なども込みで1ファイルになっているということはご存じだと思いますが、それは「添付ファイルのたくさん付いたメール」の形式で1ファイルになっています。
従って、内容を見るにはこの形式（MIME）の理解が必要です。

ちゃんとやるなら、MIME形式のメールを取り扱うライブラリが必要ですが、VBAにそういうライブラリがあるかどうかは知りません。まあ、今回程度の目的であれば、ちゃんとしたライブラリがなくても、正規表現で対象を切り出して、Quoted-Printableのデコードをすれば良いかと思います。
参考：Quoted-printable - Wikipedia
「quoted-printable デコード VBA」 - Google 検索

投稿2022/01/29 07:39