这段代码首先保存当前活动的工作簿,然后关闭它。 2. 保存并关闭所有打开的工作簿 如果你想保存并关闭所有打开的工作簿,可以使用以下代码: vba Sub SaveAndCloseAllWorkbooks() Dim wbk As Workbook ' 遍历所有打开的工作簿 For Each wbk In Workbooks ' 保存工作簿 wbk.Save ' 关闭工作簿 wbk.Close Next wbk ...
1、ThisWorkbook.Save 'Save相当于你手工单击 保存按钮;这个函数无参数 语法如下:expression.Save 参数expression是必需的,该表达式返回一个Workbook对象。 这种方法相当于我们在用鼠标点击“保存”按钮,这时工作薄将覆盖原来保存的文件为最新的文件 2、ThisWorkbook.SaveAs ' 另存为工作簿 把当前工作簿另存为一份新的...
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\book1234.xls"ActiveWorkbook.Close SaveChanges:=True Exit Sub 100:ActiveWorkbook.Close False End Sub 代码解析：MyArrSheetCopy过程将“Sheet1”和“Sheet2”工作表单独保存为一个工作簿文件。第4行代码使用SaveAs方法保存活动工作簿。下面我们看看三种方法的...
在Excel 2016中,可以使用VBA来强制保存并关闭单独的工作簿。下面是一个示例代码: 抱歉,当前编辑器暂不支持代码块标记为txt语言,您可操作将代码块语言设置为txt 代码语言:txt 复制 Sub SaveAndCloseWorkbook() Dim wb As Workbook Set wb = ThisWorkbook ' 强制保存工作簿 wb.Save ' 关闭工作簿 wb.Close En...
save as是另存。1.如图所示，出现如图的对话框，点击否。2.选择Excel保存的类型，点击Excel启用宏的工作簿.xlsm。3.打开Excel，点击开发工具——宏，这时就能发现ExcelVBA被保存了。4.点击执行，就能执行录制的宏代码了，效果如图所示。5.当然也可以通过文件——另存为——文件格式为启用宏的工作簿....
通过Excel VBA保存和关闭PowerPoint可以使用以下代码: 保存PowerPoint文件: 代码语言:vba 复制 Sub SaveAndClosePowerPoint() Dim pptApp As Object Dim pptPres As Object ' 创建PowerPoint应用程序对象 Set pptApp = CreateObject("PowerPoint.Application") ' 打开PowerPoint文件 Set pptPres = pptApp.Presentations.Op...
save as是另存。 1.如图所示,出现如图的对话框,点击否。 2.选择Excel保存的类型,点击Excel启用宏的工作簿.xlsm。 3.打开Excel,点击开发工具——宏,这时就能发现ExcelVBA被保存了。 4.点击执行,就能执行录制的宏代码了,效果如图所示。 5.当然也可以通过文件——另存为——文件格式为启用宏的工作簿.xlsm。 展开...
简介 使用VBA将Excel文件另存为其他类型，e.g. xlsm 工具/原料 Excel 方法/步骤 1 新建一个Excel文件并保存。打开VBE，可以用快捷键<Alt+F11>.VBE的介绍可以参照下面的链接后者百度下找找。2 新建一个模块，输入下面的代码。Sub SaveAsMacroEnable() Dim OldFileName As String OldFileName = Left(...
vba代码保存并关闭Excel文件如何保存并关闭已打开的EXCEL文件。色鬼 咀嚼肌与i以uk而我的阿伟发生的豆腐...
Saveas 是把当前文件另存为另一个文件,所以"当前"文件就变成目标文件了,想要做一个备份,而真正的保留当前文件,请使用 SaveCopyAs,这样才可以达到楼主的目的...即:把 ThisWorkbook.SaveAs ("d:\temp\temp全省站点名单1.xls") 改为:ThisWorkbook.SaveCopyAs ("d:\temp\temp全省站点名单1.xls")Workboo...