0

基本的にはマクロを作成してセルの内容を取得してHTML段落タグに入れたいのですが、セルに改行記号が含まれている場合は、改行を新しいタグに入れます。誰かがそれを行うのを手伝ったり、私に提供したりできますか? 前もって感謝します。

正しくない：

<html>
<head>
    <title>example</title>
</head>
<body>
    <p>1
       2
       3</p>
</body>
</html>

正しい：

<html>
<head>
    <title>example</title>
</head>
<body> 
    <p>1</p>
    <p>2</p>
    <p>3</p>
</body>
</html>
4

1 に答える 1

0

私は解決策を見つけました。

Sub lf2html()

Dim i, chrCount As Integer
Dim htmlTxt As String
Dim cell As Range
Dim SetCellStart
Dim SetCellStop

SetCellStart = InputBox("StartCell ( f0r example: a1 ):", "Enter number!")
SetCellStop = InputBox("StopCell ( f0r example: a2 )", "Enter number!")

'MsgBox SetCellStart SetCellStop
For Each cell In Range(SetCellStart, SetCellStop)
    htmlTxt = "<html><head></head><body><p>"
        chrCount = cell.Characters.Count

        For i = 1 To chrCount
            With cell.Characters(i, 1)
                If (Asc(.Text) = 10) Then
                    htmlTxt = htmlTxt & "</p><p>"
                Else
                    htmlTxt = htmlTxt & .Text
                End If
            End With
        Next

    htmlTxt = htmlTxt & "</p></body></html>"
    cell.Value = htmlTxt
Next cell

End Sub
于 2013-08-22T10:46:09.503 に答える