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

我觉得这一定很简单，但我找不到答案。 我正在使用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

你应该改变

 FileFormat:=xlCSV 

至

 FileFormat:=xlTextWindows 

看到

https://msdn.microsoft.com/en-us/library/office/ff198017.aspx

要么

MSDN上的xlFileFormat枚举（Excel）

Answer 2

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

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

Answer 3

好的，我知道了。 即使是CSV格式的文件名，您也可以将其添加到文件名中。

 WS_Count = ActiveWorkbook.Worksheets.Count For I = 1 To WS_Count path = CurDir() + "\" + ActiveWorkbook.Worksheets(I).Name + ".txt" Sheets(ActiveWorkbook.Worksheets(I).Name).Select ActiveWorkbook.SaveAs Filename:=path, FileFormat:=xlCSV, CreateBackup:=False Debug.Print (test) Debug.Print (path) Next I