- 締切済み
エクセルファイルを、HTMLに出力
エクセルファイルを各項目ごとにHTMLに出力したいのですが、 何かよいソフトや方法はないでしょうか？ <tr><td class="x_01"><a href="【A1】" target="_blank">【B1】</a></td><td class="y_02">【C1】</td><td class="z_03">【D1】</td></tr> <tr><td class="x_01"><a href="【A2】" target="_blank">【B2】</a></td><td class="y_02">【C2】</td><td class="z_03">【D2】</td></tr> .... このような形式で、出力していきたいです。 とりあえず、このように自動で出力できる方法ならばどのような方法でも構いません。 どうぞよろしくおねがいします。
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- kigoshi
- ベストアンサー率46% (120/260)
スマートな方法ではないかも知れませんが、ＶＢＡで出力する例です。 Private Sub htmlOut() Dim DQ As String Dim fileNo As Integer Dim bookPath As String Dim htmlFile As String Dim rIdx As Long DQ = Chr(34) bookPath = ActiveWorkbook.Path htmlFile = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 3) & "html" If Right(bookPath, 1) <> "\" Then bookPath = bookPath & "\" fileNo = FreeFile Open bookPath & htmlFile For Output As fileNo Print #fileNo, "<html>" Print #fileNo, "<body>" Print #fileNo, "<table>" rIdx = 0 Do Until Cells(rIdx + 1, 1).Value = "" rIdx = rIdx + 1 Print #fileNo, "<tr>"; Print #fileNo, "<td class=" & DQ & "x_01" & DQ & "><a href=" & DQ & "【" & Cells(rIdx, 1).Value & "】" & DQ & " target=" & DQ & "_blank" & DQ & ">【" & Cells(rIdx, 2).Value & "】</a></td>"; Print #fileNo, "<td class=" & DQ & "y_02" & DQ & ">【" & Cells(rIdx, 3).Value & "】</td>"; Print #fileNo, "<td class=" & DQ & "z_03" & DQ & ">【" & Cells(rIdx, 4).Value & "】</td>"; Print #fileNo, "</tr>" Loop Print #fileNo, "</table>" Print #fileNo, "</body>" Print #fileNo, "</html>" Close End Sub シートタブを右クリックし［コードの表示］をクリック。 右側のエディタエリアに上記コードを貼り付けて実行（[Ｆ５]キーを押）して下さい。 エクセルファイルが保存されているフォルダに、そのファイルと同じ名前で拡張子が「html」のファイルが作成されます。
お礼
ありがとうございました！！ 無事HTMLに出力することができました。 非常に助かります！！