Acciones previstas:
- Copiar y pegar columnas CA:CF de 123.csv a 123a.csv
¿Alguien podría ayudarme con el nombre del libro de trabajo original "Guardar como" con la "a" adjunta?
Gracias.
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
Respuesta1
Por favor edite el código a continuación:
ActiveWorkbook.SaveAs Filename:= _
"A:\test\Exported files\123.csv", FileFormat:=xlCSV, _
A:
ActiveWorkbook.SaveAs Filename:= _
"A:\test\Exported files\123a.csv", FileFormat:=xlCSV, _