时间:2020-09-10 11:09作者:admin来源:未知人气:953我要评论(0)
本文将指导您如何将Excel中工作簿中每个工作表保存为的单独CSV文件。如何在Excel 2013/2016中保存多个或所有工作表为单独的csv文件。如何使用Excel中的VBA宏导出所有工作表为单独的文本文件。
假设您有一个包含四个不同工作表的工作簿,sheet1,sheet2,sheet3和sheet4。并且您希望每个工作表都导出为单独的CSV文件,并且每个CSV文件的文件名与其所在的工作簿的工作表名相同。要实现导出多个工作表为单独的csv文件,您必须使用VBA宏将当前工作簿中的所有工作表保存为单独的csv文件。执行下面的步骤:
步骤1:打开您的Excel工作簿,然后单击开发工具选项卡下的“Visual Basic”命令,或者只需按“ALT + F11”快捷方式。
步骤2:然后将出现“Visual Basic编辑器”窗口。
步骤3:单击“插入” – >“模块”以创建新模块。
步骤4:将以下VBA代码粘贴到代码窗口中。然后单击“保存”按钮。
Public Sub SaveWorksheetsAsCsv()
Dim WS As Excel.Worksheet
Dim SaveToDirectory As String
Dim CurrentWorkbook As String
Dim CurrentFormat As Long
CurrentWorkbook = ThisWorkbook.FullName
CurrentFormat = ThisWorkbook.FileFormat
' Store current details for the workbook
SaveToDirectory = "D:tmp"
For Each WS In ThisWorkbook.Worksheets
WS.SaveAs SaveToDirectory & WS.Name, xlCSV
Next
Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=CurrentWorkbook, FileFormat:=CurrentFormat
Application.DisplayAlerts = True
' Temporarily turn alerts off to prevent the user being prompted
' about overwriting the original file.
End Sub
步骤5:返回当前工作表,然后运行上面的excel宏。点击执行按钮。
步骤6:您将看到所有工作表已转换为指定目录中的单个CSV文件。此示例将csv文件保存到D:tmp目录中。您需要根据需要更改变量“SaveToDirectory”。或者您也可以在磁盘D分区中创建一个名为tmp的临时目录。
如果只想将每个工作表转换为活动工作簿的单独文本文件,还可以使用Excel VBA宏来实现结果。只需使用以下VBA代码:
Public Sub SaveWorksheetsAsCsv()
Dim WS As Excel.Worksheet
Dim SaveToDirectory As String
Dim CurrentWorkbook As String
Dim CurrentFormat As Long
CurrentWorkbook = ThisWorkbook.FullName
CurrentFormat = ThisWorkbook.FileFormat
' Store current details for the workbook
SaveToDirectory = "D:tmp"
For Each WS In ThisWorkbook.Worksheets
WS.SaveAs SaveToDirectory & WS.Name & ".txt"
Next
Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=CurrentWorkbook, FileFormat:=xlText
Application.DisplayAlerts = True
' Temporarily turn alerts off to prevent the user being prompted
' about overwriting the original file.
End Sub
相关阅读 你想学的FILTER函数用法,很全了当Excel体积臃肿,运行卡顿时,我们应该做些什么?带合并单元格的表格,求和计数也不难Excel筛选条件怎么设置ExcelA4页面怎么设置Excel表格A列被隐藏了怎么恢复Excel图例位于底部怎么设置Excel图表怎么嵌入单元格Excel没保存不小心关闭怎么恢复Excel图表怎么设置X轴Y轴
热门文章 excel怎么制作表格?制作excel表格的步骤技巧excel 常见的六个排序方法,你必须要学会excel自动换行显示不全怎么办excel 数据透视表 选定区域不能分组 的原因和解决方法
最新文章
你想学的FILTER函数用法,很全了当Excel体积臃肿,运行卡顿时,我们应该做些什么?
带合并单元格的表格,求和计数也不难Excel筛选条件怎么设置ExcelA4页面怎么设置Excel表格A列被隐藏了怎么恢复
人气排行 excel怎么制作表格?制作excel表格的步骤技巧excel 常见的六个排序方法,你必须要学会excel自动换行显示不全怎么办excel 数据透视表 选定区域不能分组 的原因和解决方法Excel高级筛选怎么用 excel高级筛选多个条件(并且、或用法)excel if函数的多个条件使用方法Excel中的快速填充键ctrl+e没反应,不能用是为什么?excel 判断两列数据是否一致的四种方法
盖楼回复X
(您的评论需要经过审核才能显示)
查看所有0条评论>>