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

Question

这是与其他询问的问题非常相似的问题，但是我在MAC上使用Excel 2011，但似乎没有得到期望的结果。

我一直在手动将每张工作表导出为ex​​cel文件，作为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扩展名时，它报告“逗号分隔值”作为文件类型（种类）。 也许这可以解决您的浏览器导入问题？

如果不是这样，可以选择逐个单元写出您的数据。 这个类似的帖子可能对您有所帮助。