关于CSV转换为TXT文件的问题

IMbaCkr

小弟现在的需求是把csv文件全自动批量转换为txt文件，小弟已经把目标文件和转换后需要的例子上传了，请问大神们如何解决？谢谢各位 test.rar (58.35 KB, 下载次数: 7)

2017-12-9 13:14 上传

点击文件名下载附件

xiaocake

要求很简单，就是将csv文件(其内容就是文本)中的逗号替换成空格，对吗？(后面的文件格式与你的示例不一样)
如果是这样的话把csv文件当文本文件处理就可以了。

1. Option Explicit
   
2. Sub BATCHcTXT()
   
3.     Dim Pth, FileName, TxtFileName
   
4.     Dim oTxt, sTxt, t
   
5.     Dim fso, oFile, sFile As Object
   
6.     t = Timer
   
7.     Set fso = CreateObject("Scripting.FileSystemObject")
   
8.     'Pth = ThisWorkbook.PAth & ""
   
9.     Pth = fso.GetFolder(".") & ""
   
10.     FileName = Dir(Pth & "*.csv")
    
11.     While FileName <> ""
    
12.         Set oFile = fso.OpenTextFile(FileName, 1)  '读取csv文件
    
13.         oTxt = oFile.readall
    
14.         oFile.Close
    
15.         Set oFile = Nothing
    
16.         sTxt = Replace(oTxt, ",", " ") '将逗号替换为空格
    
17.         TxtFileName = Replace(LCase(FileName), ".csv", ".txt")
    
18.         Set sFile = fso.CreateTextFile(Pth & TxtFileName) '创建txt文件
    
19.         sFile.write sTxt  '将替换后的内容写进新建的txt文件
    
20.         sFile.Close
    
21.         Set sFile = Nothing
    
22.         FileName = Dir()
    
23.     Wend
    
24.     Set fso = Nothing
    
25.     Application.StatusBar = "用时： " & Timer - t
    
26. End Sub

复制代码

IMbaCkr

xiaocake 发表于 2017-12-9 23:24
要求很简单，就是将csv文件(其内容就是文本)中的逗号替换成空格，对吗？(后面的文件格式与你的示例不一样)
...

非常感谢您的回答，可是在我这里出错了，我已经按照您的说明把您给我的附件放到了存放csv文件的文件夹下，但是执行以后在 读取csv文件 那一行出错了 说是文件未找到。
ps、我把path改成了固定的存放csv文件的路径，应该没错吧。。。

xiaocake

Set oFile = fso.OpenTextFile(FileName, 1)

xiaocake

xiaocake 发表于 2017-12-10 12:48
Set oFile = fso.OpenTextFile(FileName, 1)

我运行是正常的。
你把 Set oFile = fso.OpenTextFile(FileName, 1)这句改为
Set oFile = fso.OpenTextFile(Pth & FileName, 1)

xiaocake

再给你来个vbs版本的，处理思路一样的，但是不需要借助Excel了。

646411527

学习，好久没来学习了。