Изменить формат файла сохранения в VBA

Question

Я прочитал этот вопрос: можно ли разбить электронную таблицу на несколько файлов на основе столбца в Excel 2007?

У меня есть вопрос относительно «Сохранить в том же формате, что и оригинальная книга», который, я надеюсь, вы можете мне помочь.

Я использую макрос с файлом CSV, но я хочу, чтобы конечные файлы, такие как XLS.

Как можно изменить макрос для сохранения в этом формате (отличном от исходного)?

Answer 1

Вот типичный пример:

Sub Sample_Cvs_To_Xlsx()
    ChDir "C:\TestFolder"
    Workbooks.Open Filename:="C:\TestFolder\WhatEver.csv"
    '
    ' perform processing
    '
    ActiveWorkbook.SaveAs Filename:="C:\TestFolder\WhatEver.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWorkbook.Close
End Sub