Excelの表をHTMLへ変換する方法！widthやthも調整可！

xcelの表をHTMLへ変換したいときはないでしょうか。

例えば、WordPressなどWebへExcelの表を貼り付けたい時などです。

けど、そんな中で悩むことは、

・Excelの表をHTMLへ変換したいが方法がわからない。
・WordPressへExcelの表を貼り付けたいが、余計なスタイルが入るので除きたいが方法がわからない。
・VBAで表をHTMLへ変換したいが複雑でどう組めばよいかわからない。

ですよね。

今回はそんなお悩みを解決する

Excelの表をHTMLへ変換し、テキストファイルへ出力する方法

についてまとめます！

Excelの表をHTMLへ変換するイメージ

Excelの表をHTMLへ変換するイメージについて説明をします。

HTMLへ変換したい表を用意します。

表をマウスなどで範囲選択し。

VBAを実行すると、

外部のテキストファイルへ表を変換したHTMLが出力されます！

WordPressなどWebページへコピペすると、

ブラウザではこんな感じで表示されます！

No.	商品名	単価
1	にんじん	100
2	きゅうり	70
3	ピーマン	50

ワンクリックで変換からテキスト出力までできるので便利ですね！

それでは早速使ってみましょう！

HTMLへ変換する表を用意する

HTMLへ変換する表を用意しましょう。

表の内容はなんでもよいですが、確認のため複数行、複数列の構成にします。

サンプルは以下の通りです。

VBAでExcelの表をHTMLへ変換する

VBAを使い、Excelの表をHTMLへ変換する機能を追加していきましょう。

VBAを用意する

まずは、今回使うVBAのコードを用意しましょう。

VBAのコードは以下の通りです。

Sub Excelの表をHTMLへ変換する()
    
    'テキストを出力するテキストファイルを指定します。デフォルトはVBAを実行するブックと同階層となります。
    Open ThisWorkbook.Path & "\outputtable.txt" For Output As #1
    
    'thにする箇所を選択します｡0の場合はすべてtd､1の場合は横の1行目をth､2の場合は縦の1列目をthとします｡
    selectth = 1
    
    'TableのサイズやCSSなどスタイル設定があれば入力します。
    strTableStyle = "<table width=""100%"">"
    
    '選択した範囲を配列へ格納します。
    tempHairetsu = Selection

    Dim i As Integer
    Dim j As Integer

    Print #1, strTableStyle
    Print #1, "<tbody>"

    ' 選択した範囲全要素をループします。
    ' 行の件数分縦方向に繰り返します。
    For i = LBound(tempHairetsu, 1) To UBound(tempHairetsu, 1)
        Print #1, "<tr>"
        
        ' 列の件数分横方向に繰り返します。
        For j = LBound(tempHairetsu, 2) To UBound(tempHairetsu, 2)
            
            Select Case selectth
                Case 1
                    '1行目をthにします。
                    If i = 1 Then
                       Print #1, "<th>" & tempHairetsu(i, j) & "</th>"
                    Else
                      Print #1, "<td>" & tempHairetsu(i, j) & "</td>"
                    End If
                    
                Case 2
                    '1列目をthにします。
                    If j = 1 And i = 2 Then
                       Print #1, "<th>" & tempHairetsu(i, j) & "</th>"
                    Else
                      Print #1, "<td>" & tempHairetsu(i, j) & "</td>"
                    End If
                    
                Case Else
                    '指定がない、もしくは0の場合はtdにします。
                    Print #1, "<td>" & tempHairetsu(i, j) & "</td>"
            End Select
        Next
        Print #1, "</tr>"
    Next

    Print #1, "</tbody>"
    Print #1, "</table>"

'開いたファイルを閉じます。
Close #1

'終わったのが分かるようにメッセージを出す
MsgBox "表のHTML変換が完了しました！"

End Sub