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

[µo°Ý] ¦p¦ó±NtxtÀÉÂনexcelÀÉ«á¡A¦Û°Ê¤À³Î­åªRÄæ¦ì?

[µo°Ý] ¦p¦ó±NtxtÀÉÂনexcelÀÉ«á¡A¦Û°Ê¤À³Î­åªRÄæ¦ì?

¦p¦ó±NtxtÀÉ¥Îexcel¶}±Ò«á¦Û°Ê¤À³Î¥X¥¿½TªºÄæ¦ì? ¦pªþÀÉ¡AÁÂÁÂ! 11.rar (1.95 KB)

¿ý»s¥i±o
  1. Sub ¥¨¶°1()
  2.     fs = "C:\Users\Desktop\1.txt"  'txtÀɥؿý
  3.     Workbooks.OpenText Filename:=fs, Origin:=950, _
  4.         StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(8, _
  5.         1), Array(15, 1), Array(21, 1), Array(25, 1), Array(32, 1), Array(33, 1), Array(44, 2)), _
  6.         TrailingMinusNumbers:=True
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 1# winston219
ª½±µ¦bexcel¸Ì¶}±ÒtxtÀɮסA
¥u­n¦b¨è«×¤WÂI¤@ÂI ´N¥i¥H¤À³Î¦¨§A·Q­nªºÄæ¦ì~
2010-12-27_202035.gif
2010-12-27 20:21

TOP

«¢«¢¡A­ì¨Ó¿ý»s´N¥i±o¤F¤X¡A¯u¬OÀY©ü¤F¡A§â¥¦·Qªº¤ÓÃø¤F!

TOP

§Ú¤]¬O¥Î¡i¥~³¡¶×¤J¸ê®Æ¡j°µ³B²z©O

TOP

        ÀR«ä¦Û¦b : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD