如何將EXCEL中的單元格內容轉換爲HTML代碼？

基本上我想創建宏來獲取單元格內容並放入HTML段落標記，但是如果單元格包含新行符號以將新行放入新標記中。有人可以幫我做或提供給我嗎？提前致謝。如何將EXCEL中的單元格內容轉換爲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>

來源

2013-08-21 m.k0lev

我已經找到了解決辦法。

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-22 10:46:09

如何將EXCEL中的單元格內容轉換爲HTML代碼？

回答

相關問題