GBKEE

多看看,世界會變大

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Path As String, A As String
   
4.     Path = ThisWorkbook.Path  '請修改為你的資料夾
   
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

複製代碼

回復 1# papaya

GBKEE

回復 3# papaya
    Path = ThisWorkbook.Path  '修改為csv的資料夾
程式碼可貼在任何模組上
早上程式寫好沒確認轉為xls檔事是否正確
剛確認 name 無法改csv的檔案性質為.xls
請改用 .SaveAs 然後在  Kill  csv

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Path As String, A As String
   
4.     Path = ThisWorkbook.Path  '請修改為你的資料夾
   
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

複製代碼

GBKEE

回復 5# papaya
xlExcel8 改成 56 試試
Do While A <> ""
跑迴圈 一個個的改成xls

GBKEE

回復 7# papaya

如是2003版 改成
FileFormat:=xlNormal

如不是2003版  
  xlExcel8 參數 改成
FileFormat:=56

GBKEE

回復 11# papaya
你的CSV 檔是從網路下載嗎? (可能裡面有不可見字元)
沒辦法用VBA將(復原_Sheet1"改為="檔案名稱

GBKEE

回復 16# papaya

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Path As String, A As String, B As String
   
4.     Path = ThisWorkbook.Path  '請修改為你的資料夾
   
5.     A = Dir(Path & "\*.CSV")
   
6.     Do While A <> ""
   
7.         Name Path & "\" & A As Path & "\" & Replace(A, "：", "")
   
8.         A = Replace(A, "：", "")
   
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

複製代碼