Excelの表をHTMLテーブルとして出力する

Sub テーブルをHTML化()

    Dim Rng As Range
    Dim strHTML As String

    ‘表が左端の場合、<tr>を入れる用
    Dim strTR As String

    ‘2つ以上の選択をしていないとき
    ‘(本来は離れたセルの選択時もエラーが必要かも)
    If Selection.Count = 1 Then
        MsgBox “表を選択してください” & vbCrLf _
                & “選択するときは連続しているセルを最低2つ以上選択してください”, vbCritical
                Exit Sub
    End If

    ‘表が選択されている場合
    For Each Rng In ActiveSheet.Range(Selection.Address)

        ‘左端かどうかのチェック
        Select Case Selection.Column
            Case Rng.Column
                    strTR = “<tr>”

            Case Else
                    strTR = “”

        End Select

        ‘<td>タグを入れる
        strHTML = strHTML & strTR & “<td>” & Rng.Value

    Next Rng

    ‘表のデータを抜けたら、最後に<table>タグを入れる
    strHTML = “<table>” & vbCrLf & strHTML & “</table>”

    ‘Tableタグとしても表示(展開されない状態で表示)
    Dim strHTML_Tag As String

    ‘「<」、「>」をエスケープ
    strHTML_Tag = VBA.Replace(strHTML, “<“, “&lt;”)
    strHTML_Tag = VBA.Replace(strHTML_Tag, “>”, “&gt;”)

    ‘HTMLタグを見やすいように改行とスペース
    strHTML_Tag = VBA.Replace(strHTML_Tag, “&lt;table&gt;”, “<br>&lt;table&gt;”)
    strHTML_Tag = VBA.Replace(strHTML_Tag, “&lt;/table&gt;”, “<br>&lt;/table&gt;”)
    strHTML_Tag = VBA.Replace(strHTML_Tag, “&lt;tr&gt;”, “<br>&nbsp;&nbsp;&lt;tr&gt;”)
    strHTML_Tag = VBA.Replace(strHTML_Tag, “&lt;td&gt;”, “<br>&nbsp;&nbsp;&nbsp;&nbsp;&lt;td&gt;”)

    strHTML = strHTML & “<hr>” & vbCrLf & strHTML_Tag

    ‘テンポラリフォルダに保存後、ブラウザを開く
    Dim FSO As Object
    Dim strPath As String
    Dim strFileName As String
    Dim n As Long

    Set FSO = CreateObject(“Scripting.FileSystemObject”)

        ‘テンポラリフォルダのパスを取得
        strPath = FSO.GetSpecialFolder(2)

        ‘テンポラリファイル名
        strFileName = FSO.GetTempName

        ‘拡張子追加
        strFileName = strFileName & “.html”

    Set FSO = Nothing

    ‘テーブルHTMLをテキストファイルとして保存
    n = FreeFile
    Open strPath & “\” & strFileName For Output As #n
        Print #n, strHTML
    Close #n

    ‘ファイルを開く
    Shell “EXPLORER.EXE ” & ” ” & strPath & “\” & strFileName

End Sub