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:=xlOpenXMLWorkbookMacroEnabled 2)另存为早期的xls的工作簿(Excel 2002 2003等) ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "新文件名", FileFormat:=xlExcel8 3)另存为另一个名称的xlsx(默认格式)的...
1 新建一个Excel文件并保存。打开VBE，可以用快捷键<Alt+F11>.VBE的介绍可以参照下面的链接后者百度下找找。2 新建一个模块，输入下面的代码。Sub SaveAsMacroEnable() Dim OldFileName As String OldFileName = Left(ThisWorkbook.FullName, InStr(ThisWorkbook.FullName, ".") - 1) ActiveWorkbook.SaveAs...
Dim strName As String strName = "test3" Set wbNewWorkbook = Workbooks.Add wbNewWorkbook.SaveAs Filename:=strName End Sub 示例代码3:替换现有的工作簿 在使用SaveAs方法指定文件名保存工作簿时,如果刚好存在同名的工作簿文件,那么Excel就会给用户一条警告消息,...
save as是另存。1.如图所示，出现如图的对话框，点击否。2.选择Excel保存的类型，点击Excel启用宏的工作簿.xlsm。3.打开Excel，点击开发工具——宏，这时就能发现ExcelVBA被保存了。4.点击执行，就能执行录制的宏代码了，效果如图所示。5.当然也可以通过文件——另存为——文件格式为启用宏的工作簿....
SaveAs函数的基本语法如下：Workbook.SaveAs(FileName, FileFormat)其中，FileName表示要保存的文件路径和名称，可以是绝对路径或相对路径；FileFormat表示要保存文件的格式，可以是常见的Excel文件格式，如xlsx、xls、csv，也可以是其他类型的文件格式，如txt、pdf等。当我们使用SaveAs函数时，需要注意一些重要的细节。
Sub MySaveAsWork()ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\book123.xls"End Sub 代码解析：MySaveAsWork过程将代码所在的工作簿保存为“book123”工作簿文件。如果要保存为指定的文件名，可以使用INPUTBOX,弹出对话框，让使用者录入一个文件名后再保存。三：如果用户希望工作簿在保存为另一文件名后...
在WPS和Excel VBA中，保存工作簿的方式有三种：直接Save、SaveAs另存为新文件和SaveCopyAs另存副本。以下是它们的区别和使用方法：1. 直接SaveThisWorkbook.Save()，相当于手动点击保存按钮，工作簿将覆盖原文件。无需指定文件格式，适用于常规保存。2. SaveAs另存为新文件ThisWorkbook.SaveAs(FileName, ...
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "文件名", FileFormat:=xlWorkbookNormal 另存为xls的工作簿 'ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "文件名", FileFormat:=xlExcel8 另存为PDF ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Pat...
Saveas 是把当前文件另存为另一个文件,所以"当前"文件就变成目标文件了,想要做一个备份,而真正的保留当前文件,请使用 SaveCopyAs,这样才可以达到楼主的目的...即:把 ThisWorkbook.SaveAs ("d:\temp\temp全省站点名单1.xls") 改为:ThisWorkbook.SaveCopyAs ("d:\temp\temp全省站点名单1.xls")Workboo...