批量转换一个文件夹里的csv格式为xls或xlsx格式，直接转换有部分数据不可读

ykcbf1100

练个手，csv文件批量转换为xlsx文件

ykcbf1100

csv文件批量转换为xlsx文件

1. Sub ykcbf()   '//2024.8.22   csv文件批量转换为xlsx文件
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Set fso = CreateObject("Scripting.FileSystemObject")
   
5.     p = ThisWorkbook.Path & ""
   
6.     With Application.FileDialog(msoFileDialogFolderPicker)
   
7.         .Title = "请选择文件夹"
   
8.         .InitialFileName = p
   
9.         If .Show = -1 Then
   
10.             p1 = .SelectedItems(1) & ""
    
11.         End If
    
12.     End With
    
13.     p2 = p & "转换后文件夹"
    
14.     If Not fso.FolderExists(p2) Then fso.CreateFolder p2
    
15.     For Each f In fso.GetFolder(p1).Files
    
16.         Set wb = Workbooks.Open(f, 0)
    
17.         wb.SaveAs Filename:=p2 & fso.GetBaseName(f), FileFormat:=51
    
18.         wb.Close
    
19.     Next
    
20.     Application.ScreenUpdating = True
    
21.     Application.DisplayAlerts = True
    
22.     MsgBox "OK！"
    
23. End Sub
    

复制代码