GBKEE

¦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

GBKEE

¦^´_ 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

GBKEE

¦^´_ 5# papaya
xlExcel8 §ï¦¨ 56 ¸Õ¸Õ
Do While A <> ""
¶]°j°é ¤@­Ó­Óªº§ï¦¨xls

GBKEE

¦^´_ 7# papaya

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

¦p¤£¬O2003ª©  
  xlExcel8 °Ñ¼Æ §ï¦¨
FileFormat:=56

GBKEE

¦^´_ 11# papaya
§AªºCSV ÀɬO±qºô¸ô¤U¸ü¶Ü? (¥i¯à¸Ì­±¦³¤£¥i¨£¦r¤¸)
¨S¿ìªk¥ÎVBA±N(´_­ì_Sheet1"§ï¬°="ÀɮצWºÙ

GBKEE

¦^´_ 16# papaya

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Path As String, A As String, B As String
   
4.     Path = ThisWorkbook.Path  '½Ð­×§ï¬°§Aªº¸ê®Æ§¨
   
5.     A = Dir(Path & "\*.CSV")
   
6.     Do While A <> ""
   
7.         Name Path & "\" & A As Path & "\" & Replace(A, "¡G", "")
   
8.         A = Replace(A, "¡G", "")
   
9.          With Workbooks.Open(Path & "\" & A)
   
10.              .SaveAs Filename:=Path & "\" & Replace(A, ".csv", ".xls"), FileFormat:=xlNormal
    
11.              .Close True
    
12.          End With
    
13.         A = Dir
    
14.     Loop
    
15. End Sub

½Æ»s¥N½X