ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¨ú¤å¦rÀɤ¤,¯S©w¦r¤¸«á¤§¤å¦r

¨ú¤å¦rÀɤ¤,¯S©w¦r¤¸«á¤§¤å¦r

¦U¦ì¤j¤j,,,

¦A³Â·Ð..¦³ÂIÃø,·d¤£¥X¨Ó.

1. ³sÄò¨ú¤å¦rÀɤ¤,¯S©w¦r¤¸«á¤§¤å¦r,
2. ¨ú§¹DATA ,²¾¦Ü¨ä¥L¸ê®Æ§¨
3. ¨ú¤§«e,±q³Ì¤U¦æ,¶}©l¸m¤J..


·P®¦


list.rar (4.93 KB)
hi...

¦^´_ 1# txiec
  1. Sub Ex()
  2. Dim ar()
  3. fd = ThisWorkbook.Path & "\"
  4. fs = Dir(fd & "*.txt")
  5. Do Until fs = ""
  6. Open fd & fs For Input As #1
  7. Do Until EOF(1)
  8.    Line Input #1, mystr
  9.    If mystr <> "" Then
  10.    a = Split(mystr, "=")
  11.    If a(0) = "SERIAL" Then r = a(1)
  12.    If a(0) = "SPEC" Then p = a(1)
  13.    If a(0) = "Total QTY" Then t = a(1)
  14.    If InStr(a(0), "SUPPLY") > 0 Then y = a(1)
  15.    If InStr(a(0), "QTY-") > 0 Then q = a(1)
  16.    If r <> "" And p <> "" And t <> "" And y <> "" And q <> "" Then
  17.    ReDim Preserve ar(s)
  18.    ar(s) = Array(r, p, t, y, q)
  19.    s = s + 1
  20.    y = "": q = ""
  21.    End If
  22.    End If
  23. Loop
  24. Close #1
  25. fs = Dir
  26. Loop
  27. [A65536].End(xlUp).Offset(1, 0).Resize(s, 5) = Application.Transpose(Application.Transpose(ar))
  28. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

·PÁª©¥D...


¯uªº¬O¤ÓÆg....
hi...

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD