csv格式的文件转为xlsx格式

⑧技术π⑧

逛了一圈没有找到相应的工具，帮忙做一个就是把ccsv格式的文件转为xlsx格式，谢谢

咔咔乱坠

文件不多可以点击另存为xlsx喔

⑧技术π⑧

咔咔乱坠 发表于 2023-5-27 16:22
文件不多可以点击另存为xlsx喔

里面只是举例，文件比较多

咔咔乱坠

那就直接批处理得，新建一个文本文档，将这句代码写进去，改后缀名为bat
一定要注意要放在文件夹里面，他会重命名当前文件夹下所有文件为xlsx
执行前记得复制一个文件夹作备份

1. ren *.* *.xlsx

复制代码

wanghan519

powershell有从csv转换成对象的命令，而importexcel包可以把对象输出成xlsx，所以就是一句

1. ls *.csv | % {Get-Content $_ -Encoding oem | ConvertFrom-Csv | Export-Excel -AutoSize ($_.BaseName + ".xlsx")}

复制代码

ykcbf1100

参与一下。

fzxba

1. Sub test0() '适用于较高版本excel
   
2.   Dim Fso As Object, oFile As Object, Conn As Object
   
3.   Dim SQL As String, strPath As String, strFile As String
   
4.   
   
5.   Application.ScreenUpdating = False
   
6.   
   
7.   strPath = ThisWorkbook.Path
   
8.   Set Fso = CreateObject("Scripting.FileSystemObject")
   
9.   Set Conn = CreateObject("ADODB.Connection")
   
10.   Conn.Open "provider=Microsoft.ACE.OLEDB.12.0;Extended Properties =Excel 12.0;Data Source=" & ThisWorkbook.FullName
    
11.   
    
12.   For Each oFile In Fso.GetFolder(strPath).Files
    
13.     If oFile.Name Like "*.csv" Then
    
14.       strFile = Replace(oFile.Path, ".csv", ".xlsx")
    
15.       If Fso.FileExists(strFile) Then Fso.DeleteFile strFile
    
16.       SQL = "SELECT * INTO [Excel 12.0 XML;Database=" & strFile & "].[" & Replace(oFile.Name, ".csv", "") & "] " & _
    
17.             "FROM [Text;FMT=CSVDelimited;HDR=YES;Database=" & strPath & "].[" & oFile.Name & "]"
    
18.       Conn.Execute SQL
    
19.     End If
    
20.   Next
    
21.   
    
22.   Set oFile = Nothing
    
23.   Set Fso = Nothing
    
24.   Conn.Close
    
25.   Set Conn = Nothing
    
26.   
    
27.   Application.ScreenUpdating = True
    
28.   Beep
    
29. End Sub

复制代码

hl19881005

路过看看，学习一下！