Alterar salvar formato de arquivo no VBA

Question

Eu li esta pergunta: Posso dividir uma planilha em vários arquivos com base em uma coluna no Excel 2007?

Tenho uma pergunta sobre "Salvar no mesmo formato da pasta de trabalho original" com a qual espero que você possa me ajudar.

Estou usando a macro com um arquivo CSV, mas quero ter os arquivos finais como o XLS.

Como a macro pode ser alterada para salvar neste formato (diferente do original)?

    

Answer 1

Aqui está uma amostra típica:

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