2、ThisWorkbook.SaveAs ' 另存为工作簿 把当前工作簿另存为一份新的工作簿 Workbook对象的SaveAs方法使用另外一个文件名保存对工作簿所做的更改,语法如下: SaveAs(FileName,FileFormat,Password,WriteResPassword,ReadOnlyRecommended,CreateBackup,AccessMode,ConflictResolution,AddToMru,TextCodepage,TextVisualLayout,Lo...
SubExample_6()ActiveWorkbook.SaveAs_Filename:="D:\SOFTEKO\excel vba save as file format.xlsm",Password:="one"EndSub Visual Basic Example 7 – Add a Password for Editing Moreover, you can ask for aPassword for Editingwhen opening the saved file in Excel. Without the password, it’ll on...
wb.SaveAs Filename:="new_file_name1" 'above SaveAs succeed Setwb = new_app.Workbooks.Add wb.SaveAs Filename:="new_file_name2" 'above SaveAs cause excel crash EndSub 如果我使用SaveCopyAs方法(下面的代码),两者都很好。但是我仍然想知道为什么SaveAs导致Excel崩溃了。 Subtest() Dimthis_appAsA...
1\文件名重名？2\Active改为this?3\无事建个D盘目录搞哪样。存又存在E盘，E盘有不有得呢？关于问题补充，你本来就是在用VBA，当然就有宏。你在saveas 之前添加application.displayalert=falseend sub 之前添加 application.displayalert=true
VBA - Excel SaveAs另存为其他类型 简介 使用VBA将Excel文件另存为其他类型，e.g. xlsm 工具/原料 Excel 方法/步骤 1 新建一个Excel文件并保存。打开VBE，可以用快捷键<Alt+F11>.VBE的介绍可以参照下面的链接后者百度下找找。2 新建一个模块，输入下面的代码。Sub SaveAsMacroEnable() Dim OldFileName As ...
Saveas 是把当前文件另存为另一个文件,所以"当前"文件就变成目标文件了,想要做一个备份,而真正的保留当前文件,请使用 SaveCopyAs,这样才可以达到楼主的目的...即:把 ThisWorkbook.SaveAs ("d:\temp\temp全省站点名单1.xls") 改为:ThisWorkbook.SaveCopyAs ("d:\temp\temp全省站点名单1.xls")Workboo...
代码解析：MySaveWork过程保存代码所在的工作簿的修改。二：如果是第一次保存工作簿，请使用SaveAs方法，同时为该文件指定文件名，Workbook对象的SaveAs方法使用另外一个不同的文件名保存对工作簿所做的更改，语法如下：SaveAs(FileName,FileFormat,Password,WriteResPassword,ReadOnlyRecommended,CreateBackup,AccessMode,...
⧪ Step 4: Save the File Save the worksheet as a new file with the given name in the selected folder, using theSaveAsmethod ofVBA. Worksheets(Sheet_Name).SaveAs Filename:=New_File So, the completeVBAcode will be: ⧭VBA Code: ...
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\b.xls"
SetNewBook = Workbooks.AddDofName = Application.GetSaveAsFilenameLoopUntilfName <>FalseNewBook.SaveAs Filename:=fName 支持和反馈 有关于 Office VBA 或本文档的疑问或反馈? 请参阅Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。