Конвертировать несколько листов Excel в .csv

Question

Я нашел этот макрос для преобразования нескольких листов Excel в книге в отдельные именованные файлы .csv, но не знаю, как удалить имя книги из имени преобразованного файла. Я уверен, что все просто, но я ничего не знаю о VBA.

Sub exportcsv()
Dim ws As Worksheet
Dim path As String

path = ActiveWorkbook.path & "\" & Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1)
For Each ws In Worksheets
ws.Copy
ActiveWorkbook.SaveAs Filename:=path & "_" & ws.Name & ".csv", leFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close False
Next
End Sub

Answer 1

+ Изменить

ActiveWorkbook.SaveAs Filename:=path & "_" & ws.Name & ".csv"

в

ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.path & "\" & ws.Name & ".csv"