我在本周早些时候发布了一个关于HTML到Excel转换的问题,这对我很有用 . 我给出的示例宏代码很好地将代码从HTML格式转换为Excel单元格(感谢Siddharth Rout!) . 我现在遇到的问题似乎无法在任何地方找到答案,这与IE对象如何处理Excel中的段落,中断和列表项有关 . p,br和li将文本移动到原始单元格下方的单元格中,覆盖这些单元格中的任何数据 . 有没有办法让HTML块只显示在一个单元格中(意味着每个新行标记只会在同一个单元格中创建一个新行)?
VBA code
Sub Sample()
Dim Ie As Object
Set Ie = CreateObject("InternetExplorer.Application")
With Ie
.Visible = False
.Navigate "about:blank"
.document.body.InnerHTML = Sheets("Sheet1").Range("A1").Value
.document.body.createtextrange.execCommand "Copy"
ActiveSheet.Paste Destination:=Sheets("Sheet1").Range("A1")
.Quit
End With
End Sub
Sample HTML
<p> Here are some possible uses:</p> <ul> <li><font color = "red"> syntax highlighting code snippets</font></li> <li style ="font-weight:bold; color: orange">validating credit card numbers, phone numbers, and zip codes</li> <li style = "font-style: italic">styling email addresses and tags</li> </ul>
Sample Output 显示在多行上(希望在一个单元格中显示多行 - 类似于shift输入的方式)
Here are some possible uses:
syntax highlighting code snippets
**validating credit card numbers, phone numbers, and zip codes**
*styling email addresses and tags*
1 回答
我不确定你是否可以这样做( I could be wrong ) . 但如果只是你的数据被覆盖的问题,那么这里是另一种选择:)
LOGIC: 不是将其粘贴在同一工作表中,而是将其粘贴到临时工作表中,然后在sheet1中复制这些行和 insert ,这样就不会覆盖数据 . 查看快照 .
SNAPSHOT:
CODE:
HTH