批量将CSV文件转换为Excel文件工具

futinglong

转存一个 不限速网盘  https://wwi.lanzoup.com/ikkDD1tbgvze

stiller

Office的VBA，WPS可能需要改一下语法。

Sub csv_to_xlsx()

    '自行修改输入，输出路径；

    Application.ScreenUpdating = False

    inpath = "C:\桌面\测试文件"
    outpath = "C:\桌面\输出文件\"
   
    With Application.FileDialog(msoFileDialogFilePicker)
            .InitialFileName = inpath
            .Filters.Add "Csv Files", "*.csv"
            .Filters.Add "Excel Files", "*.xls;*.xlsx;*.xlsb;*.xlw"
            .Show

            MsgBox "您选择了" & .SelectedItems.Count & "个文件"

            For Each i In .SelectedItems
                'MsgBox i
                Workbooks.Open ("" & i)
                If InStr(Dir(i), n) > 0 Then
                    Name = Left(Dir(i), InStrRev(Dir(i), ".") - 1)
                    ActiveWorkbook.SaveAs Filename:=outpath & Name & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
                    ActiveWindow.Close
                End If
            Next
            
    End With
    Application.ScreenUpdating = True
    MsgBox "处理完成，输出路径为：" & outpath

End Sub

BrokenChild

很实用啊，正好需要。
感谢楼主。

zimingme

很实用啊，正好需要。
感谢楼主。

lisongmei

我也有个哇，看到了就一起分享下，python的

[Python] 纯文本查看 复制代码

import os,shutil
from openpyxl import load_workbook
path_csv_dir=r'C:\桌面\测试文件'
path_xlsx_dir=r'C:\桌面\输出文件'
for pt in os.listdir(path_csv_dir):
	if pt.endswith('.csv'):
		sr_new=pt[5:].replace('.csv',".xlsx")
		old_path=os.path.join(path_csv_dir,pt)
		new_path=os.path.join(path_xlsx_dir,sr_new)
		shutil.copy(old_path,new_path)

LSLS1997

感谢楼主

sadffg

CSV不就是Excel文件吗？互相打开的吧

xxp2277

lisongmei 发表于 2024-3-31 19:39
我也有个哇，看到了就一起分享下，python的
[mw_shl_code=python,true]import os,shutil
from openpyxl i ...

感谢分享。

bianchch

VBA实现，练手挺好
但是感觉这个功能有很多现成的小工具？