VBAでエクセル表をHTML(table,tr,td)でテキストファイルに変換して出力

エクセルの表データをHTMLに変換したいときがあります。

このときTable,tr,tdタグなどを1行ずつ貼り付けるのは非常に手間がかかります。

とくに表データが多い場合、コピー箇所を間違えて、抜けや漏れがあったりすることもあります。

そこでVBAを使ってエクセルの表データをHTML変換し、テキストファイルにHTMLとして出力する方法を紹介します。

・エクセルの表データをHTMLとしてテキストへ書き出す

・VBA入りのエクセルファイルをダウンロード可能

それでは以下で詳しく紹介していきます。

1 VBAで請求書PDFの表データをエクセル台帳に転記する
2 VBA入りのエクセルファイルをダウンロード
3 VBA作成前の事前準備
- 3.1 準備1. ExcelでVBAを使うための事前準備
- 3.2 準備2. テキストファイルを扱うための事前準備
4 VBAのプログラムソース解説
5 類似の事例
6 Excel VBAについて詳しく理解したいなら
- 6.1 Excel VBAで出来ることは動画でも解説
- 6.2 VBAの勉強方法

VBAで請求書PDFの表データをエクセル台帳に転記する

VBAでPDFを操作して、PDFのテキスト情報をエクセルに出力します。

このプログラムの使用手順は以下のとおりです。

手順

手順1. 1行目に表の幅(数値)を入力

手順2. HTMLとして出力したい表データをエクセルへ入力

手順3. VBAプログラムを実行

以下で使い方の手順を紹介します。

手順1. 1行目に表の幅(数値)を入力

上記のように1行目に表の幅となる数値を入力します。

表の幅となる数値の記載について、以下の注意点があります。

1. %は入力不要(プログラムで自動で%を入力)

2．全ての幅を足して100になるように調整する

3. 列数の上限はなし。必要に応じて右に列を増やす

上記を注意点としている理由は、表の幅は「%」を想定しているからです。

pxの幅ではないので、注意が必要です。また各列に記入した数値の合計が100になるようにします。

手順2. HTMLとして出力したい表データをエクセルへ入力

HTMLとして出力した表データを2行目以降に入力します。

表データの入力について、以下の注意点があります。

1. 2行目はヘッダー情報を入力

2．3行目以下に内容を入力

上記のとおり、2行目以降にHTMLとして出力したいデータを入力します。

1行目ではない点に注意します。

手順3. VBAプログラムを実行

VBAを実行するとエクセルと同じフォルダにテキストファイルを生成します。

このテキストファイルにはHTMLに変換されたテキスト情報が出力されています。

ボタンにVBAプログラムを登録

上記の画像では、VBAプログラムをボタンに登録しています。

ボタンにVBAプログラムを登録することで、ボタンを押下しプログラムを実行することができます。

ボタンをVBAプログラムを設定したい場合は、以下で動画も交えて設定方法を紹介しているので、そちらをご覧ください。

エクセルのボタンにマクロ登録｜色付け・削除の方法やボタンを押せないときの対処法まで

エクセルマクロを仕事で使うとき、ボタンを押してマクロを実行する方法は必ず知っておきたい技術です。実際、ボタンを押してマクロ実行できると、マクロを知らない人にも仕事を渡しやすくなります。そこで、この記事では以下の内容を […]

VBA入りのエクセルファイルをダウンロード

以下で紹介しているVBAプログラムをそのまま使いたい人は、以下のフォームからダウンロードできます。

登録したメールアドレスへ「VBAプログラムが含まれたエクセル」を送信します。

本プログラムの内容をそのまま使用可能です。ぜひお仕事にお役立てください。

読み込んでいます…

それでは、以下でプログラムについて詳細を説明します。

VBA作成前の事前準備

ExcelでVBAを使うためにはいくつかの準備が必要です。

具体的には以下です。

準備1. ExcelでVBAを使うための事前準備

準備2. テキストファイルを扱うための事前準備

上記に関して、以下で説明します。

準備1. ExcelでVBAを使うための事前準備

エクセルVBAを使うためには、保存ファイルの拡張子変更、Excelの基本設定変更の2つをしておきます。

2つともで難しい作業はなく、それぞれ1分もあれば設定変更可能です。

上記に関しては、以下の記事で解説をしています。

エクセルマクロ使い方｜編集方法をVBA作成から保存のやり方まで解説

これからエクセルマクロを勉強しようとする人にとって、マクロの編集は一つのカベです。マクロというこれまで触ったことのないものを操作できるようになるのは決して簡単なことではありません。しかし順序良く学んでいけば、難しいも […]

もしVBAを使うための準備段階に不安がある人は上記をご覧ください。

この内容は以下の動画で紹介しています。

入門エクセルマクロの使い方｜マクロ作成から実行までを徹底解説

