“Lembar Ekspor Excel VBA sebagai CSV tanpa kehilangan fokus buku kerja saya saat ini” Kode Jawaban

Lembar Ekspor Excel VBA sebagai CSV tanpa kehilangan fokus buku kerja saya saat ini

'VBA function to save current worksheet as a CSV file without losing
'focus. The CSV file is saved in the same directory as the current
'workbook. The Local Separator is utilized:

Sub SaveSheetAsCSV()
  With ActiveSheet
    .Copy
     ActiveWorkbook.SaveAs Left(.Parent.Name, InStrRev(.Parent.Name, ".")) & .Name & ".csv", xlCSV, Local:=True
     ActiveWorkbook.Close False
    .Activate
  End With
End Sub