Excel VBA批量格式转换：xlsx转pdf、xls、csv以及反向转换

有时候需要把大量的xlsx文件另存为其它格式，比如pdf、xls、csv，或者反向转换，可以用VBA批量处理。启动Excel，按下Alt+F11，打开Microsoft Visual Basic for Applications,点击插入>模块，将下面的代码粘贴进去，然后按F5(某些笔记本电脑可能需要按Fn+F5)，或者点击图中的绿色小三角形，便可以执行代码。代码中涉及到的路径要根据自己的实际情况进行修改。Replace的作用是修改后缀名，SaveAs的作用是“另存为”。

Word的批量转换参见 https://blog.csdn.net/pijianzhirui/article/details/78668695
PowerPoint的批量转换参见 https://blog.csdn.net/pijianzhirui/article/details/85936272

还有一个名为Office Tool Plus(官网：https://otp.landian.vip/zh-cn/)的工具也可以进行批量格式转换。

'xlsx转pdf
Option Explicit
Sub xlsxConverter()
On Error Resume Next
Dim sEveryFile As String,sSourcePath As String,sNewSavePath As String
Dim CurXls As Object
sSourcePath = "E:\XLSX文件\"
'假定待转换的xlsx文件全部在"E:\XLSX文件\"下，你需要按实际情况修改。
sEveryFile = Dir(sSourcePath &"*.xlsx")
Do While sEveryFile <> ""Set Curxls = Workbooks.Open(sSourcePath & sEveryFile, , msoTrue )sNewSavePath = VBA.Strings.Replace(sSourcePath & sEveryFile, ".xlsx", ".pdf")'转化后的文件也在"E:\xlsx文件\"下，当然你可以按需修改。CurXls.ExportAsFixedFormat xlTypePDF,sNewSavePath'更多格式可参见文末的截图ExportAsFixedFormatCurXls.Close SaveChanges:=FalsesEveryFile= Dir
Loop
Set CurXls = Nothing
End Sub

'xlsx转xls、csv
Option Explicit
Sub xlsxConverter()
On Error Resume Next
Dim sEveryFile As String,sSourcePath As String,sNewSavePath As String
Dim CurXls As Object
sSourcePath = "E:\XLSX文件\"
'假定待转换的xlsx文件全部在"E:\XLSX文件\"下，你需要按实际情况修改。
sEveryFile = Dir(sSourcePath &"*.xlsx")
Do While sEveryFile <> ""Set Curxls = Workbooks.Open(sSourcePath & sEveryFile, ,msoTrue)sNewSavePath = VBA.Strings.Replace(sSourcePath & sEveryFile, ".xlsx", ".xls")'如果想导出csv，就把第12行行尾的xls换成csv'如果想把xls转为xlsx，把第9行的xlsx改为xls，把第12行行尾的".xlsx", ".xls"改为".xls", ".xlsx"'转化后的文件也在"E:\xlsx文件\"下，当然你可以按需修改。CurXls.SaveAs sNewSavePath, xlExcel8'xls对应xlExcel8,csv对应xlCSV,xlsx对应xlWorkbookDefault'更多格式可参见文末的截图XlFileFormat Enumeration (Excel)CurXls.Close SaveChanges:=FalsesEveryFile= Dir
Loop
Set CurXls = Nothing
End Sub

Excel VBA批量格式转换：xlsx转pdf、xls、csv以及反向转换相关推荐

Excel VBA 批量转换文件夹下的xlsx文件为pdf（多文件多sheet）
可以在excel工作表中通过宏将一个文件夹中的所有xlsx或类似的表格文件批量转换为pdf文件,遍历每个工作表的每个sheet并逐一转换. Sub TO_PDF()On Error Resume Ne ...
PowerPoint VBA批量格式转换：pptx转pdf、ppt以及反向转换
这篇博客阅读量较大,借此为思杰马克丁做个广告. 揭露苏州小叶网络科技有限公司不齿行径 https://bbs.kafan.cn/thread-2095728-1-1.html 揭开软件行业毒瘤思杰马 ...
Word VBA批量格式转换：docx转pdf、doc、rtf、txt以及反向转换
有时候需要把大量的docx文件另存为其它格式,比如pdf.doc.rtf.txt,或者反向转换,可以用VBA批量处理.启动word,按下Alt+F11,打开Microsoft Visual Basic ...
利用Excel VBA批量计算气象数据多个台站多年来春季和冬季降水量和平均气温
气象数据是地理数据的重要组成部分,存储量虽然不大,但是处理过程非常繁琐,长时序数据更不用说.本文总结了一个气象数据的基本处理方法. 如下图所示,气象数据的排列格式是区站号→年→月→降水量→平均气温,时 ...
ppt可以转换成HTML格式吗,极强PDF转换器如何将ppt转换成html网页格式
极强PDF转换器如何将ppt转换成html网页格式?想要转换文件其实很简单,小编告诉大家一个用专业的极强PDF转换器软件将PPT转换成HTML网页格式的方法,下面小编就来教大家如何将PPT幻灯片转换成 ...
利用Excel VBA批量计算长时间序列植被物候动态阈值（逐像元）
本文演示利用Excel VBA编程实现多期栅格数据,逐像元计算物候参数:生长季始期(SOS).生长季末期(EOS)和生长季长度(LOS),计算过程速度快! 说明: (1)利用Raster to Poi ...
Excel VBA: 批量删除带删除线的文本
需求的故事是这样的.... 在开发过程中, 我们会使用excel写各式各样的文档, 通常这些文档都是从一个Base修改而来的. 为了便于其他人review, 在做成这些文档的时候, 作成者会使用不同的 ...
Excel VBA 批量取工作表名称
'批量取工作表名称 Function gname(x As Integer)If x = 0 Thengname = ActiveSheet.NameElseIf x > 0 And x < ...
Excel VBA批量修改文件名
一.设计思路 1.选择要修改文件的文件夹: 2.获取文件夹内所有文件: 3.在Excel里面将文件改后名写好: 4.更改文件名: 5.清空数据: 二.代码实现 1.可视化选择文件夹代码 With Ap ...

Excel VBA批量格式转换：xlsx转pdf、xls、csv以及反向转换

Excel VBA批量格式转换：xlsx转pdf、xls、csv以及反向转换相关推荐

最新文章

热门文章