HTML形式のテキストを1つのExcelに貼り付ける方法

HTMLデータを含むExcelセル（AF17）があります。レポート内のセルにコピーする必要があります（A7） 1つのセルに留まるには、書式設定されたテキストが必要です。データを貼り付けるたびに、それ自体が多数のセルに分割されます。ここは、この時点で私のコードです：HTML形式のテキストを1つのExcelに貼り付ける方法

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

私はすべてのテキストは、一つのセルに滞在してもらうにはどうすればよいですか？

出典

2017-02-23 rtemen

HTMLとは何ですか？ – Slai

Here is the important text that we want to keep formatted.

項目
項目
<フォント色= "＃1 2E75B5">アイテム
<フォント色= "＃1 2E75B5">アイテム

<フォント色= "＃C55A11">アイテム
<フォント色= "＃C55A11">アイテム2

項目
アイテム
アイテム
項目
項目
項目
項目

– rtemen

だから、それをコピーして貼り付けられません。この全体は 'に減らすことがSub'することはできませんValue = ""＆Range（ "AF3"）。値＆ "" '？（" A7 "）のようなワンライナー？

Lots of stuff here.

– Comintern

コンテンツが別のセルで継続するHTMLタグはほとんどありません。私が知っているものは<br />と<tr>ですが、<div>タグがあなたのHTMLの理由であるかどうかはわかりません。

タグを削除してみるか、style="mso-data-placement:same-cell;"を使用してみてください（<html style="mso-data-placement:same-cell;">が直接動作するかどうか不明）。

別のオプションとして、セルを必要に応じてフォーマットし、ファイルを.htmlまたは.mhtmlとして保存し、生成されたHTMLとCSSでそのセルを確認することができます。

出典

2017-02-23 23:21:56 Slai

HTML形式のテキストを1つのExcelに貼り付ける方法

答えて

関連する問題