问题:有大量xlsx文件,需要转换为CSV格式
一般解决方法:打开xlsx文件,文件-另存为-选择CSV格式-保存,重复其他文件。
建议的解决方案:
一、新的[宏观支持工作簿*。xlsm]
创建新的常规xlsx文件并使用另存为宏工作簿*。选择“保存xlsm”。
二、激活宏
开启「选项」,按一下「自订功能区」,然后选取「开发工具」。
excel选项
三、编辑宏
按一下「录制巨集」来命名新巨集
宏命名
要在替换以下代码后保存,请单击“编辑”。
Sub另存为()
不显示提示框
A=False
不显示自动化进程
A=False
Dim filename、pathname
Dim WB As Workbook
打开文件夹下相同类型的文件
pathname=' c : \ users \ chenwen Jing \ desktop \ new folder \ '
Filename=Dir(pathname '*。xlsx ')
Do While filename ' '
set WB=workbooks . open(pathname filename)
获取新文件名
WB . saveasfilename :=create object(' scri;)。“getbasename (pathname filename)”。“CSV”,_
file format :=XL CSV;create backup :=false
Wb。Close
“下一个文件”
Filename=Dir
循环(音乐)
A=真
A=真
End Sub 4,运行宏
“添加任务”按钮
右键单击“指定宏”,选择“另存为”“宏”命令
单击“另存为”按钮可执行宏操作
1.《【excel怎么存为cvs】VBA宏中精彩的——Excel批处理转换文件格式》援引自互联网,旨在传递更多网络信息知识,仅代表作者本人观点,与本网站无关,侵删请联系页脚下方联系方式。
2.《【excel怎么存为cvs】VBA宏中精彩的——Excel批处理转换文件格式》仅供读者参考,本网站未对该内容进行证实,对其原创性、真实性、完整性、及时性不作任何保证。
3.文章转载时请保留本站内容来源地址,https://www.lu-xu.com/keji/2516437.html