可以通过FSO对象或DIR循环目录下所有文件，并可使用Open 方法打开Excel工作簿，想保存为其它格式可使用SaveAs方法
一、三种保存工作簿的方法
保存你的工作簿
1、ThisWorkbook.Save 'Save相当于你手工单击 保存按钮；这个函数无参数
语法如下：
expression.Save
参数expression是必需的，该表达式返回一个Workbook对象。
这种方法相当于我们在用鼠标点击“保存”按钮，这时工作薄将覆盖原来保存的文件为最新的文件
2、ThisWorkbook.SaveAs ' 另存为工作簿 把当前工作簿另存为一份新的工作簿
Workbook对象的SaveAs方法使用另外一个文件名保存对工作簿所做的更改，语法如下：
SaveAs(FileName,FileFormat,Password,WriteResPassword,ReadOnlyRecommended,CreateBackup,AccessMode,ConflictResolution,AddToMru,TextCodepage,TextVisualLayout,Local)
参数Filename可选，表示要保存文件的文件名的字符串。可包含完整路径，如果不指定路径，将文件保存到当前文件夹中。
使用SaveAs方法将工作簿另存为新文件后，将关闭原工作簿文件。
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\test.xlsx"
3、ThisWorkbook.SaveCopyAs '另存一份副本为新工作簿，但不关闭当前工作簿。
只有一个参数，就是新的副本文件名。
如果希望工作簿在保存为另一文件名后，还能继续编辑原工作簿，那可使用SaveCopyAs方法。
SaveCopyAs：方法将指定工作簿的副本保存到文件，但不修改内存中的打开工作簿
语法如下：SaveCopyAs(Filename)
二、 SaveAs 参数比较多
SaveAs(FileName,FileFormat,Password,WriteResPassword,ReadOnlyRecommended,CreateBackup,AccessMode,ConflictResolution,AddToMru,TextCodepage,TextVisualLayout,Local)
1、前面几个主要参数
ThisWorkbook.SaveAs
'filename(文件名） ,fileformat（文件格式）,password（密码）
第一个参数为文件名称：可以为全路径名；也可以不含路径的名称，如果不包含路径，默认会保存在原文件所在文件夹
第二个参数为文件格式：常用格式设置51即可，具体可看微软帮助 XlFileFormat 枚举 (Excel)
第三个参数为设置打开密码
'前三个参数比较关键，其它可以不填，如果全不填就等效于 .save
2、另存的一些示例
1）另存为带宏的工作簿
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "新文件名", FileFormat:=xlOpenXMLWorkbookMacroEnabled
2）另存为早期的xls的工作簿（Excel 2002 2003等）
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "新文件名", FileFormat:=xlExcel8
3）另存为另一个名称的xlsx（默认格式）的工作簿
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "新文件名", FileFormat:=xlWorkbookNormal
4）另存为PDF格式（可使用PDF阅读器打开，格式不失真）
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "新文件名"
5) 另存为CSV格式
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "新文件名", FileFormat:=xlCSV
三、附 XlFileFormat 枚举 (Excel) 指定保存工作表时的文件格式。
名称 值 说明 扩展名
xlAddIn 18 Microsoft Excel 97-2003 外接程序 *.xla
xlAddIn8 18 Microsoft Excel 97-2003 外接程序 *.xla
xlCSV 6 CSV *.csv
xlCSVMac 22 Macintosh CSV *.csv
xlCSVMSDOS 24 MSDOS CSV *.csv
xlCSVUTF8 62 UTF8 CSV *.csv
xlCSVWindows 23 Windows CSV *.csv
xlCurrentPlatformText -4158 当前平台文本 *.txt
xlDBF2 7 Dbase 2 格式 *.dbf
xlDBF3 8 Dbase 3 格式 *.dbf
xlDBF4 11 Dbase 4 格式 *.dbf
xlDIF 9 数据交换格式 *.dif
xlExcel12 50 Excel 二进制工作簿 *.xlsb
xlExcel2 16 Excel 版本 2.0 (1987) *.xls
xlExcel2FarEast 27 Excel 版本 2.0 中文 (1987) *.xls
xlExcel3 29 Excel 版本 3.0 (1990) *.xls
xlExcel4 33 Excel 版本 4.0 (1992) *.xls
xlExcel4Workbook 35 Excel 版本 4.0 工作簿格式 (1992) *.xlw
xlExcel5 39 Excel 版本 5.0 (1994) *.xls
xlExcel7 39 Excel 95（版本 7.0） *.xls
xlExcel8 56 Excel 97-2003 工作簿 *.xls
xlExcel9795 43 Excel 版本 95 和 97 *.xls
xlHtml 44 HTML 格式 .htm；.html
xlIntlAddIn 26 国际外接程序 无文件扩展名
xlIntlMacro 25 国际宏 无文件扩展名
xlOpenDocumentSpreadsheet 60 OpenDocument 电子表格 *.ods
xlOpenXMLAddIn 55 Open XML 外接程序 *.xlam
xlOpenXMLStrictWorkbook 61 (&H3D) Strict Open XML 文件 *.xlsx
xlOpenXMLTemplate 54 Open XML 模板 *.xltx
xlOpenXMLTemplateMacroEnabled 53 启用 Open XML 模板宏 *.xltm
xlOpenXMLWorkbook 51 Open XML 工作簿 *.xlsx
xlOpenXMLWorkbookMacroEnabled 52 启用 Open XML 工作簿宏 *.xlsm
xlSYLK 2 符号链接格式 *.slk
xlTemplate 17 Excel 模板格式 *.xlt
xlTemplate8 17 模板 8 *.xlt
xlTextMac 19 Macintosh 文本 *.txt
xlTextMSDOS 21 MSDOS 文本 *.txt
xlTextPrinter 36 打印机文本 *.prn
xlTextWindows 20 Windows 文本 *.txt
xlUnicodeText 42 Unicode 文本 无文件扩展名；*.txt
xlWebArchive 45 Web 档案 .mh；.mhtml
xlWJ2WD1 14 日语 1-2-3 *.wj2
xlWJ3 40 日语 1-2-3 *.wj3
xlWJ3FJ3 41 日语 1-2-3 格式 *.wj3
xlWK1 5 Lotus 1-2-3 格式 *.wk1
xlWK1ALL 31 Lotus 1-2-3 格式 *.wk1
xlWK1FMT 30 Lotus 1-2-3 格式 *.wk1
xlWK3 15 Lotus 1-2-3 格式 *.wk3
xlWK3FM3 32 Lotus 1-2-3 格式 *.wk3
xlWK4 38 Lotus 1-2-3 格式 *.wk4
xlWKS 4 Lotus 1-2-3 格式 *.wks
xlWorkbookDefault 51 默认工作簿 *.xlsx
xlWorkbookNormal -4143 常规工作簿 *.xls
xlWorks2FarEast 28 Microsoft Works 2.0 两端对齐格式 *.wks
xlWQ1 34 Quattro Pro 格式 *.wq1
xlXMLSpreadsheet 46 XML 电子表格 *.xml
如果觉得不错，请帮忙点赞 收藏及关注我
@小辣椒高效Office
下载 APP
