vba从服务器获得文件,如何用VBA提取文本文件（*.TXT),提取指定位置数据或字符串...

Sub yy()

Dim sr As String, fd As Boolean, l As Integer, i As Integer

Dim arr() As String, z As Integer, gt As Boolean, arr2() As Variant, arr3() As Variant

Application.DisplayAlerts = False

Application.ScreenUpdating = False

Set d = CreateObject("scripting.dictionary")

Range("a1:j10000").Clear

oPath = ThisWorkbook.Path & "\"

Filename = Dir(oPath & "*.txt")

Do While Filename <> ""

Open oPath & Filename For Input As #1

Do While Not EOF(1)

Line Input #1, sr

If InStr(sr, "主力持仓统计") Then fd = True: gt = True: w = w + 1

If fd Then

If sr <> "" Then

If InStr(sr, "─") = 0 And InStr(sr, "━") = 0 Then

If InStr(sr, "【") Then

Range("a1") = sr