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, "" & TableName & ""
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, " "
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 |