Макрос сохранения файла в новом формате в стандартную папку - VBA

Формулировка задачи:

Здравствуйте. Появилась проблема: работаю с огромным количеством одинаковых excell файлов. Сделал макрос который обрабатывает документ. Но никак не получается сделать правильное сохранение: изначальный файл - csv, в конце должен получится xlsx. После сохранения все равно получается csv файл. Подскажите пожалуйста, как сохранить файл в стандартную папку, в новом формате с тем же именем файла. Буду очень благодарен.

Решение задачи: «Макрос сохранения файла в новом формате в стандартную папку»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Macro1()
'
' Macro1 Macro
'
 
'
    ChDir "C:\Downloads"
    ActiveWorkbook.SaveAs Filename:="C:\Downloads\12.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
End Sub