Как изменить расширение файла в VBA

Обновить

April 2019

Просмотры

15.9k раз

1

Я чувствую, как это должно быть простым, но я не могу найти ответ. Я спасаю кучу CSV файлов с помощью VBA и хотел бы изменить все расширения файлов с расширением .csv в .txt импортировать в другую программу (Revit), которая распознает только расширение .txt. Это возможно? Вот команда, я использую.

    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

Спасибо!

3 ответы

0

Ok got it. You can just ad txt to the file name, even if it is in the CSV format.

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
1

You should change

FileFormat:=xlCSV 

to

FileFormat:=xlTextWindows

See

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

or

The xlFileFormat enumeration (Excel) on MSDN

3

You don't even need to open the files to rename them.

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