Макрос - «Сохранить как» исходное имя книги

Question

Предполагаемые действия:

1. Скопируйте и вставьте столбцы CA:CF из 123.csv в 123a.csv

Может ли кто-нибудь помочь с исходным названием рабочей книги «Сохранить как» с добавленной буквой «a»?

Спасибо.

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+d
'
    Columns("CA:CF").Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ChDir "A:\test\Exported files"
    ActiveWorkbook.SaveAs Filename:= _
        "A:\test\Exported files\123.csv", FileFormat:=xlCSV, _
        CreateBackup:=False
    ActiveWindow.Close
    ActiveWindow.Close
End Sub

Answer 1

Пожалуйста, отредактируйте код ниже:

ActiveWorkbook.SaveAs Filename:= _
        "A:\test\Exported files\123.csv", FileFormat:=xlCSV, _

К:

ActiveWorkbook.SaveAs Filename:= _
        "A:\test\Exported files\123a.csv", FileFormat:=xlCSV, _