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

¦p¦ó¥ÎVBA¶×¤JCSVÀÉ?

¦^´_ 1# am0251

¬O³o­Ó¶Ü?
  1. sub openCSV()

  2. dim mydir as string
  3. mydir = thisworkbook.path & "\"
  4. workbooks.opentext filename:=mydir & 123.txt, datatype:=xldelimited, comma:=true

  5. end sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD