エクセル表をHTML化
高橋太郎 赤
佐藤太郎 白
鈴木太郎 黄
山田太郎 青
Sub convertHTML()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(1)
Dim htmlFile As String
htmlFile = ActiveWorkbook.Path & "\ファイル名.html"
Open htmlFile For Output As #1
Dim i, j As Long
i = 1
Print #1, "<table>"
Do While ws.Cells(i, 1).Value <> ""
Print #1, vbTab & "<tr>";
j = 1
Do While ws.Cells(i, j).Value <> ""
Print #1, "<td>" & ws.Cells(i, j).Value & "</td>";
j = j + 1
Loop
Print #1, "</tr>" & vbCr;
i = i + 1
Loop
Print #1, "</table>"
Close #1
MsgBox htmlFile & "に書き出しました"
End Sub
以下が結果です。
<table>
<tr><td>高橋太郎</td><td>赤</td></tr>
<tr><td>佐藤太郎</td><td>白</td></tr>
<tr><td>鈴木太郎</td><td>黄</td></tr>
<tr><td>山田太郎</td><td>青</td></tr>
</table>
下記のようにするにはどうすればよいでしょうか?
<table>
<tr><td>赤</td><td>高橋太郎</td></tr>
<tr><td>白</td><td>佐藤太郎</td></tr>
<tr><td>黄</td><td>鈴木太郎</td></tr>
<tr><td>青</td><td>山田太郎</td></tr>
</table>
セルを書き換えた方が早いですが、名前がバラバラですし、何千行もあり、作業が大変なので、マクロを書き換えた方が早いかと思いましたので。
宜しくお願いします。