.navigate CurrentProject.Path & "\StrategyTester.htm"

Public Function imphtm2()
Dim j As Integer
Dim k As Integer
Dim body(10) As String

Dim oDoc As New MSHTML.HTMLDocument
Dim ct As MSHTML.IHTMLElementCollection
Dim t As MSHTML.IHTMLTable
Dim r As MSHTML.IHTMLTableRow

Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
   With IE
   .navigate CurrentProject.Path & "\StrategyTester.htm"
       Do
        If IE.readyState = READYSTATE_COMPLETE Then
        Exit Do
       End If
     Loop
   Set oDoc = .Document
       Do
        DoEvents
       Loop Until oDoc.readyState = "complete"
       
 Set ct = oDoc.getElementsByTagName("TABLE")
   Set t = ct.Item(1)
   Debug.Print "Таблица" & i + 1
     For j = 0 To t.rows.length - 1
        Set r = t.rows(j)
        Debug.Print "---------------------------------------------------------"
        For k = 0 To r.cells.length - 1
            body(k) = r.cells(k).innerText
        Next k
        Debug.Print body(0), body(1), body(2), body(3), body(4), body(5), body(6), body(7), body(8), body(9)
        For z = 0 To 9
            body(z) = ""
        Next z
     Next j
End With

Set IE = Nothing
Set oDoc = Nothing
End Function

Public Function pars()
Dim fff1(10) As String
Open CurrentProject.Path & "\StrategyTester.htm" For Input As #1
Do While Not EOF(1)
    Line Input #1, st1
    st = st & st1
Loop
Close #1
k = 1
li = InStr(1, st, "</tr>")
i = InStr(1, st, "</td>")
Do While i <> 0
    i = InStr(k, st, "</td>")
    If i > li Or i = 0 Then
        If start = 1 Then Debug.Print fff1(1), fff1(2), fff1(3), fff1(4), fff1(5), fff1(6), fff1(7), fff1(8), fff1(9), fff1(10)
        For mi = 1 To 10
            fff1(mi) = ""
        Next mi
        m = 1
        li = InStr(li + 1, st, "</tr>")
    End If
    If i = 0 Then Exit Do
    j = InStrRev(st, ">", i)
    fff = Mid(st, j + 1, i - j - 1)
    If fff = "№" Then start = 1: m = 1
    If start = 1 Then fff1(m) = fff: m = m + 1
    k = i + 1
Loop
End Function