如何将HTML格式的文本粘贴到一个excel单元格中_Excel_Vba

如何将HTML格式的文本粘贴到一个excel单元格中

excel vba

如何将HTML格式的文本粘贴到一个excel单元格中,excel,vba,Excel,Vba,我有一个excel单元格（AF17），里面有HTML数据。我需要将其复制到我报告（A7）中的单元格中我需要格式化的文本保留在一个单元格中。每当我粘贴数据时，它都会将自己垂直分割成许多单元格。以下是我的代码： Private Sub Converter() Dim objData As DataObject ' Set a reference to MS Forms 2.0 Dim sHTML As String Dim sSelAdd As String

我有一个excel单元格（AF17），里面有HTML数据。我需要将其复制到我报告（A7）中的单元格中我需要格式化的文本保留在一个单元格中。每当我粘贴数据时，它都会将自己垂直分割成许多单元格。以下是我的代码：

Private Sub Converter()

    Dim objData As DataObject ' Set a reference to MS Forms 2.0
    Dim sHTML As String
    Dim sSelAdd As String

    Application.EnableEvents = False

    sHTML = "<HTML>" & Range("AF3").Value & "</HTML>"

    Set objData = New DataObject
    objData.SetText sHTML
    objData.PutInClipboard
    Range("A7").Select

    ActiveSheet.PasteSpecial Format:="Unicode Text"

    Application.EnableEvents = True

End Sub

专用子转换器（）
Dim objData As DataObject'设置对MS Forms 2.0的引用
作为字符串的Dim sHTML
被包裹成细绳
Application.EnableEvents=False
sHTML=“”&范围（“AF3”）。值
Set objData=新数据对象
objData.SetText sHTML
objData.PutInClipboard
范围（“A7”）。选择
ActiveSheet.PasteSpecial格式：=“Unicode文本”
Application.EnableEvents=True
端接头

如何将所有文本保留在一个单元格中？

很少有HTML标记会导致内容在另一个单元格中继续。我知道的是

和

，但我不确定

标记是否是HTML中的原因

您可以尝试删除导致此问题的标记，或尝试对其使用（不确定

是否直接起作用）

另一个选项是根据需要格式化单元格，将文件另存为.html或.mhtml，并检查为该单元格生成的html和CSS。

什么是html？以下是我们希望保持格式化的重要文本

项目
项目

项目
项目2

项目

项目项目项目项目项目项目项目项目项目项目

项目范围（“A7”）。值=”&范围（“AF3”）。值和“”注释区域。这里有很多东西。不，当您尝试这样做时，文本实际上也会放入所有html标记中。我们需要它来格式化文本，就像在富文本字段中一样。