|Okay, to make this easy, I made this as a VBScript. It'll open every .xls file in the directory, then save it as <workbookName>.<sheetName>.csv:|
Dim oShell, oExcel, oFile, oSheet
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("WScript.Shell")
Set oExcel = CreateObject("Excel.Application")
oExcel.DisplayAlerts = False
For Each oFile In oFSO.GetFolder("C:\").Files
If LCase(oFSO.GetExtensionName(oFile)) = "xls" Then
With oExcel.Workbooks.Open(oFile, 0, True, , , , True, , , , False, , False)
For Each oSheet In .Worksheets
oSheet.SaveAs ".\" & oFile.Name & "." & oSheet.Name, 6
.Close False, , False
oShell.Popup "Conversion complete", 10
The first red part (the C:\) is where the script will look for files.
The second red part (the .) is where the script will save the sheets.