tr循环里套td循环文本文件，用BVA提取数据做成表格，请教方法。

ZHLK

Private Function readANSItxt(ByVal sFile As String) As String
    '读取ANSI文本文件到字符串
    Dim iFile As Integer
    Dim bStr() As Byte
   
    iFile = FreeFile
    Open sFile For Binary As #iFile
    ReDim bStr(1 To LOF(iFile))
    Get #iFile, , bStr
    Close #iFile
    readANSItxt = StrConv(bStr, vbUnicode)
End Function

Sub aa()
Dim txt As String
Dim spl1() As String
Dim spl2() As String
Dim spl3() As String

Columns("A:E").ClearContents
a = 0
txt = readANSItxt(ThisWorkbook.Path & "\文本数据.txt")
spl1 = Split(txt, "<tr")
For i = 0 To UBound(spl1)
    spl2 = Split(spl1(i), "</td>")
    For j = 0 To UBound(spl2) - 1
        spl3 = Split(spl2(j), """>")
        Cells(a, j + 1) = spl3(UBound(spl3))
    Next
    a = a + 1
Next

End Sub