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

¨ú¥X,¯S©w´X½X­«½Æ¤§ÀɦW

¨ú¥X,¯S©w´X½X­«½Æ¤§ÀɦW

½Ð¦AÀ°¦£..


EX: D:\aa\frty123.txt
       D:\aa\frty321.txt
       D:\aa\frer321.txt
       D:\aa\frhy345.txt
       D:\aa\frhy678.txt  

   ¨ú¥X,«ü©wÀɦW:²Ä1~4½X,, ­«½Æ... ¨q¦bEXCEL ¤º.
©Î¨ú¥X,«ü©wÀɦW:²Ä3~4½X,, ­«½Æ... ¨q¦bEXCEL ¤º.
PS: ¨Ó·½¸ê®Æ§¨,¥i¦bEXCEL ¤º«ü©w,,¨Î..  


THS..

¦^´_ 1# tomking
  1. Sub Ex()
  2.     A = "D:\aa\frty123.txt"
  3.     MsgBox Mid(A, 1, 5)
  4.     MsgBox Mid(A, 4, 2)
  5.     MsgBox Split(A, "\")(1)
  6. End Sub
½Æ»s¥N½X

TOP

DEAR ª©¥D,,

¦A¸É¥R¤@¤U,
¦],¬Y¤@­Ó¸ê®Æ§¨¤º¦³´X¸U¤ñ¤§ÀÉ®×. ÀɦW«e´X½X¬O¬y¤ô¸¹, «á´X½X¬O®É¶¡,,,
¤@¯ë¬O¬y¤ô¸¹¬O¤£¥i­«½Æ,,, ¬G»Ý§ä¥X¦³¨º¨Ç¬y¤ô¸¹¤§ÀɦW,¥i¯à¬O­«½Æªº..
EX: 123_201101010105
       124_201101010205
        124_201102010101
          ..
        ...
¦]124 ,,,¦³­«½Æ, ,¬G ¨q¥X 124_201101010205 .124_201102010101  ©óEXCEL ¤¤.¥H§Q§ä¥X¥¿½T, §R°£¿ù»~ªº..

TOP

