批量将CSV文件转换为EXCEL文件

Sub BatchConvertCSVtoXLSX()    Dim strPath As String    Dim strFile As String    Dim wb As Workbook    ' 设置 CSV 文件夹路径（请修改这里）    strPath = "C:\YourCSVs\"    strFile = Dir(strPath & "*.csv")    Application.ScreenUpdating = False    Do While strFile <> ""        Set wb = Workbooks.Open(strPath & strFile)        wb.SaveAs Replace(strPath & strFile, ".csv", ".xlsx"), xlOpenXMLWorkbook        wb.Close SaveChanges:=False        strFile = Dir    Loop    Application.ScreenUpdating = True    MsgBox "转换完成！"End Sub