2、ThisWorkbook.SaveAs ' 另存为工作簿 把当前工作簿另存为一份新的工作簿 Workbook对象的SaveAs方法使用另外一个文件名保存对工作簿所做的更改,语法如下: SaveAs(FileName,FileFormat,Password,WriteResPassword,ReadOnlyRecommended,CreateBackup,AccessMode,ConflictResolution,AddToMru,TextCodepage,TextVisualLayout,Lo...
SaveAs函数的基本语法如下：Workbook.SaveAs(FileName, FileFormat)其中，FileName表示要保存的文件路径和名称，可以是绝对路径或相对路径；FileFormat表示要保存文件的格式，可以是常见的Excel文件格式，如xlsx、xls、csv，也可以是其他类型的文件格式，如txt、pdf等。当我们使用SaveAs函数时，需要注意一些重要的细节。
1 新建一个Excel文件并保存。打开VBE，可以用快捷键<Alt+F11>.VBE的介绍可以参照下面的链接后者百度下找找。2 新建一个模块，输入下面的代码。Sub SaveAsMacroEnable() Dim OldFileName As String OldFileName = Left(ThisWorkbook.FullName, InStr(ThisWorkbook.FullName, ".") - 1) ActiveWorkbook.SaveAs...
FileFormat参数 通过FileFormat指定文件格式,常用枚举值包括: xlOpenXMLWorkbook(.xlsx) xlExcel8(.xls) xlCSV(.csv) xlPDF(.pdf) 若未显式设置,VBA根据文件扩展名自动判断格式。例如: ActiveWorkbook.SaveAs "Data.csv", FileFormat:=xlCSV 此代码将工作簿保存为CSV格式,注意仅保留当前工作表数据。 Password与...
SaveAs(FileName,FileFormat,Password,WriteResPassword,ReadOnlyRecommended,CreateBackup,AccessMode,ConflictResolution,AddToMru,TextCodepage,TextVisualLayout,Local)参数Filename可选，表示要保存文件的文件名的字符串。可包含完整路径，如果不指定路径，将文件保存到当前文件夹中。使用SaveAs方法将工作簿另存为新文件后...
save as是另存。1.如图所示，出现如图的对话框，点击否。2.选择Excel保存的类型，点击Excel启用宏的工作簿.xlsm。3.打开Excel，点击开发工具——宏，这时就能发现ExcelVBA被保存了。4.点击执行，就能执行录制的宏代码了，效果如图所示。5.当然也可以通过文件——另存为——文件格式为启用宏的工作簿....
Workbook 对象.SaveAs(FileName,FileFormat,Password,WriteResPassword,R eadOnlyRecommended,CreateBackup,AccessMode,ConflictResolu tion,AddToMru,TextCodepage,TextVisualLayout,Local)将某个工作簿另存为指定名称的工作簿。可以看到，SaveAs 方法的参数很多，其中：⚫ 所有参数均为可选参数。⚫ 参数 FileName 指定...
表达式。SaveAs(FileName) 表达式是必需的。 返回“应用于”列表中的一个对象的表达式。 参数 名称必需/可选数据类型说明 FileName必需字符串一个表示要保存文件的文件名的字符串。 可包含完整路径,如果不指定路径,Microsoft Excel 将文件保存到当前文件夹中。
- 简述 VBA 在 Excel 中的重要性 - 介绍 SaveAs 方法和 FileFormat 参数在 VBA 中的作用 2.VBA 简介 - 解释 VBA 的含义和作用 - 描述 VBA 在 Excel 中的常见应用场景 3.SaveAs 方法 - 介绍 SaveAs 方法的基本语法 - 说明 SaveAs 方法的主要作用:将工作簿另存为指定格式和路径 4.FileFormat 参数 -...
Saveas 是把当前文件另存为另一个文件,所以"当前"文件就变成目标文件了,想要做一个备份,而真正的保留当前文件,请使用 SaveCopyAs,这样才可以达到楼主的目的...即:把 ThisWorkbook.SaveAs ("d:\temp\temp全省站点名单1.xls") 改为:ThisWorkbook.SaveCopyAs ("d:\temp\temp全省站点名单1.xls")Workboo...