¨úDATA´M°Ý,,§ï¤£¥X¨Ó

tomking

DATA:   
¤å¦rÀÉ,¤º®eDATA ¤£¤@¼Ë.
DATA 1:   a b c d 456
               efg

data 2   a b c d  678
             a b c d 234
            efg
¥Øªº: ±NDATA 1:   456+234  ¸m©óO1
           DATA 2:    678+234+777  ¸m©óO2
           PS: ¦³®É,:a B C D  «Ü¦h¦æ, µ²§ô,³£¬Oefg...


ª¬ºA:
1. iF .END .¼g¤£¥X¨Ó.  Á`¬O¥X²{ENDIF...
2. n=n1+n2.  µLªk¥[Á`...
            

  Dim lngCurrRow As Long
    Set objFolder = fso.GetFolder(ThisWorkbook.Path)
    lngCurrRow = 0

    For Each objFile In objFolder.Files
       If Left(objFile.Name, 1) = "G" Then
           Set wbCurr = Application.Workbooks.Open(Filename:=objFile.Path)
            If wbCurr.Sheets(1).[A1] <> "" Then
            
                textline1 = wbCurr.Sheets(1).[A12]
                 n1 = Split(textline1, " ")(4)
                    textline2 = wbCurr.Sheets(1).[A13]
            ?     IF MID(TEXTLINE2,1,1)="a" then n2 = Split(textline2, " ")(4)
            ?          textline3 = wbCurr.Sheets(1).[A14]
                    END
            ?
            ?     IF MID(TEXTLINE3,1,1)="a" then n3 = Split(textline3, " ")(4)
            ?      END
                              
          ?      n = n1+ n2+n3
                ThisWorkbook.Sheets("List").[o1].Offset(lngCurrRow) = n
               
              
                       
                                                                                
                                                               
                lngCurrRow = lngCurrRow + 1
            End If
            wbCurr.Close (False)
        End If
        Set wbCurr = Nothing
    Next