Workbook.SaveAs方法

Workbook.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)

excel vba 保存代码

Sub 保存工作簿()
    ThisWorkbook.Save  '.save相当于按保存按钮；无参数
    ThisWorkbook.SaveAs "另存为工作簿"  '把当前工作簿另存为一份新的工作簿
    ThisWorkbook.SaveCopyAs "另存一份副本"  '另存一份副本为新工作簿，而不关闭当前工作簿。只有一个参数，就是新的文件名。
    
    ThisWorkbook.SaveAs
    '前三个参数比较关键，均可以不填，全不填差不多相当于.save
    'filename,fileformat,password
    '"第一个参数为名称", "第二个参数为格式", "第三个参数为设置打开密码"
    '第一个参数可以是全路径名；也可以是不含路径的名称，会保存在原文件所在文件夹
    '第二个参数为格式，常用格式设置51即可，
    '格式参考网址："https://docs.microsoft.com/zh-cn/office/vba/api/excel.xlfileformat"

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

WriteResPassword：是写工作簿的权限密码

例如：

 ReadOnlyRecommended：只读属性

 CreateBackup：createbackup设为true后,系统会为你建立一个同名的扩展名为xlk的文件;你文件另存后每次改动,多会自动更新到xlk文件中.