Сохранить выбранные листы в рабочей книге в отдельные файлы CSV

Это очень похожий вопрос, который задавали другие, но я использую Excel 2011 на MAC и, похоже, не получаю желаемого результата.

Я экспортировал каждый лист в файл Excel вручную в виде CSV-файла, разделенного запятыми Windows (не MS DOS CSV), и используя немного php, мои таблицы отлично отображаются на моем сайте.

Используя приведенный ниже код в макросе, я могу успешно экспортировать отдельные листы в виде отдельных файлов CSV одним щелчком мыши. Тем не менее, они не имеют расширения .CSV в конце имени файла, и хотя они выглядят нормально с запятыми в нужном месте, когда я загружаю их на свой веб-сайт, они отображаются в одной длинной строке вместо несколько рядов.

Это проблема MAC Excel или есть что-то, что может быть добавлено в нижеприведенное исправление?

Sub asdf()
Dim ws As Worksheet, newWb As Workbook

Application.ScreenUpdating = False
For Each ws In Sheets(Array("Sheet1", "Sheet2"))
ws.Copy
Set newWb = ActiveWorkbook
With newWb
.SaveAs ws.Name, xlCSV
.Close (False)
End With
Next ws
Application.ScreenUpdating = True

End Sub