Makro - „Speichern unter“ ursprünglicher Arbeitsmappenname

Question

Geplante Maßnahmen:

1. Kopieren und Einfügen der Spalten CA:CF von 123.csv nach 123a.csv

Kann mir bitte jemand mit dem ursprünglichen Arbeitsmappennamen „Speichern unter“ mit dem angehängten „a“ helfen?

Danke.

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

Bitte bearbeiten Sie den folgenden Code:

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

Zu:

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