HTML to Text

[gl3nn1987]

Dag Allen,

Ik heb een hele kolom zeg (d22000) vol met Html code en wil deze om laten zetten in text. Ik had de voglende code, maar die werkt al op 1 veld niet, kan iemand mij stapje verder helpen?:

    Dim Ie As Object

    Set Ie = CreateObject("InternetExplorer.Application")

    With Ie
        .Visible = False

        .Navigate "about:blank"

        .document.body.InnerHTML = Sheets("Sheet1").Range("D2:D2000").Value

        .document.body.createtextrange.execCommand "Copy"
        ActiveSheet.Paste Destination:=Sheets("Sheet1").Range("D2:D2000")

        .Quit
    End With

 

[pimnl]

Heb je misschien het bestand? werkt wat makkelijker

 

[gl3nn1987]

Dat heb ik. Hierbij:

 

[snb]

Waarom staat die HTML-tekst in een Excel bestand ?
In een Worddocument is dit veel eenvoudiger.
Welke tekst wil je eigenlijk overhouden en waar en waartoe ?

 

[gl3nn1987]

Omdat dit de enige aanlevermethode was vanuit het programma en ik daarna ermee moet werken in excel. De tekst die ik wil overhouden is eigenlijk het liefst de opgemaakte html tekst maar volgens mij is dat onmogelijk gezien er tabellen in de cel zitten dan??, dus dan gewoon alle html tags weg.

 

[snb]

Omdat dit de enige aanlevermethode was vanuit het programma

Licht dit eens toe, svp.
Welk programma ?
Wat wordt aangeleverd ?
Is het import/export ?
Is een koppeling naar het programma mogelijk (webquery bijv. ) ?

 

[gl3nn1987]

Business objects. Rechtstreeks naar excel. Binnen b.o. kan k t naar html omzettn. Maar na expott excel is t weer html :s

 

[snb]

Wat betekent dat in het Nederlands ?

 

[alphamax]

Public Sub HTMLToText()
    With CreateObject("HTMLFILE")
        For Each objCell In Worksheets("Rapport1").Range("A1").CurrentRegion
            .Body.InnerHTML = objCell.Value
            objCell.Value = .Body.InnerTEXT
        Next
    End With
End Sub

En wat wil je met de enters doen?

 

[pixcel]

Business objects. Rechtstreeks naar excel. Binnen b.o. kan k t naar html omzettn. Maar na expott excel is t weer html :s

SAP BO heeft toch wel een tool waarmee je dit fatsoenlijk kunt binnenhalen? Iets als BEx explorer/analyzer of zo?