如何在VBA中更改文件扩展名

Question

我觉得这一定很简单，但我找不到答案。我正在使用 vba 保存一堆 csv 文件，并希望将所有文件扩展名从 .csv 更改为 .txt 以导入到另一个仅识别 .txt 扩展名的程序 (Revit) 中。这可能吗？这是我正在使用的命令。

    For I = 1 To WS_Count

        path = CurDir() + "\" + ActiveWorkbook.Worksheets(I).Name

        Sheets(ActiveWorkbook.Worksheets(I).Name).Select
        ActiveWorkbook.SaveAs Filename:=path, FileFormat:=xlCSV, CreateBackup:=False

        Name path As ("path" + ".txt")

     Next I

谢谢！

Answer 1

您甚至不需要打开文件来重命名它们。

Sub M_snb()
  name "G:\OF\example.csv" As "G:\OF\example.txt"
end sub