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

[µo°Ý] [¤w¸Ñ¨M]¦P¸ê®Æ§¨¤º¤£½T©w¼Æ¶qªºcsv Âন.xls

[µo°Ý] [¤w¸Ñ¨M]¦P¸ê®Æ§¨¤º¤£½T©w¼Æ¶qªºcsv Âন.xls

¥»©«³Ì«á¥Ñ HSIEN6001 ©ó 2012-5-12 00:10 ½s¿è

¨D§U¡I
½Ð°Ý¥i§_±N¦P¤@­Ó¸ê®Æ§¨¤ºªº.csvÀÉ®×  (¤£ª¾¹DÀɮ׼ƶq)
Âà´«¦¨»Ý¨Dªº®æ¦¡¤§«á¡A¦s¦^¦¨¦PÀɦWªº.xls

¥Ø«e¥u·|¤â°Ê¤@Àɤ@ÀÉÂà´«¡A«Ü³Â·Ð
³Â·Ðª©¤j°ª¤â«ü¾É
·P®¦ & ÁÂÁ¡I
ÂàÀÉ.rar (360.28 KB)

·PÁÂH¤j & ³Â¤j
±z­Ì¤w¸g¸Ñ¨M¤F§Úªº°ÝÃD

¦]¬°¹ï»yªk«Ü­¯¥Í¡A©Ò¥H­n´ú¸Õ¹L«á
¤~ª¾¹D§Ú¦Û¤vªº»yªk­n¥[¦b­þ¸Ì¤~¹ï

Åý§A­Ì¶O¤ß¤F
ÁöµMª©¤W¦³´£¿ô¡G¤£­n¦h»¡·PÁªº¼o¸Ü
¦ýÁÙ¬O­n§i¶D§A­Ì
ÁÂÁÂ!

ÁÂÁ«ü¾É
^___________^

TOP

¦^´_ 2# HSIEN6001
  1. Sub ReFileName()
  2. fd = ThisWorkbook.Path & "\"
  3. fs = Dir(fd & "*.csv")
  4. Do Until fs = ""
  5.   With Workbooks.Open(fd & fs, Format:=2)
  6.   fds = Replace(fd & fs, ".csv", ".xls")
  7.   .SaveAs Filename:=fds, FileFormat:=xlExcel8
  8.   .Close
  9.   End With
  10. fs = Dir
  11. Loop
  12. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# register313


§Ú¦n¹³¥´¿ù·j´M¤è¦V¡A¤@­È§ä¤£¨ìÀYºü
ÁÂÁ§Aªº«ü¤Þ!!
§Ú¸Õ¸Õ¦Û¤v³B²z
·P®¦^____^

TOP

TOP

½Ð°Ý¡A³o°ÝÃD¦³¸Ñ¡H¡I
§Ú¥u·|²Â¤èªk¡A±N¸ê®Æ§ïÀɦW¬°¢°
¦A¤@Àɤ@ÀÉÂà´«¤Î§ó¦W°Ê§@

¥Ø«e¥u·|¿ý»s¥¨¶°°µÀ³¥Î¦Ó¤w
©Ò¥H»yªk«Ü²Â­«§a¡I

³Â·Ð¦U¦ì¤j¤j¡A«ô°U¤F¡I

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD