当前位置:首页 > WPS表格 > 正文内容

CSV批量转为xlx与xlsx格式

达叔6个月前 (01-20)WPS表格233

CSV转为XLX测试成功,转XLSX暂时未测试,csv转TXT失败,以下为CSV转为XLX代码,将D盘名称为3的文件夹中所有csv批量转换为xlx格式。

sub csv转xlx
ChDir "D:\3"    
Dim sDir As String    
Dim curdir As String    
curdir = "D:\3"    
sDir = Dir(curdir & "\*.csv")    
While Len(sDir)        
Workbooks.Open Filename:=curdir & "\" & sDir        
Dim temp As String        
temp = Left(sDir, Len(sDir) - 4)        
ActiveWorkbook.SaveAs Filename:=curdir & "\" & temp & ".xlx", _            
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _            
ReadOnlyRecommended:=False, CreateBackup:=False        
ActiveWorkbook.Close       
sDir = Dir    
Wend
END SUB



转换后如下:

QQ截图20200120002108.jpg

版权声明:本文由WPS达师发布,如需转载请注明出处。