专栏导读

• 🌸 欢迎来到Python办公自动化专栏—Python处理办公问题，解放您的双手

• 🏳️‍🌈 博客主页：请点击——> 一晌小贪欢的博客主页求关注

• 👍 该系列文章专栏：请点击——>Python办公自动化专栏求订阅

• 文章作者技术和水平有限，如果文中出现错误，希望大家能指正🙏

• ❤️ 欢迎各位佬关注！ ❤️

背景

之前写过不少Excel文件与csv互转的小工具，，但是对于小内存的还是非常好用！！文章在这里：
1、Python对Excel文件批量转CSV格式 点我查看，大家可以去看一下
2、Excel转CSV文件(适合大文件转VBA) 点我查看，大家可以去看一下
3、Python之Spire.XLS进行Excel与CSV文件互转换 点我查看，大家可以去看一下

那么今天我将要分享是，多个CSV文件批量自动转成Excel的方法，好了，那么接下来大家照着做就好了！

1、右击新建一个Excel文件

2、点击【开发工具】点击【VB编辑器】

3、左边双击【Sheet1】打开代码编辑器，复制下面代码进行粘贴

注意修改 路径

fPath = "d:\user\01426442\桌面\新建文件夹\csv\" 这是待转CSV文件的文件夹

sPath = "d:\user\01426442\桌面\新建文件夹\excel\" 这是保存Excel的文件夹

Sub SaveToExcel()
  
    Dim fDir As String
    Dim wB As Workbook
    Dim wS As Worksheet
    Dim fPath As String
    Dim sPath As String
    Dim csvFilePath As String
    Dim excelFilePath As String
  
    fPath = "d:\user\01426442\桌面\新建文件夹\csv\"
    sPath = "d:\user\01426442\桌面\新建文件夹\excel\"
  
    fDir = Dir(fPath)
  
    Do While (fDir <> "")
  
        If Right(fDir, 4) = ".csv" Then
            csvFilePath = fPath & fDir
            excelFilePath = sPath & Replace(fDir, ".csv", "") & ".xlsx"
  
            ' Import CSV data into a new Excel workbook
            With Workbooks.Open(csvFilePath)
                .Sheets(1).Copy
            End With
  
            ' Save the new workbook as Excel file
            ActiveWorkbook.SaveAs excelFilePath, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
            ActiveWorkbook.Close SaveChanges:=False
        End If
  
        fDir = Dir
  
    Loop
  
End Sub

4、点击运行，等待即可

结尾

希望对大家有帮助

致力于办公自动化的小小程序员一枚

都看到这了，关注+点赞+收藏=不迷路！！

如果你想知道更多关于Python办公自动化的知识各位佬给个关注吧！