ExcelでVBAで特定のページをMHTにする方法。

2016.9.3|Tips 日記| から admin

このエントリーをはてなブックマークに追加
Check

自分が使っている方法でなぜか職場で思いつかなかったソースを家だと書ける。


Excel

sub ボタン1_Click()
Dim i As Long
For i = 1 To XXXXX//特定の数字
‘MsgBox Cells(i, 1).Value
Const cdoSuppressNone As Long = 0
Const adSaveCreateOverWrite As Long = 2

Dim msg As Object ‘ // CDO.Message
Dim stm As Object ‘ // ADODB.Stream
Dim url As String
Dim outFilename As String

url = “http://www.yahoo.co.jp”
outFilename = ThisWorkbook.Path & “\” & URL & “.mht”

Set msg = CreateObject(“CDO.Message”)
msg.CreateMHTMLBody url, cdoSuppressNone, “”, “”
Set stm = msg.GetStream
stm.SaveToFile outFilename, adSaveCreateOverWrite
stm.Close

Set stm = Nothing
Set msg = Nothing
Next i
End Sub

 

特定シートに書いておいて上から順番にXXXXX回読み込んで保存する。