HTML Doc in Excel

[AlexanderBB]

I've just found if I drag an html file into a worksheet cell A1, it displays perfectly as formatted text. All I need do is set the font colour to black.
I have several dozen of these files to work on, can I emulate the process in VBA? If I read in the file like so

    ff = FreeFile
    Open Path & "\file1.html" For Input As #ff
        Dat = Input(LOF(ff), 1)
    Close #ff

What would be an instruction to copy Dat to a worksheet ?

Second question, with the text showing, I run this

Sub test()
For i = 7 To 13
Debug.Print Cells(i, "A")
Next
End Sub

The worksheet has an indent or margin on some rows but this is not reflected in the above code
I need to know this, how might I do that ?
Thanks for any help.

 

[Domenic]

For your first question, assuming that you want the data written to the active worksheet, try the following...

    Dim pathAndFilename As String
    pathAndFilename = "C:\Users\Domenic\Desktop\sample.html" 'change the path and filename accordingly
    
    Dim fileNum As Long
    fileNum = FreeFile()
    
    Open pathAndFilename For Input As #fileNum
        Dim dataText As String
        dataText = Input(LOF(fileNum), fileNum)
    Close #fileNum
        
    Dim dataArray() As String
    dataArray = Split(dataText, vbCrLf)
    
    Range("A1").Resize(UBound(dataArray) + 1).Value = Application.Transpose(dataArray)

Hope this helps!

 

[AlexanderBB]

When dragging/dropping an html file on a worksheet, it strips out he html code and shows just the text. Which is perfect!
Your method unfortunately displays all the text, so won't work. But is worth knowing anyway. Thanks.
But not being able to detect each row (and it's indent) in code negates the whole exercise. But I have found msWord will. But finding details of the command and instructions for Word VBA is very difficult and no forum seems to exists. So it's very slow going, but may be the best solution eventually.