여러 엑셀 워크 시트를 .csv로 변환하십시오 찾았지만 변환 된 파일 이름에서 통합 문서

통합 문서의 여러 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

답변

변화

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

에

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

답변