/VBA/Excel vba export sheet as a csv without losing focus of my current workbook

Excel vba export sheet as a csv without losing focus of my current workbook

'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

Source: academy.excelhero.com

Similar codes

1 vote152 views1 answer
Vba exit do while
VBA
0 vote203 views1 answer
Regex numeric digits
VBA
-1 vote223 views1 answer
Code for reading letters only in vb 6
VBA
0 vote212 views2 answers
Vb.net include quotes in string
VBA
0 vote196 views1 answer
Vbs write file
VBA
5 votes201 views1 answer
Xlvba double quotes in string literal
VBA
0 vote196 views1 answer
Vba format currency
VBA
0 vote195 views1 answer
Excel vba first working day month
VBA
0 vote166 views1 answer
Vba select file in folder
VBA
0 vote217 views1 answer
Vbnet convert charatcer to binary
VBA