文字や画像だけで分かりづらい人は上記の動画をご覧ください。

準備2. テキストファイルを扱うための事前準備

この事例ではテキスファイルを操作するために、FileSystemObjectを活用します。

FileSystemObjectを使用する場合、VBAの参照設定を変更しておく必要があります。参照設定とは、機能拡張させることです。

FileSystemObjectを使用するために以下の参照設定を変更します。

「Microsoft Scripting Runtime」にチェックを入れる

これでテキストファイルを操作できるようになります。

設定方法の詳細は以下のページで紹介しています。

VBAのFSO(FileSystemObject)とは？参照設定や使えないときの対処法からメソッドや事例まで

VBAでフォルダやファイルを操作するとき、FSO(FileSystemObject)を設定すると便利です。このページではFileSystemObjectを使うために必要な設定(参照設定の方法)を紹介します。また参照設 […]

VBAのプログラムソース解説

今回紹介するプログラムの概要は以下です。

'プログラム0｜変数設定の指定
Option Explicit

'プログラムA-1｜プログラム開始
Sub MakeTableHTML()
    
    'プログラムA-2｜シート設定
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    'プログラムA-3｜1行目の一番右の列を取得
    Dim mytable As Variant
    mytable = ws.Range("A1").CurrentRegion
       
    'プログラムA-4｜mytableの1行目の値に「%」を付ける
    Dim k As Long
    For k = LBound(mytable, 2) To UBound(mytable, 2)
        mytable(1, k) = mytable(1, k) & "%"
    Next
    
    'プログラムA-5｜文字列strを設定して、表の開始箇所に<table>タグを付ける
    Dim str As String
    str = "<table>" & vbCrLf
    
    'プログラムA-6｜wsの2行目から最終行まで処理
    Dim i As Long
    For i = 2 To UBound(mytable)
        
        'プログラムA-7｜行の開始箇所に<tr>タグを付ける
        str = str & " <tr>" & vbCrLf
        
        'プログラムA-8｜HTMLのth, tdタグに変換(プログラムBにデータを渡す)
        If i = 2 Then
            str = str & GetEachRowContents(i, "  <th", "</th>", mytable)
        ElseIf i > 2 Then
            str = str & GetEachRowContents(i, "  <td", "</td>", mytable)
        End If
        
        'プログラムA-9｜行の終了箇所に</tr>タグを付ける
        str = str & " </tr>" & vbCrLf
    Next
    
    'プログラムA-10｜表の終了箇所に</table>タグを付ける
    str = str & "</table>"
    
    'プログラムA-10｜FileSystemObjectを設定
    Dim fs As Scripting.FileSystemObject
    Set fs = New Scripting.FileSystemObject
    
    'プログラムA-11｜新しいテキストファイルのパスを設定
    Dim path As String
    path = ThisWorkbook.path & "\" & "table.txt"
    
    'プログラムA-12｜新しく作成したテキストファイルを書き込みモードで開く
    Dim txt As TextStream
    Set txt = fs.OpenTextFile(Filename:=path, IOMode:=ForWriting, Create:=True, Format:=TristateUseDefault)
    
    'プログラムA-13｜テキストファイルにstrを書き込む
    txt.WriteLine str
    
    'プログラムA-14｜オブジェクト解放
    Set txt = Nothing
    Set fs = Nothing

'プログラムA-15｜プログラム終了
End Sub