¦^´_ 3# tomking
¦P¥Ø¿ý¤¤ªºÀɦW¬O¤£¥i¯à¦P¦W
¹ê¦b¬Ý¤£À´§A·Q­nªº¥Øªº¬O¬Æ»ò?
¥H¤Uµ{¦¡½X·|±N¥H"_"¬°³s±µ²Å¸¹ªºÀɦW(§A©ÒÁ|¨ÒªºÀɦW)¤À¦¨¬y¤ô¸¹»P®É¶¡¨â³¡¤À
µM«á±Nµ²ªGÅã¥Ü¨ìA:B¨âÄæ
  1. Sub nn()
  2. Dim Ar()
  3. With Application.FileDialog(msoFileDialogFolderPicker)
  4. .Show
  5. If .ButtonName = "½T©w" Then
  6. fd = .SelectedItems(1) & "\"
  7. End If
  8. End With
  9. fs = Replace(Dir(fd & "*.txt"), ".txt", "") '°ÆÀɦW¬°txtÀÉ®×
  10. Do Until fs = ""
  11. a = Split(fs, "_") '¬y¤ô¸¹»P®É¶¡³s±µ²Å¸¹¬°"_"
  12. ReDim Preserve Ar(s)
  13. Ar(s) = a
  14. s = s + 1
  15. fs = Dir
  16. Loop
  17. If s > 0 Then [A1].Resize(s, 2) = Application.Transpose(Application.Transpose(Ar))
  18. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

DEAR  ¤j¤j

¥i§_§ï¦¨,¥u¨q¥X,¦³­«½Æ¤§ÀɦW.
¦],³o­Ó¸ê®Æ§¨¤§Àɮ׼ƶq > 70000 µ§,  ,­n±q¤¤,§ä¥X,,,¬y¤ô¸¹¦³­«½Æªº,,¯uªº¤£`®e©ö..
¦A³Â·Ð,,


·PÁÂ..

TOP

DAER ª©¥D,,

¸É¥R¤@¤U,,,


¨ú¥X,ÀɦW¤¤,: _ ¤§«e¦³­«½Æ,¨q¦bEXCEL ¤º.  
¦]¼Æ¾Ú§¨¤º¤§ÀÉ®×>70000µ§, ¬G§Æ±æ¦³µ{¦¡,ª½±µ¨q¥X,,¦b«ü©w¦ì¸m¤§ÀɮצW¦³­«½Æªº,,
¤£µM,¨ú¶iEXCEL Äæ¦ì®É,¼Æ¾Úµ§¼Æ·|Ãz...
EX: D:\A\  ¤º¦³«Ü¦h¤å¦rÀÉ,
D:\A\A123_20110101.txt
D:\A\ A123_20110102.txt
D:\A\A124_20110101.txt
D:\A\A125_20110105.txt
D:\A\A125_20110108.txt


¦A³Â·Ð... .

TOP

DEAR  

²×©ó·Q¨ì¤@­Ó¦n¤è¦¡.. ¦ý,,, ¥d¦í¤F,,¦]¥¦¨S¦³¨ÌÀɦW¦WºÙ¶¶§Ç.¨úÀɦW... ½ÐÀ°¦£.... ¤£ª¾¤Ö¤F¨º¤@­Ófuntion

Sub same_name()
ThisWorkbook.Sheets("Sheet1").[D1] = "T"
Sheets("Sheet1").Select
Range("D2").Select
Selection.ClearContents

fd = [a1]

fs = Dir(fd & "*.txt")

Do Until fs = ""

Cells(2, 4) = Mid(fs, 1, 8)

If ThisWorkbook.Sheets("Sheet1").[D1] = ThisWorkbook.Sheets("Sheet1").[D2] Then
Cells(1 + r, 6) = fs
r = r + 1
'MsgBox "ÀÉ®×­«½Æ,ÀɦW:" & fs, vbOKOnly, "¿ù»~°T®§"
'Exit Sub
End If

ThisWorkbook.Sheets("Sheet1").[D1] = ThisWorkbook.Sheets("Sheet1").[D2]
fs = Dir
Loop
End Sub

TOP

¦^´_ 7# tomking
½Ð±Ð§Aµ{¦¡ªº¥Î·N  
ThisWorkbook.Sheets("Sheet1").[D1] = "T"         ¬O¦ó¥Î·N
Cells(2, 4) = Mid(fs, 1, 8)              ->[d2]    ¨úfs 8¦ì ¬O¦ó¥Î·N      
If ThisWorkbook.Sheets("Sheet1").[d1] = ThisWorkbook.Sheets("Sheet1").[D2] Then  '¥¼¦ó­n  [d1 ]= [d2]

TOP

¦^´_ 8# GBKEE

  DEAR ª©¥D..


´N¦p,¥ý«e°Ýªº,,¦p¤U,,,   
©Ò¦³FILE NAME¸m©ó,D2.  °²¦p  D1 & D2 ¤@¼Ë,´N¨q¥X FILE NAME, §_«h,¨ú¤U¤@­ÓFILE NAME


¨ú¥X,ÀɦW¤¤,: _ ¤§«e¦³­«½Æ,¨q¦bEXCEL ¤º.  
¦]¼Æ¾Ú§¨¤º¤§ÀÉ®×>70000µ§, ¬G§Æ±æ¦³µ{¦¡,ª½±µ¨q¥X,,¦b«ü©w¦ì¸m¤§ÀɮצW¦³­«½Æªº,,
¤£µM,¨ú¶iEXCEL Äæ¦ì®É,¼Æ¾Úµ§¼Æ·|Ãz...
EX: D:\A\  ¤º¦³«Ü¦h¤å¦rÀÉ,
D:\A\A123_20110101.txt
D:\A\ A123_20110102.txt
D:\A\A124_20110101.tx
D:\A\A125_20110105.txt
D:\A\A125_20110108.txt

PS: ·PÁÂ

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD