как заменить все html элементы в файле Excel

Question

Мне интересно, как заменить все элементы html из файла Excel, не называя их все.

В данный момент я использую макрос, который заменяет ê на «Ê»,   с "", et c. но мне все время приходится добавлять новые значения.

Есть ли более быстрый способ?

Answer 1

MS HTML может это сделать:

With CreateObject("htmlfile")
    .Open
    .write "<p> fish <em>&amp;</em> chips &hellip;"
    .Close
    MsgBox .body.outerText '// fish & chips …
End With

Пример

Sub MyCode()

    '// put some html in A1
    Range("A1").Value = "<p> fish <em>&amp;</em> chips &hellip;"
    
    '// put the html as text in B1
    Range("B1").Value = getPlainTextFromHTML(Range("A1").Value)

End Sub

Function getPlainTextFromHTML(html As String)
    With CreateObject("htmlfile")
        .Open
        .write html
        .Close
        getPlainTextFromHTML = .body.outerText
    End With
End Function