¨ú¤å¦rÀɤ¤,¯S©w¦r¤¸«á¤§¤å¦r
- ©«¤l
- 23
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 36
- ÂI¦W
- 0
- §@·~¨t²Î
- VISTA
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦Ë«n
- µù¥U®É¶¡
- 2010-7-15
- ³Ì«áµn¿ý
- 2012-4-30
|
¨ú¤å¦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...
|
|
|
|
|
- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 258
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-28
|
¦^´_ 1# txiec - Sub Ex()
- Dim ar()
- fd = ThisWorkbook.Path & "\"
- fs = Dir(fd & "*.txt")
- Do Until fs = ""
- Open fd & fs For Input As #1
- Do Until EOF(1)
- Line Input #1, mystr
- If mystr <> "" Then
- a = Split(mystr, "=")
- If a(0) = "SERIAL" Then r = a(1)
- If a(0) = "SPEC" Then p = a(1)
- If a(0) = "Total QTY" Then t = a(1)
- If InStr(a(0), "SUPPLY") > 0 Then y = a(1)
- If InStr(a(0), "QTY-") > 0 Then q = a(1)
- If r <> "" And p <> "" And t <> "" And y <> "" And q <> "" Then
- ReDim Preserve ar(s)
- ar(s) = Array(r, p, t, y, q)
- s = s + 1
- y = "": q = ""
- End If
- End If
- Loop
- Close #1
- fs = Dir
- Loop
- [A65536].End(xlUp).Offset(1, 0).Resize(s, 5) = Application.Transpose(Application.Transpose(ar))
- End Sub
½Æ»s¥N½X |
|
¾Ç®üµL²P_¤£®¢¤U°Ý
|
|
|
|
|
- ©«¤l
- 23
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 36
- ÂI¦W
- 0
- §@·~¨t²Î
- VISTA
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦Ë«n
- µù¥U®É¶¡
- 2010-7-15
- ³Ì«áµn¿ý
- 2012-4-30
|
·PÁª©¥D...
¯uªº¬O¤ÓÆg.... |
|
hi...
|
|
|
|
|