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

¦h­ÓTXTÀɦp¤U¦C®æ¦¡¶×¤JEXCEL

¦h­ÓTXTÀɦp¤U¦C®æ¦¡¶×¤JEXCEL

¥»©«³Ì«á¥Ñ m06o2 ©ó 2012-1-27 17:51 ½s¿è

¦³¦h­ÓTXTÀɦpªþ¥ó¤º®e­n±N¸ê®Æ¶×¤JEXCEL¤¤
¦ý¤@ª½¤£ª¾¹D¦p¦ó¥ÎVBA±N¸ê®Æ¤è¦¡·J¾ã¥X¨Ó
·s¼W¸ê®Æ§¨.rar (7.81 KB)
m06o2~~~~

¦^´_ 6# Hsieh
·PÁÂ!!!!!!!
m06o2~~~~

TOP

¦^´_ 5# m06o2
°Ñ¦Ò¦¹³sµ²
ÀÉ®×¾Þ§@½d¨Ò
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh
¦¨¥\¤F.............§Ú­n¦n¦n½m²ß¤F   ·PÁ¤j¤j   
®e§Ú¦bµo°Ý¤@­Ó°ÝÃD.....¨º¦pªG.....§ÚªºÀɮצs©ñªº¤è¦¡¬O

AÀɮק¨¸Ì­±¦³1.2.3.4.5.6.7.8.9.10­Ó¸ê®Æ§¨ ¨C­Ó¸ê®Æ§¨¸Ì­±¦³¦³1.1 1.2 1.3 Ãþ±À  ¦b«Ü²`¨Iªº¸ê®Æ§¨¤¤¤~¦³³o­ÓTXTÀÉ¡A¨º§Ú­n¦p¦ó§ïÅܵ{¦¡½XÅý¥L¥h¦Û°ÊŪ¨ú©O!?
m06o2~~~~

TOP

¦^´_ 3# m06o2


    ³o­Óµ{¦¡«e´£¬OtxtÀɮסA»PxlsÀɮשñ¦b¦P¤@­Ó¸ê®Æ§¨
¥BtxtÀɪº®æ¦¡³£¥²¶·»P§A¤W¶ÇªºÀɮ׮榡¬Û¦P
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh
¨S¿ù¬OÀɮצWºÙ  
§Ú«ö°õ¦æ¥L³£§iª¾§Ú°õ¦æ¶¥¬q¿ù»~ 52
¤£¥¿½TªºÀɮצWºÙ©Î¼Æ¥Ø  ¦n©_©Ç
m06o2~~~~

TOP

¦^´_ 1# m06o2

§Aªº¦@¥Îkey¬O«ü­þ­Ó¸ê®Æªº­È?
¥ý¥HÀɮצWºÙ´À¥N
  1. Sub ex()
  2. Dim Ay(18), Ary()
  3. fd = ThisWorkbook.Path & "\"
  4. fs = Dir(fd & "\*.txt")
  5. Do Until fs = ""
  6. Open fd & fs For Input As #1
  7. Ay(0) = fd: Ay(1) = Replace(fs, ".txt", "")
  8. Do While Not EOF(1)
  9.    Line Input #1, mystr
  10.    If mystr <> "" Then
  11.    ar = Split(mystr, " ")
  12.    If InStr(mystr, "¤é´Á") > 0 Then
  13.    Ay(2) = ar(1): Ay(3) = ar(2) & " " & ar(3)
  14.    ElseIf InStr(mystr, "¿¤¥«") > 0 Then
  15.    Ay(4) = ar(1)
  16.    ElseIf InStr(mystr, "¸ô¦W") > 0 Then
  17.    Ay(5) = ar(1)
  18.    ElseIf InStr(mystr, "¨®¦æ¤è¦V") > 0 Then
  19.    Ay(6) = ar(1)
  20.    ElseIf InStr(mystr, "¨®¹D") > 0 Then
  21.    Ay(7) = ar(1)
  22.    ElseIf InStr(mystr, "¾Q­±Ãþ«¬") > 0 Then
  23.    Ay(8) = ar(1)
  24.    ElseIf InStr(mystr, "´ú¸Õ¦¸¼Æ") > 0 Then
  25.    Ay(9) = ar(1)
  26.    ElseIf InStr(mystr, "®ð·Å") > 0 Then
  27.    Ay(10) = ar(1)
  28.    ElseIf InStr(mystr, "¶³¶q") > 0 Then
  29.    Ay(11) = ar(1)
  30.    ElseIf InStr(mystr, "­·³t") > 0 Then
  31.    Ay(12) = ar(1)
  32.    ElseIf InStr(mystr, "­·¦V") > 0 Then
  33.    Ay(13) = ar(1)
  34.    ElseIf InStr(mystr, "ÀË´ú¤H­û") > 0 Then
  35.    Ay(14) = ar(1)
  36.    ElseIf InStr(mystr, "³Æµù") > 0 Then
  37.    Ay(15) = ar(1)
  38.    Else
  39.    Ay(16) = ar(0): Ay(17) = ar(1)
  40.    ReDim Preserve Ary(s)
  41.    Ary(s) = Ay
  42.    s = s + 1
  43.    End If
  44.    
  45.    End If
  46. Loop
  47. Close #1
  48. fs = Dir
  49. Loop
  50. [A65536].End(xlUp).Offset(1).Resize(s, 18) = Application.Transpose(Application.Transpose(Ary))
  51. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¦Û¤v®`¦Û¤v¡A²ö¹L©ó¶ÃµoµÊ®ð¡C
ªð¦^¦Cªí ¤W¤@¥DÃD