'プログラムB-1｜プログラム開始
Function GetEachRowContents(i, tagA, tagB, ByVal mytable As Variant) As String
    
    'プログラムB-2｜変数設定
    Dim k As Long
    Dim width As String, st As String
    
    'プログラムB-3｜文字列stの初期化
    st = ""
    
    'プログラムB-4｜Tableの各行をHTMLに変換してstに格納
    For k = 1 To UBound(mytable, 2)
        width = tagA & " width=""" & mytable(1, k) & """>"
        st = st & width & mytable(i, k) & tagB & vbCrLf
    Next
    
    'プログラムB-5｜戻り値としてstを設定
    GetEachRowContents = st

'プログラムB-6｜プログラム終了
End Function

'プログラム0｜変数設定の指定

Option Explicit

'プログラムA-1｜プログラム開始

Sub MakeTableHTML()

'プログラムA-2｜シート設定

Dim ws As Worksheet

Set ws = ThisWorkbook.Worksheets("Sheet1")

'プログラムA-3｜1行目の一番右の列を取得

Dim mytable As Variant

mytable = ws.Range("A1").CurrentRegion

'プログラムA-4｜mytableの1行目の値に「%」を付ける

Dim k As Long

For k = LBound(mytable, 2) To UBound(mytable, 2)

mytable(1, k) = mytable(1, k) & "%"

'プログラムA-5｜文字列strを設定して、表の開始箇所に<table>タグを付ける

Dim str As String

str = "<table>" & vbCrLf

'プログラムA-6｜wsの2行目から最終行まで処理

Dim i As Long

For i = 2 To UBound(mytable)

'プログラムA-7｜行の開始箇所に<tr>タグを付ける

str = str & " <tr>" & vbCrLf

'プログラムA-8｜HTMLのth, tdタグに変換(プログラムBにデータを渡す)

If i = 2 Then

str = str & GetEachRowContents(i, " <th", "</th>", mytable)

ElseIf i > 2 Then

str = str & GetEachRowContents(i, " <td", "</td>", mytable)

End If

'プログラムA-9｜行の終了箇所に</tr>タグを付ける

str = str & " </tr>" & vbCrLf

'プログラムA-10｜表の終了箇所に</table>タグを付ける

str = str & "</table>"

'プログラムA-10｜FileSystemObjectを設定

Dim fs As Scripting.FileSystemObject

Set fs = New Scripting.FileSystemObject

'プログラムA-11｜新しいテキストファイルのパスを設定

Dim path As String

path = ThisWorkbook.path & "\" & "table.txt"

'プログラムA-12｜新しく作成したテキストファイルを書き込みモードで開く

Dim txt As TextStream

Set txt = fs.OpenTextFile(Filename:=path, IOMode:=ForWriting, Create:=True, Format:=TristateUseDefault)

'プログラムA-13｜テキストファイルにstrを書き込む

txt.WriteLine str

'プログラムA-14｜オブジェクト解放

Set txt = Nothing

Set fs = Nothing

'プログラムA-15｜プログラム終了

End Sub

'プログラムB-1｜プログラム開始

Function GetEachRowContents(i, tagA, tagB, ByVal mytable As Variant) As String

'プログラムB-2｜変数設定

Dim k As Long

Dim width As String, st As String

'プログラムB-3｜文字列stの初期化

st = ""

'プログラムB-4｜Tableの各行をHTMLに変換してstに格納

For k = 1 To UBound(mytable, 2)

width = tagA & " width=""" & mytable(1, k) & """>"

st = st & width & mytable(i, k) & tagB & vbCrLf

'プログラムB-5｜戻り値としてstを設定

GetEachRowContents = st

'プログラムB-6｜プログラム終了

End Function

それでは、以下でプログラムを詳しく説明していきます。

プログラム0｜変数宣言の指定

Option Explicit

1	Option Explicit

「Option Explicit」とは、変数宣言を強制するためのものです。

予期しないエラーを防止できるため「Option Explicit」を入力することを習慣化することを推奨しています。

詳しい説明は以下のページで紹介しています。

エクセルマクロVBAのOption Explicitとは？設定方法と宣言する理由

エクセルマクロVBAではOption Explicitを設定すると変数宣言を強制させることができます。 Option Explicitは入力しておくと、変数宣言が必須になります。そのせいで変数宣言していないとエラー表示が […]

また変数については、以下のページで紹介しています。

VBAの変数とは？型や初期値からメリットや使う意義まで解説

VBAでは変数を使うとき、最初に変数を定義すると便利です。このページでは変数を定義する方法や、変数名の付け方などについて解説します。上記の動画で変数について解説していますので、イメージを掴みたい人はご覧ください。以 […]

プログラムA-1｜プログラム開始

Sub MakeTableHTML()

1	Sub MakeTableHTML()

「Sub MakeTableHTML()」のプログラムを開始することを意味します。

VBAではプロシージャという単位でプログラムを呼び出します。

プロシージャの構文は下記となっています。

Sub プロシージャ名()
    '実行プログラム
End Sub

Sub プロシージャ名()

'実行プログラム

End Sub

「Sub」で始まり「End Sub」で終わります。

プロシージャに関連するmoduleの話については以下で説明しています。

エクセルマクロVBAの標準モジュールを解説｜名前変更/削除/呼び出し/実行/コピー/複数作成/表示など

エクセルマクロVBAでは、標準モジュールを使ってプログラムを作成します。しかしマクロを使い始めたばかりだと、標準モジュールの使い方が分からず困ってしまうことがあります。そこで、エクセルマクロVBA初心者が標準モジュー […]

プログラムA-2｜シート設定

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1")

1 2	Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("Sheet1")

「Sheet1」をwsとして設定します。

なお「ThisWorkbook」を付けることで、VBAプログラムが含まれるエクセルファイルの「Sheet1」を細かく指定しています。

プログラムA-3｜1行目の一番右の列を取得

    Dim mytable As Variant
    mytable = ws.Range("A1").CurrentRegion

1 2	Dim mytable As Variant mytable = ws.Range("A1").CurrentRegion

セルA1からエクセルの表範囲を取得し、mytableとして二次元配列で取得します。

CurrentRegionで、セルA1を含む範囲として読み込まれる領域を取得できます。

この事例では画像で囲んだA1:D11がCurrentRegionとして取得されます。

この範囲は取り扱うデータによって変化します。

表範囲としてどこまで取得できているかどうかは以下で検証できます。

Debug.Printでの検証結果

Dim mytable As Variant
mytable = ws.Range("A1").CurrentRegion
Debug.Print "行数:", UBound(mytable)
Debug.Print "列数:", UBound(mytable, 2)

>>>行数:11 
>>>列数:4

Dim mytable As Variant

mytable = ws.Range("A1").CurrentRegion

Debug.Print "行数:", UBound(mytable)

Debug.Print "列数:", UBound(mytable, 2)

>>>行数:11

>>>列数:4

11行目、4列目(D列)の範囲をmytableとして取得できていることが分かります。

プログラムA-4｜mytableの1行目の値に「%」を付ける

    Dim k As Long
    For k = LBound(mytable, 2) To UBound(mytable, 2)
        mytable(1, k) = mytable(1, k) & "%"
        Debug.Print "k:" & k, mytable(1, k)
    Next

Dim k As Long

For k = LBound(mytable, 2) To UBound(mytable, 2)

mytable(1, k) = mytable(1, k) & "%"

Debug.Print "k:" & k, mytable(1, k)

mytableの配列1行目に「%」の文字列を結合します。これによりHTMLでTableの幅の大きさを%で変更します。

Debug.Printでの検証結果

Dim k As Long
For k = LBound(mytable, 2) To UBound(mytable, 2)
    mytable(1, k) = mytable(1, k) & "%"
    Debug.Print "k:" & k, mytable(1, k)
Next

>>>k:1  10%
>>>k:2  15%
>>>k:3  20%
>>>k:4  55%

Dim k As Long

For k = LBound(mytable, 2) To UBound(mytable, 2)

mytable(1, k) = mytable(1, k) & "%"

Debug.Print "k:" & k, mytable(1, k)

>>>k:1 10%

>>>k:2 15%

>>>k:3 20%

>>>k:4 55%

これで1行目の数値に%を結合して、mytable(1,k)の数値に%を付けた値として格納できます。

VBAで請求書PDFの表データをエクセル台帳に転記する

手順1. 1行目に表の幅(数値)を入力

手順2. HTMLとして出力したい表データをエクセルへ入力

手順3. VBAプログラムを実行

ボタンにVBAプログラムを登録

VBA入りのエクセルファイルをダウンロード

VBA作成前の事前準備

準備1. ExcelでVBAを使うための事前準備

準備2. テキストファイルを扱うための事前準備

VBAのプログラムソース解説

プログラム0｜変数宣言の指定

プログラムA-1｜プログラム開始

プログラムA-2｜シート設定

プログラムA-3｜1行目の一番右の列を取得

Debug.Printでの検証結果

プログラムA-4｜mytableの1行目の値に「%」を付ける

Debug.Printでの検証結果

プログラムA-5｜文字列strを設定して、表の開始箇所に タグを付ける program Visual Basic Dim str As String str = "<table>" & vbCrLf 12 Dim str As String str = "<table>" & vbCrLf

プログラムA-6｜wsの2行目から最終行まで処理

プログラムA-7｜行の開始箇所に タグを付ける

プログラムA-8｜HTMLのth, tdタグに変換(プログラムBにデータを渡す)

プログラムA-9｜行の終了箇所に タグを付ける

プログラムA-10｜strを で閉じる

プログラムA-11｜FileSystemObjectの設定

FileSystemObjectに関する注意点

プログラムA-12｜新しいテキストファイルのパスを設定

プログラムA-13｜新しく作成したテキストファイルを書き込みモードで開く

プログラムA-13｜テキストファイルにstrを書き込む

プログラムA-14｜オブジェクト解放

プログラムA-15｜プログラム終了

プログラムB-1｜プログラム開始

プログラムB-2｜変数設定

プログラムB-3｜文字列stの初期化

プログラムB-4｜Tableの各行をHTMLに変換してstに格納

Debug.Printでの検証結果

i=2のとき

i=3のとき

プログラムB-5｜戻り値としてstを設定

プログラムB-6｜プログラム終了

類似の事例

Excel VBAについて詳しく理解したいなら

Excel VBAで出来ることは動画でも解説

VBAの勉強方法

Footer

人気記事

サイト運営情報

パソコンスキル

仕事術

プログラムA-5｜文字列strを設定して、表の開始箇所に
タグを付ける

program
Visual Basic

Dim str As String str = "<table>" & vbCrLf

1
2

Dim str As String
str = "<table>" & vbCrLf

プログラムA-7｜行の開始箇所に
タグを付ける

プログラムA-9｜行の終了箇所に
タグを付ける

プログラムA-10｜strを
で閉じる