Question

这是一个与其他问题非常相似的问题，但我在MAC上使用Excel 2011并且似乎没有得到理想的结果。

我一直在excel文件中手动导出每个工作表作为一个Windows逗号分隔的CSV文件（不是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

Answer 1

尝试在您的文件名中构建扩展程序：

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

当您在Finder中检查原始文件列表时，它会报告“简单文本文档”，当您添加.csv扩展名时，它会报告“逗号分隔值”作为文件类型（Kind）。也许这会解决您的浏览器导入问题？

如果不是，则选项可能是逐个单元格写出数据。这similar post可能会对您有所帮助。

将选定的工作表保存在工作簿中以分隔CSV文件

1 个答案: