2、ThisWorkbook.SaveAs ' 另存为工作簿 把当前工作簿另存为一份新的工作簿 Workbook对象的SaveAs方法使用另外一个文件名保存对工作簿所做的更改,语法如下: SaveAs(FileName,FileFormat,Password,WriteResPassword,ReadOnlyRecommended,CreateBackup,AccessMode,ConflictResolution,AddToMru,TextCodepage,TextVisualLayout,Lo...
使用VBA将Excel文件另存为其他类型，e.g. xlsm 工具/原料 Excel 方法/步骤 1 新建一个Excel文件并保存。打开VBE，可以用快捷键<Alt+F11>.VBE的介绍可以参照下面的链接后者百度下找找。2 新建一个模块，输入下面的代码。Sub SaveAsMacroEnable() Dim OldFileName As String OldFileName = Left(ThisWorkbook....
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "文件名", FileFormat:=xlWorkbookNormal 另存为xls的工作簿 'ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "文件名", FileFormat:=xlExcel8 另存为PDF ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Pat...
如果该值为 False(默认值),则以 Visual Basic for Applications (VBA) 的语言保存文件,其中 Visual Basic for Applications (VBA) 为典型安装的美国英语版本,除非 VBA 项目中的 Workbooks.Open 来自旧的国际化的 XL5/95 VBA 项目 18 XlFileFormat.xlAddIn Microsoft Office Excel 加载宏(*.xla) 6 XlFileForma...
代码解析：MySaveWork过程保存代码所在的工作簿的修改。二：如果是第一次保存工作簿，请使用SaveAs方法，同时为该文件指定文件名，Workbook对象的SaveAs方法使用另外一个不同的文件名保存对工作簿所做的更改，语法如下：SaveAs(FileName,FileFormat,Password,WriteResPassword,ReadOnlyRecommended,CreateBackup,AccessMode,...
save as是另存。1.如图所示，出现如图的对话框，点击否。2.选择Excel保存的类型，点击Excel启用宏的工作簿.xlsm。3.打开Excel，点击开发工具——宏，这时就能发现ExcelVBA被保存了。4.点击执行，就能执行录制的宏代码了，效果如图所示。5.当然也可以通过文件——另存为——文件格式为启用宏的工作簿....
save as是另存。 1.如图所示,出现如图的对话框,点击否。 2.选择Excel保存的类型,点击Excel启用宏的工作簿.xlsm。 3.打开Excel,点击开发工具——宏,这时就能发现ExcelVBA被保存了。 4.点击执行,就能执行录制的宏代码了,效果如图所示。 5.当然也可以通过文件——另存为——文件格式为启用宏的工作簿.xlsm。 展开...
NewFile = Application.GetSaveAsFilename( _ InitialFileName:=NewFileName, _ fileFilter:=NewFileType) And now save file as new Workbook: ActiveWorkbook.SaveAs Filename:= NewFile, _ FileFormat:=xlNormal, _ Password:="", _ WriteResPassword:="", _ ...
Saveas 是把当前文件另存为另一个文件,所以"当前"文件就变成目标文件了,想要做一个备份,而真正的保留当前文件,请使用 SaveCopyAs,这样才可以达到楼主的目的...即:把 ThisWorkbook.SaveAs ("d:\temp\temp全省站点名单1.xls") 改为:ThisWorkbook.SaveCopyAs ("d:\temp\temp全省站点名单1.xls")Workboo...
VB 复制 Set NewBook = Workbooks.Add Do fName = Application.GetSaveAsFilename Loop Until fName <> False NewBook.SaveAs Filename:=fName 支持和反馈 有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。反馈...