HTMLのタグを出力 マクロ

質問

A1、B1、C1…にテキストを入れます。
A1セル スズキ　B1セル タロウ　C1セル 東京
　・
　・
HTML出力
A1セル→<div>スズキ</div>
B1セル→<p>タロウ</p>
Cセル→<span>東京</span>

<div>スズキ</div>
<p>タロウ</p>
<span>東京</span>

それを行の数値が入ってないセルまで繰り返しってのをやりたいのですが、どうしたら良いでしょうか？
宜しくお願いします。

回答No.1

HohoPapa · ベストアンサー

こんなコードはいかがでしょうか。

Sub convertHTML()

　Dim ws As Worksheet
　Dim htmlFile As String
　Dim i As Long
　Dim LineData As String

　Set ws = ThisWorkbook.Worksheets(1)
　htmlFile = ActiveWorkbook.Path & "\Sample.html"

　Open htmlFile For Output As #1

　i = 1
　Do While ws.Cells(i, 1).Value <> ""
　　LineData = "<div>" & ws.Cells(i, 1).Value & "</div>" & vbCrLf
　　LineData = LineData & "<p>" & ws.Cells(i, 2).Value & "</p>" & vbCrLf
　　LineData = LineData & "<span>" & ws.Cells(i, 3).Value & "</span>" & vbCrLf
　　Print #1, LineData
　　i = i + 1
　Loop

　Close #1
　MsgBox htmlFile & "に書き出しました"

End Sub

お礼

コメントありがとうございます。
すごくシンプルなプログラムです。勉強になりました。