Option Explicit Const TRstag As String = "", TRetag As String = "", _ THstag As String = "", THetag As String = " " Const TDstago As String = "" Print #1, "" Print #1, "" Print #1, "" Print #1, "" & TableName & "" Print #1, "" Print #1, "" Print #1, "" Print #1, "" Print #1, TRstag; For c = colstart To colend '一行目が表の見出しになっているものとして、一行目をTHにします Print #1, THstag; EscapeMarkUps(Cells(1, c).Value); THetag; Next Print #1, TRetag For rn = rowstart To rowend Print #1, TRstag; For cn = colstart To colend '選択範囲をTDにします Print #1, TDstago; Select Case Cells(rn, cn).HorizontalAlignment Case xlCenter '横位置指定を取得してHTMLに入れます Print #1, center; Case xlRight Print #1, right; End Select Print #1, tagc; EscapeMarkUps(Cells(rn, cn).Value); TDetag; Next Print #1, TRetag Next Print #1, "
" & TableName & "
" Print #1, "" Print #1, ""; MsgBox "HTML形式のファイル" & file_name & "を作成しました。", _ vbOKOnly, "変換終了" Close #1 End Sub Function EscapeMarkUps(cont As String) As String cont = Application.Substitute(cont, amp, neamp) cont = Application.Substitute(cont, lt, nelt) cont = Application.Substitute(cont, gt, negt) cont = Application.Substitute(cont, quot, nequot) EscapeMarkUps = cont End Function