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

[µo°Ý] ¦p¦óÅܧó¸ê®Æ§¨¤º©Ò¦³ÀɮתºÀÉ®×Ãþ«¬¡H

[µo°Ý] ¦p¦óÅܧó¸ê®Æ§¨¤º©Ò¦³ÀɮתºÀÉ®×Ãþ«¬¡H

¥»©«³Ì«á¥Ñ papaya ©ó 2019-3-9 04:42 ½s¿è

¤µ¤éÁ`ªí(§¡­È±Æ§Ç)-(°ò·Ç¤é¡G2019-03-05).zip (80.04 KB)

·Q¤@¦¸±N¤@­Ó¸ê®Æ§¨¤ºªº©Ò¦³Microsoft Office Excel ³rÂI¤À¹j­ÈÀÉ®× (.csv)
³£§ó§ï¬°Microsoft Excel ¤u§@ªí (.xls)ÀɮסC

½Ð°Ý¡J¦³¤°»ò¤èªk©Î»yªk¥i¥H¸Ñ¨M?
ÁÂÁ¡I

¦h¬Ý¬Ý,¥@¬É·|Åܤj
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Path As String, A As String
  4.     Path = ThisWorkbook.Path  '½Ð­×§ï¬°§Aªº¸ê®Æ§¨
  5.     A = Dir(Path & "\*.CSV")
  6.     Do While A <> ""
  7.         Name Path & "\" & A As Path & "\" & Replace(A, ".csv", ".xls")
  8.         A = Dir
  9.     Loop
  10. End Sub
½Æ»s¥N½X
¦^´_ 1# papaya
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE

¶Wª©¤j:±z¦n!
¤£¦n·N«ä¡A½Ð°Ý:
1_µ{¦¡½X­n¶K¨ì­þ¸Ì?
2_­n¦p¦ó¾Þ§@?
ÁÂÁ±z!

TOP

¦^´_ 3# papaya
    Path = ThisWorkbook.Path  '­×§ï¬°csvªº¸ê®Æ§¨
µ{¦¡½X¥i¶K¦b¥ô¦ó¼Ò²Õ¤W
¦­¤Wµ{¦¡¼g¦n¨S½T»{ÂରxlsÀɨƬO§_¥¿½T
­è½T»{ name µLªk§ïcsvªºÀɮשʽ謰.xls
½Ð§ï¥Î .SaveAs µM«á¦b  Kill  csv
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Path As String, A As String
  4.     Path = ThisWorkbook.Path  '½Ð­×§ï¬°§Aªº¸ê®Æ§¨
  5.     A = Dir(Path & "\*.CSV")
  6.     Do While A <> ""
  7.         With Workbooks.Open(Path & "\" & A)
  8.             .SaveAs Filename:=Path & "\" & Replace(A, ".csv", ".xls"), FileFormat:=xlExcel8
  9.             .Close True
  10.         End With
  11.         Kill Path & "\" & A
  12.         A = Dir
  13.     Loop
  14. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ papaya ©ó 2019-3-9 14:04 ½s¿è

¦^´_ 4# GBKEE


¶Wª©¤j:±z¦n!
µ{¦¡½X¥i¶K¦b¥ô¦ó¼Ò²Õ¤W=>¬O«ü¿ï¾Ü¸ê®Æ§¨¤º¥ô¤@­ÓÀɮ׶Ü?ÁÙ¬O¦b¦P¤@­Ó¸ê®Æ§¨¤º·s¼W¤@­Óexcel.xlsÀÉ®×?

µ{¦¡½X¶K¨ì"¤µ¤éÁ`ªí(§¡­È±Æ§Ç)-1_1-(°ò·Ç¤é¡G2019-03-05)"ªº¼Ò²Õ1«á¡AÂI¤W¤è"°õ¦æ"=>Åã¥ÜFileFormat:=xlExcel8=>"Åܼƥ¼©w¸q"
½Ð°Ý:­n¦p¦ó­×§ï?ÁÂÁ±z!

PS:
1_½Ð°Ý:¬O¤@¦¸§ï¤@­ÓÀɮתº°ÆÀɦW¶Ü?ÁÙ¬O¤@¦¸¥i¥H±N¸ê®Æ§¨¤ºªº©Ò¦³Àɮתº°ÆÀɦW¥Ñ.cvs§ï¬°.xls
2_§Úªº§@·~¨t²Î¬°Win7
ÁÂÁ±z!

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2019-3-10 06:44 ½s¿è

¦^´_ 5# papaya
xlExcel8 §ï¦¨ 56 ¸Õ¸Õ
Do While A <> ""
¶]°j°é ¤@­Ó­Óªº§ï¦¨xls
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 6# GBKEE


  ±N  xlExcel8 §ï¦¨ xlExcel56
ÁÙ¬OÅã¥Ü"Åܼƥ¼©w¸q"ÃD¦¡®Ø¡C

TOP

¦^´_ 7# papaya

use
xlNormal  ©Î  xlExcel9795  ©Î  xlExcel7

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2019-3-10 11:33 ½s¿è

¦^´_ 7# papaya

¦p¬O2003ª© §ï¦¨
FileFormat:=xlNormal

¦p¤£¬O2003ª©  
  xlExcel8 °Ñ¼Æ §ï¦¨
FileFormat:=56
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 8# jackyq
±Ä¥Î xlNormal=>OK!ÁÂÁ±z^^

TOP

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