copy data from table from locally stored html to excel worksheet

[erin00]

I got the code below from another site and it seems to be working fine. However, it is using a page from the web. I can't modify it to work on locally stored html files. Please help.

Sub HTML_Table_To_Excel()


Dim htm As Object
Dim Tr As Object
Dim Td As Object
Dim Tab1 As Object


'Replace the URL of the webpage that you want to download
Web_URL = "file:///C:\Users\admin\test\testfile.html"


'Create HTMLFile Object
Set HTML_Content = CreateObject("htmlfile")


'Get the WebPage Content to HTMLFile Object
With CreateObject("msxml2.xmlhttp")
.Open "GET", Web_URL, False
.send 'this is the highlighted part for the error (The system cannot locate the resource specified)
HTML_Content.body.innerHTML = .responseText 
End With
Column_Num_To_Start = 1
iRow = 2
iCol = Column_Num_To_Start
iTable = 0


'Loop Through Each Table and Download it to Excel in Proper Format
For Each Tab1 In HTML_Content.getElementsByTagName("table")
With HTML_Content.getElementsByTagName("table")(iTable)
For Each Tr In .Rows
For Each Td In Tr.Cells
Sheets(1).Cells(iRow, iCol).Select
Sheets(1).Cells(iRow, iCol) = Td.innerText
iCol = iCol + 1
Next Td
iCol = Column_Num_To_Start
iRow = iRow + 1
Next Tr
End With


iTable = iTable + 1
iCol = Column_Num_To_Start
iRow = iRow + 1
Next Tab1


MsgBox "Process Completed"
End Sub