提示:其它语言是由 Google 机器翻译的。 你可以访问 English 版本。
登录
x
or
x
x
马上登记
x

or

如何在Excel中将多个Excel文件批量转换为CSV文件?

在Excel中,我们可以使用“另存为”功能将工作簿转换为CSV文件,但是您是否知道如何将多个Excel文件批量转换为单独的CSV文件? 在本文中,我将介绍一个VBA代码,将文件夹中的所有Excel文件批量转换为Excel中的CSV文件。

使用VBA将文件夹的Excel文件批量转换为CSV文件

使用Kutools for Excel将工作簿工作表转换为单独的CSV文件好idea3

选项卡式浏览和编辑多个Excel工作簿/ Word文档,如Firefox,Chrome,Internet浏览10!

您可能熟悉在Firefox / Chrome / IE中查看多个网页,并通过轻松单击相应的选项卡在它们之间切换。 此处,Office选项卡支持类似的处理,允许您在一个Excel窗口或Word窗口中浏览多个Excel工作簿或Word文档,并通过单击其选项卡轻松切换它们。 点击Office Tab的免费45天试用版!

擅长

使用VBA将文件夹的Excel文件批量转换为CSV文件

在Excel中,除了VBA之外,没有内置函数可以快速解决此问题。

1。 启用Excel,然后按 Alt + F11键 钥匙打开 Microsoft Visual Basic for Applications 窗口。

2。 点击 插页 > 模块 创建一个新模块。

3。 复制下面的代码并将它们粘贴到新的模块窗口。

VBA:将Excel文件批量转换为CSV

Sub WorkbooksSaveAsCsvToFolder()'UpdatebyExtendoffice20181031 Dim xObjWB As Workbook Dim xObjWS As Worksheet Dim xStrEFPath As String Dim xStrEFFile As String Dim xObjFD As FileDialog Dim xObjSFD As FileDialog Dim xStrSPath As String Dim xStrCSVFName As String Application.ScreenUpdating = False Application.EnableEvents = False Application。 Calculation = xlCalculationManual On Error Resume Next Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)xObjFD.AllowMultiSelect = False xObjFD.Title =“Kutools for Excel  - 选择包含Excel文件的文件夹”如果xObjFD.Show <> -1则退出Sub xStrEFPath = xObjFD.SelectedItems(1)&“\”设置xObjSFD = Application.FileDialog(msoFileDialogFolderPicker)xObjSFD.AllowMultiSelect = False xObjSFD.Title =“Kutools for Excel  - 选择一个文件夹来查找CSV文件”如果xObjSFD.Show <> -1然后退出Sub xStrSPath = xObjSFD.SelectedItems(1)&“\”xStrEFFile = Dir(xStrEFPath&“* .xls *”)Do while xStrEFFile <>“”设置xObjWB =工作簿 s.Open(文件名:= xStrEFPath和xStrEFFile)xStrCSVFName = xStrSPath&Left(xStrEFFile,InStr(1,xStrEFFile,“。”) -  1)&“.csv”xObjWB.S​​aveAs文件名:= xStrCSVFName,FileFormat:= xlCSV xObjWB .Close savechanges:= False xStrEFFile = Dir Loop Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True Application.ScreenUpdating = True End Sub

4。 按 F5 键,在第一个弹出对话框中选择要包含要转换为CSV文件的Excel文件的文件夹。
doc批处理到csv 1

5。 点击 OK,然后在第二个弹出对话框中,选择要放置CSV文件的文件夹。
doc批处理到csv 2

6。 点击 OK,现在文件夹中的Excel文件已转换为CSV文件并保存在另一个文件夹中。
doc批处理到csv 3


使用Kutools for Excel将工作簿工作表转换为单独的CSV文件

众所周知,我们只能使用“另存为”功能将整个工作簿转换为Excel中的一个CSV文件。 但在某些时候,您希望将单个工作表转换为CSV文件,在本例中为 分割工作簿 实用程序 Kutools for Excel 可以帮你。

Kutools for Excel, 与超过 200 方便的功能,使您的工作更轻松。

安装后 Kutools for Excel,请按照以下步骤操作:(免费下载Kutools for Excel!)

1。 启用要将其工作表转换为单独的CSV文件的工作簿,单击 Kutools Plus > 工作簿 > 分割工作簿.
doc批处理到csv 4

2。 在里面 分割工作簿 对话框,检查要拆分的工作表名称(默认情况下选中所有工作表),然后选中 除上文所 类型,选择 CSV(Macintosh)(* .CSV) 从下拉列表中选择。
doc批处理到csv 5

3。 点击 分裂 弹出一个 浏览文件夹 对话框,选择或创建文件夹以放置CSV文件。
doc批处理到csv 6

4。 点击 OK现在,工作簿已被拆分为单独的CSV文件。
doc批处理到csv 7


Kutools for Excel - 最佳办公生产力工具提高80%的生产力

  • 重用: 快速插入 复杂的公式,图表 以及你以前用过的任何东西; 加密单元格 密码; 创建邮件列表 并发送电子邮件...
  • 超级方程式酒吧 (轻松编辑多行文字和公式); 阅读布局 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不丢失数据; 分裂细胞含量; 组合重复的行/列...防止重复的细胞; 比较范围...
  • 选择复制或唯一 行; 选择空行 (所有细胞都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择......
  • 精确复制 多个单元格而不更改公式参考; 自动创建参考 多张表; 插入项目符号,复选框等等......
  • 提取文本,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级过滤器 (将过滤方案保存并应用到其他工作表); 高级排序 按月/周/日,频率等; 特殊过滤器 用粗体,斜体......
  • 结合工作簿和工作表; 根据键列合并表; 将数据拆分为多个表格; 批量转换xls,xlsx和PDF...
  • 超过300强大的功能。 支持Office / Excel 2007-2019和365。 支持所有语言。 在您的企业或组织中轻松部署。 全功能60天免费试用。
kte tab 201905

Office选项卡为Office提供选项卡式界面,使您的工作更轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,Publisher,Access,Visio和Project。
  • 在同一窗口的新选项卡中打开并创建多个文档,而不是在新窗口中。
  • 通过50%提高您的工作效率,每天为您减少数百次鼠标点击!
官方底部
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Sam · 3 months ago
    Another small remark:

    If the cells in the original Excel files are all formatted as "General", some accuracy is lost when the file is saved as a CSV
    For example, if a cell value in Excel is 0.123456789123456, then the value in the CSV will be 0.123456789 (missing the remaining decimals), as long as the cell was formatted as 'General'. This can be solved by formatting all cells in the Excel file to anything else than 'General' (for example, 'Text'). In that case, the CSV *will* still have the full detail/accuracy. I.e. the values in the Excel files will be fully intact after saving as a CSV.

    How could this macro be changes, so it sets the formatting of all cells in the Excel file to 'Text', before saving as a CSV?
    I imagine that it must somehow make use of the following, but I can't figure out how to correctly include in within the macro:

    Cells.Select
    Selection.NumberFormat = "@"
  • To post as a guest, your comment is unpublished.
    Sam · 4 months ago
    Works great, thanks for the code!
    My only remark would be that this code cuts of file names when there is a "." in the filename itself (e.g. file.123.csv turns into file.csv).
  • To post as a guest, your comment is unpublished.
    Aman · 8 months ago
    Ty it really works dear !!