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

[µo°Ý] EXCELÂà TXTÀÉ, ¦p¦ó¦Û°Ê·s¼WÂù¤Þ¸¹?

[µo°Ý] EXCELÂà TXTÀÉ, ¦p¦ó¦Û°Ê·s¼WÂù¤Þ¸¹?

¥»©«³Ì«á¥Ñ mistery ©ó 2019-6-6 19:12 ½s¿è

'ÂàÀɮɱNÀx¦s®æ³B²z¼W¥[Âù¤Þ¸¹

Cells(i, j) = Chr(34) & CStr(Cells(i, j))

ActiveWorkbook.SaveAs Filename:= spath & "\Q.txt", FileFormat:=xlCSV, CreateBackup:=False

EXCE¢Ú¤º¡GLUCKY08   LUCKY09    (¤À¦C¦b¨â­ÓÀx¦s®æ)  ¡@¡@  
Âà¨ìTXTÀÉ«á¡G """LUCKY08" ,  """LUCKY09"      (¥ªÃä¤T­ÓÂù¤Þ¸¹,¥kÃä¤@­ÓÂù¤Þ¸¹)

«ç»ò°µ´N¬OµLªk"¥¿±`"¥X²{¥ª¥k¦U¤@­ÓÂù¤Þ¸¹ ???  
  
  ½Ð¤j®v¸Ñ´b

Âù¤Þ¸¹.png (11.53 KB)

Âù¤Þ¸¹.png

¦]¬°­n¨D®æ¦¡¬°  ¥H Âù¤Þ¸¹  ®Ø¦í ­È   ¨Ã¥Î  ³r¸¹  ¹j¶}¡@
¤§©Ò¥H¤£¥Î FileFormat:=xlTextPrinter   ¬O¦]¬°´N·|Åܦ¨¥Î  ªÅ®æ  ¹j¶}

¤£¹L~~ÁÙ¬O«D±`ÁÂÁ¡A§ÚÁÙ¬O·|¦A·Q·Q

TOP

        ÀR«ä¦Û¦b : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD