マクロ Excel表をHTMLで書き出す

質問

下記はExcel表をHTMLで書き出すマクロです。
参考
https://mayer.jp.net/?tag=excel-html-table-%E5%A4%89%E6%8F%9B-%E3%83%9E%E3%82%AF%E3%83%AD
（コードが長いため、記載することはできませんでした。お手数ですが、ダウンロードをお願いします）

●結果
<table>
<tr>
<td colspan="3">テスト</td>
</tr>
<tr>
<td>1</td>
<td>A</td>
<td>東京</td>
</tr>
<tr>
<td>2</td>
<td>B</td>
<td>神奈川</td>
</tr>
</table>

テーブルの一行目の「テスト」のタグはtdタグです。これをtrに変えたいのです。
<table>
<tr>
<tr colspan="3">テスト</tr>
</tr>
<tr>
<td>1</td>
<td>A</td>
<td>東京</td>
</tr>
<tr>
<td>2</td>
<td>B</td>
<td>神奈川</td>
</tr>
</table>

VBAコードのどこを書き換えたら良いでしょうか？
宜しくお願いします。

回答No.1

togurin · ベストアンサー

マクロもHTMLの表もよく分かりませんがコードだけ見ると
160行目
td = " <td colspan=""" & Count_c & """>" & LineBreak & "</td>"
を
td = " <tr colspan=""" & Count_c & """>" & LineBreak & "</tr>"
とすれば良い気がします。
最初のtdは変数として扱われているのでtdのままにしてください。

他に影響が出るかもしれませんし、ぱっと見た感じの第一感ですので、
間違ってたらすみません。

お礼

コメントありがとうございます。
<tr>じゃなく<th>でした。お陰様でうまくできました。
感謝です。