vba批量替代excel单元格内容VBA宏的妙用Excel批量转换文件格式

导读问题：有大量的xlsx文件，需要转化为csv格式一般的解决办法：打开xlsx文件，文件-另存为-选择csv格式-保存，重复操作其他文件。推荐的解决办法：一、....

问题：有大量的xlsx文件，需要转化为csv格式

一般的解决办法：打开xlsx文件，文件 - 另存为 - 选择csv格式 - 保存，重复操作其他文件。

推荐的解决办法：

一、新建【启用宏的工作簿*.xlsm】

新建普通xlsx文件，【另存为】选择【启用宏的工作簿*.xlsm】保存。

二、启用宏

打开【选项】，点击【自定义功能区】，勾选【开发工具】。

Excel选项

三、编辑宏

通过点击【录制宏】，新建一个宏命名

宏命名

点击【编辑】，替换以下代码后保存

Sub 另存为()不显示提示框Application.DisplayAlerts = False不显示自动化过程Application.ScreenUpdating = FalseDim filename, pathnameDim wb As Workbook打开文件夹下同一类性的文件pathname = "C:\Users\ChenWenjing\Desktop\新建文件夹\"filename = Dir(pathname & "*.xlsx")Do While filename <> "" Set wb = Workbooks.Open(pathname & filename)获取新建文件名 wb.SaveAs filename:=CreateObject("Scripting.FileSystemObject").GetBaseName(pathname & filename) & ".csv", _ FileFormat:=xlCSV, CreateBackup:=False wb.Close 下一个文件 filename = Dir LoopApplication.DisplayAlerts = TrueApplication.ScreenUpdating = TrueEnd Sub

四、运行宏

添加操作按钮

右键按钮【指定宏】，选择【另存为】宏命令

点击【另存为】按钮即可执行宏操作