マクロ - 「名前を付けて保存」元のワークブック名

Question

意図するアクション:

1. 123.csv から 123a.csv に列 CA:CF をコピーして貼り付けます。

「SaveAs」の元のワークブック名​​に「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, _