VBA--汇总故障

Sub 故障汇总()
    Dim Fs As Object, Ft As Object
    Set Fs = CreateObject("Scripting.FileSystemObject")
    filePath = ThisWorkbook.Path & "\"
    fileName = Dir(filePath & "*.log", vbNormal)
    Worksheets("SHEET1").Cells.Clear
    Worksheets("SHEET1").Range("A1:D1") = Array("ENBIP", "Date & Time (UTC)", "S Specific Problem", "MO (Cause/AdditionalInfo)")
    N = 1
    M = 1
    Do While fileName <> ""
      Set Fs = CreateObject("Scripting.FileSystemObject")
      Set Ft = Fs.opentextfile(filePath & fileName)
       Do
        texTline = Ft.ReadLinE
        If InStr(1, texTline, "Date & Time (UTC)") > 0 Then
        X = InStr(1, texTline, "S ")
        Y = InStr(1, texTline, "MO ")
        
        Do
            texTline = Ft.ReadLinE
            If InStr(1, texTline, "==") > 0 Then
               texTline = Ft.ReadLinE
               Else:
               End If
               If InStr(1, texTline, ">>> Total:") > 0 Then
                  Else:
                   N = N + 1
                   Worksheets("SHEET1").Cells(N, M) = fileName
                   Worksheets("SHEET1").Cells(N, M + 1) = Left(texTline, 19)
                   Worksheets("SHEET1").Cells(N, M + 2) = Mid(texTline, 20, Y - X)
                   Worksheets("SHEET1").Cells(N, M + 3) = Right(texTline, Len(texTline) - Y + 1)
                   
                   
                  ' STRN = Split((TEXTLINE), "    ")
                   'Count = UBound(STRN)
                   'Worksheets("SHEET1").Cells(N, M) = fileName
                   'For I = 0 To Count
          
                    '  Worksheets("SHEET1").Cells(N, M + 1) = Left(STRN(0), 19)
                  
                     ' Worksheets("SHEET1").Cells(N, M + 2) = Mid(STRN(0), 20, Len(STRN(0)) - 19)
                      'Worksheets("SHEET1").Cells(N, M + 3) = STRN(1)
         
                      'Next
                End If
            'N = N + 1
           Loop Until InStr(1, texTline, ">>> Total:") > 0
       
         End If
        M = 1
        Loop Until Ft.atendofstream 'Ft.atendofline 'Ft.AtEndOfLine
       Set Fs = Nothing
       Set Ft = Nothing
       Close #1
       fileName = Dir
     Loop
 MsgBox ("已完筛选、合并操作!")
End Sub

*********************************************************************************************

Sub 小区状态汇总()
    Dim Fs As Object, Ft As Object
    Set Fs = CreateObject("Scripting.FileSystemObject")
    filePath = ThisWorkbook.Path & "\"
    fileName = Dir(filePath & "*.log", vbNormal)
    Worksheets("SHEET1").Cells.Clear
    Worksheets("SHEET1").Range("A1:E1") = Array("ENBIP", "MO", "Adm State", "Op. State", "备注")
    N = 1
    M = 1
    Do While fileName <> ""
      Set Fs = CreateObject("Scripting.FileSystemObject")
      Set Ft = Fs.opentextfile(filePath & fileName)
       Do
        texTline = Ft.ReadLinE
        If InStr(1, texTline, "EUtranCell") > 0 Then
        N = N + 1
  
        STRN = Split(WorksheetFunction.Trim(texTline), " ")
        Count = UBound(STRN)
         Worksheets("SHEET1").Cells(N, M) = fileName
        For I = 0 To Count
          
           Worksheets("SHEET1").Cells(N, M + 1) = STRN(5)
           Worksheets("SHEET1").Cells(N, M + 2) = STRN(1) & STRN(2)
           Worksheets("SHEET1").Cells(N, M + 3) = STRN(3) & STRN(4)
           If STRN(3) = 0 Then
           Worksheets("SHEET1").Cells(N, M + 4) = "站点闭掉"
           End If
         
        Next
        End If
        M = 1
        Loop Until Ft.atendofstream 'Ft.atendofline 'Ft.AtEndOfLine
       Set Fs = Nothing
       Set Ft = Nothing
       Close #1
       fileName = Dir
     Loop
 MsgBox ("已完筛选、合并操作!")
End Sub