質問者が納得下記で試してください。
>A1にファイル名(index.html) B1にhtmlの中身(<html>~</html>)
のシートをアクティブにして実行して下さい。データはA1より連続であるものと仮定しています。
Sub htmlコピー()
Dim c As Range
Dim s As String, TmpS As String
Dim myF As Integer
On Error Resume Next
For Each c In Range("A1...
6093日前view100