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

txt¤å¦rÀɶפJexcel VBA?

¤F¸Ñ,ÁÂÁÂboyao¤j¤j

TOP

¥»©«³Ì«á¥Ñ 7777 ©ó 2017-10-2 19:58 ½s¿è

ª½±µ¥Îexcel¥h¶}±Ò¤å¦rÀÉ
¶}±Ò«á´N·|¦³¸ê®Æ­åªR£x¿ï¾Ü­¶­±¥X²{¤F

Sub Macro1()
    Workbooks.OpenText Filename:="C:·s¼W¤å¦r¤å¥ó.txt" _
        , Origin:=950, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)), _
        TrailingMinusNumbers:=True
End Sub


¯à½Ð°Ý~

¦p¦ó¥i¥H¤£¦A¶}·sÀɤU
ª½±µ¦b
²{¦³ªºexcelÀɮפ¤¡A
Sheet2ªº¤u§@ªí
A5¶×¤J

·PÁÂ
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ¨C¤ÑµL©Ò¨Æ¨Æ¡A¬O¤H¥Íªº®ø¶OªÌ¡A¿n·¥¡B¦³¥Î¤~¬O¤H¥Íªº³Ð³yªÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD