excel 批量转换为csv

发布网友发布时间：2022-04-22 09:10

我来回答

共3个回答

热心网友时间：2022-04-27 12:22

没办法批量转换，只能逐个转换。

1.打开Excel文档：

安装office办公软件，Excel即可以打开。

2.点击文件：

文件这个菜单是整合文档的重要菜单。我们点击一下。

3.点击另存为：

在文件的菜单中选择另存为即可。文件存在什么地方自己知道就行。

4.选择保存类型：

保存类型在保存的上一行，这个不难找到。

5.选择CSV后保存：

点击CSV选项，选择后再点击保存就好。 CSV文档即可出现。

热心网友时间：2022-04-27 13:40

上面的软件好复杂，给你个vbs脚本吧。

Dim oExcel
Set oExcel = WScript.CreateObject("Excel.Application")
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Set fds=fso.GetFolder(".")'表示vbs所在的文件夹
Set ffs=fds.Files
For Each ff in ffs
If LCase(Right(ff.Name,5))=".xlsx" Then'只处理.xlsx文件
Set oWk=oExcel.Workbooks.Open(ff.Path)
csvname=Left(ff.Path,Len(ff.path)-5)
owk.SaveAs csvname,6 '6代表csv格式
oExcel.ActiveWorkbook.Saved=True
owk.Close
End if
Next
On Error Resume next
oExcel.Quit

热心网友时间：2022-04-27 15:15

试试这个看看。