请教大神，在VBA中如何修改多个csv文件为txt文件

jsyzlibin

D盘20230419目录下有多个csv文件，请问如何修改csv文件为txt文件，谢谢。

jsyzlibin

name "D:\20230419\CK3210279001082023041801.csv" As "D:\20230419\CK3210279001082023041801.txt"只能改指定的文件，如何改所有csv文件

ykcbf1100

把代码文件复制到csv目录下再运行即可。

jsyzlibin

    p = "D:\20230419\"
    Set fso = CreateObject("scripting.filesystemobject")
    Application.ScreenUpdating = False
    Set ff = fso.getfolder(p)
    On Error Resume Next
    For Each f In ff.Files
       fn = Split(f.Name, ".")(0)
       fn1 = fn & ".txt"
       f.Name = fn1
    Next f
    Application.ScreenUpdating = True

我改了下，但是这样会把这个目录中的所有文件都改成txt，能不能改成只有csv文件改成txt

jsyzlibin

    p = "D:\20230419\"
    Set fso = CreateObject("scripting.filesystemobject")
    Application.ScreenUpdating = False
    Set ff = fso.getfolder(p)
    On Error Resume Next
    For Each f In ff.Files
       fn = Split(f.Name, ".")(0)
       fn1 = fn & ".txt"
       f.Name = fn1
    Next f
    Application.ScreenUpdating = True
我改了下，但是这个目录中所有文件都改成txt，能不能只有csv文件改成txt

jsyzlibin

    p = "D:\20230419\"
    Set fso = CreateObject("scripting.filesystemobject")
    Application.ScreenUpdating = False
    Set ff = fso.getfolder(p)
    On Error Resume Next
    For Each f In ff.Files
       fn = Split(f.Name, ".")(0)
       fn1 = fn & ".txt"
       f.Name = fn1
    Next f
    Application.ScreenUpdating = True
我改了下，但是这个目录中所有文件都改成txt了，能不能只有csv文件改成txt

jsyzlibin

ykcbf1100 发表于 2023-4-19 11:13
把代码文件复制到csv目录下再运行即可。

这个将目录中所有文件都改成了txt，如何实现只修改csv文件

ykcbf1100

jsyzlibin 发表于 2023-4-19 15:19
这个将目录中所有文件都改成了txt，如何实现只修改csv文件

增加一个条件判断。

你地铁图

批量处理  bat

jsyzlibin

ykcbf1100 发表于 2023-4-19 20:40
增加一个条件判断。

谢谢，完美解决问题了。