Question

我最初的问题是找出如何将12000行的文件分成1000行的单个文件并保留标题。我找到了一个很好的问答（仅对行数进行了一次调整），链接在这里：How to split spreadsheet into multiple spreadsheets with set number of rows?

我唯一需要的是脚本将文件保存为CSV而不是工作表，但我在脚本中看不到任何明显的文件类型供我更改。仅供参考，我非常这个新手！

提前致谢

Answer 1

正如@ vba4all在上面的评论中所提到的，Workbook.SaveAs的表达式是

expression .SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)

您可以访问this msdn article了解更多信息。

要将工作簿另存为csv，必须使用

ActiveWorkbook.SaveAs Filename:="C:\Test.csv", FileFormat:=xlCSV

请注意，当您将工作簿保存为带或不带代码的csv时，Excel将提示您进行确认。为避免这种情况，您可以将Application.DisplayAlerts设置为False

这是一个例子

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Test.csv", FileFormat:=xlCSV
Application.DisplayAlerts = True

要详细了解文件格式，您可能需要查看this msdn链接

使用VBA将文件保存为CSV - 当前将多个文件保存为工作表

1 个答案: