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

Question

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

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

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

Является ли это проблемой 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 

Answer 1

Попробуйте строить расширение в ваше имя файла:

.SaveAs ws.Name & ".csv", xlCSV 

При проверке исходного списка файлов в Finder, он сообщает «Simple Text Document», когда вы добавляете расширение .csv он сообщает «значения, разделенные запятыми», в качестве типа файла (вид). Возможно, это устранит проблему с импортом браузера?

Если нет, возможно, вы можете записать свои данные по ячейкам. Этот similar post может быть вам полезен.