¦hÓTXTÀɦp¤U¦C®æ¦¡¶×¤JEXCEL
- ©«¤l
- 46
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 75
- ÂI¦W
- 8
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 64ºXÄ¥ª©
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- taiwan
- µù¥U®É¶¡
- 2012-1-27
- ³Ì«áµn¿ý
- 2024-8-15
|
¦hÓTXTÀɦp¤U¦C®æ¦¡¶×¤JEXCEL
¥»©«³Ì«á¥Ñ m06o2 ©ó 2012-1-27 17:51 ½s¿è
¦³¦hÓTXTÀɦpªþ¥ó¤º®en±N¸ê®Æ¶×¤JEXCEL¤¤
¦ý¤@ª½¤£ª¾¹D¦p¦ó¥ÎVBA±N¸ê®Æ¤è¦¡·J¾ã¥X¨Ó
·s¼W¸ê®Æ§¨.rar (7.81 KB)
|
|
m06o2~~~~
|
|
|
|
|
- ©«¤l
- 46
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 75
- ÂI¦W
- 8
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 64ºXÄ¥ª©
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- taiwan
- µù¥U®É¶¡
- 2012-1-27
- ³Ì«áµn¿ý
- 2024-8-15
|
¦^´_ 6# Hsieh
·PÁÂ!!!!!!! |
|
m06o2~~~~
|
|
|
|
|
- ©«¤l
- 46
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 75
- ÂI¦W
- 8
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 64ºXÄ¥ª©
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- taiwan
- µù¥U®É¶¡
- 2012-1-27
- ³Ì«áµn¿ý
- 2024-8-15
|
¦^´_ 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~~~~
|
|
|
|
|
- ©«¤l
- 46
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 75
- ÂI¦W
- 8
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 64ºXÄ¥ª©
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- taiwan
- µù¥U®É¶¡
- 2012-1-27
- ³Ì«áµn¿ý
- 2024-8-15
|
¦^´_ 2# Hsieh
¨S¿ù¬OÀɮצWºÙ
§Ú«ö°õ¦æ¥L³£§iª¾§Ú°õ¦æ¶¥¬q¿ù»~ 52
¤£¥¿½TªºÀɮצWºÙ©Î¼Æ¥Ø ¦n©_©Ç |
|
m06o2~~~~
|
|
|
|
|
- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 253
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-22
|
¦^´_ 1# m06o2
§Aªº¦@¥Îkey¬O«üþÓ¸ê®ÆªºÈ?
¥ý¥HÀɮצWºÙ´À¥N- Sub ex()
- Dim Ay(18), Ary()
- fd = ThisWorkbook.Path & "\"
- fs = Dir(fd & "\*.txt")
- Do Until fs = ""
- Open fd & fs For Input As #1
- Ay(0) = fd: Ay(1) = Replace(fs, ".txt", "")
- Do While Not EOF(1)
- Line Input #1, mystr
- If mystr <> "" Then
- ar = Split(mystr, " ")
- If InStr(mystr, "¤é´Á") > 0 Then
- Ay(2) = ar(1): Ay(3) = ar(2) & " " & ar(3)
- ElseIf InStr(mystr, "¿¤¥«") > 0 Then
- Ay(4) = ar(1)
- ElseIf InStr(mystr, "¸ô¦W") > 0 Then
- Ay(5) = ar(1)
- ElseIf InStr(mystr, "¨®¦æ¤è¦V") > 0 Then
- Ay(6) = ar(1)
- ElseIf InStr(mystr, "¨®¹D") > 0 Then
- Ay(7) = ar(1)
- ElseIf InStr(mystr, "¾Q±Ãþ«¬") > 0 Then
- Ay(8) = ar(1)
- ElseIf InStr(mystr, "´ú¸Õ¦¸¼Æ") > 0 Then
- Ay(9) = ar(1)
- ElseIf InStr(mystr, "®ð·Å") > 0 Then
- Ay(10) = ar(1)
- ElseIf InStr(mystr, "¶³¶q") > 0 Then
- Ay(11) = ar(1)
- ElseIf InStr(mystr, "·³t") > 0 Then
- Ay(12) = ar(1)
- ElseIf InStr(mystr, "·¦V") > 0 Then
- Ay(13) = ar(1)
- ElseIf InStr(mystr, "ÀË´ú¤Hû") > 0 Then
- Ay(14) = ar(1)
- ElseIf InStr(mystr, "³Æµù") > 0 Then
- Ay(15) = ar(1)
- Else
- Ay(16) = ar(0): Ay(17) = ar(1)
- ReDim Preserve Ary(s)
- Ary(s) = Ay
- s = s + 1
- End If
-
- End If
- Loop
- Close #1
- fs = Dir
- Loop
- [A65536].End(xlUp).Offset(1).Resize(s, 18) = Application.Transpose(Application.Transpose(Ary))
- End Sub
½Æ»s¥N½X |
|
¾Ç®üµL²P_¤£®¢¤U°Ý
|
|
|
|
|