엑셀의 모든 시트를 각각의 csv로 내보내기

Sub exportSheetsToCSV()
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", FileFormat:=xlCSVUTF8, CreateBackup:=False
    ActiveWorkbook.Close False
Next
End Sub

엑셀로 된 데이터베이스를 CSV로 변환하여 유니티에서 불러오기에 좋다.