请教高手：我想用如下程序，把文件夹中的EXCEL全部变成CSV，为什么总是报错？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我想用如下程序，把文件夹中的EXCEL全部变成CSV，为什么总是报错？

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

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：EXCEL xcel 请教高手 exce 文件夹 文件夹 EXCEL 程序

csv (*.csv) 文件格式只能保存活动工作表中的单元格所显示的文本和数值。工作表中所有的数据行和字符都将保存。数据列以逗号分隔，每一行数据都以回车符结束。如果单元格中包含逗号，则该单元格中的内容以双引号引起。
如果单元格显示的是公式而不是数值，该公式将转换为文本方式。所有格式、图形、对象和工作表的其他内容将全部丢失。

若只是保存一点文本信息用 .csv文件就可以了 但是若有设定公式，冻结列等其他东西则用xls

胖胖小龟宝 发表于 2015-7-21 16:28
csv (*.csv) 文件格式只能保存活动工作表中的单元格所显示的文本和数值。工作表中所有的数据行和字符都将保 ...

感谢你的解答，看来两者有较大不同！