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

csv格式批量转为TXT格式(VBA代码)

达叔4个月前 (03-19)WPS表格197

最近挖了点关键词,但是因为软件挖出来的文件全部是CSV格式的,CSV格式打的开都是WPS中打开,想用记事本TXT格式打开速度快些,所以百度了下CSV批量转TXT格式,以下代码在WPS中新建一个表格,运行即可。注意修改路径

Sub SaveAsUnicode()
Dim F As String, Path As String, Shs As Object
 Path = "C:\CSV" 'CSV文件所在的文件夹,自行修改
 F = Dir(Path & "\*.csv")
 If F <> "" Then
    Do
     Set Shs = Application.Workbooks.Open(Path & "\" & F)
     Shs.SaveAs Filename:=Path & "\" & Left(F, Len(F) - 4) & ".txt", FileFormat:=42, CreateBackup:=False
     Shs.Close
     F = Dir()
    Loop While F <> ""
    MsgBox "处理完毕!", vbInformation + vbOKOnly, "消息"
 End If
End Sub


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