1、ThisWorkbook.Save 'Save相当于你手工单击 保存按钮;这个函数无参数 语法如下:expression.Save 参数expression是必需的,该表达式返回一个Workbook对象。 这种方法相当于我们在用鼠标点击“保存”按钮,这时工作薄将覆盖原来保存的文件为最新的文件 2、ThisWorkbook.SaveAs ' 另存为工作簿 把当前工作簿另存为一份新的...
In the above code, you have the path in the FileName argument and VBA uses that path to the file. Note:You can also use this method to check if a workbook exists in a folder or not before you use the SAVE AS method to save it on a particular location and you can learn more abou...
1、ThisWorkbook.Save 'Save相当于你手工单击 保存按钮;这个函数无参数 语法如下:expression.Save参数expression是必需的,该表达式返回一个Workbook对象。 这种方法相当于我们在用鼠标点击“保存”按钮,这时工作薄将覆盖原来保存的文件为最新的文件 2、ThisWorkbook.SaveAs ' 另存为工作簿 把当前工作簿另存为一份新的工...
使用Workbook.Save方法可以保存当前激活的工作簿。这相当于手动点击Excel界面上的“保存”按钮。 vba Sub SaveActiveWorkbook() ThisWorkbook.Save End Sub 这段代码会保存当前激活的工作簿,但文件路径和名称不会改变。 另存为新的工作簿: 如果你想将当前工作簿保存为一个新的文件,可以使用Workbook.SaveAs方法。这...
Sub MySaveAsWork()ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\book123.xls"End Sub 代码解析:MySaveAsWork过程将代码所在的工作簿保存为“book123”工作簿文件。如果要保存为指定的文件名,可以使用INPUTBOX,弹出对话框,让使用者录入一个文件名后再保存。三:如果用户希望工作簿在保存为另一文件名后...
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "文件名", FileFormat:=xlWorkbookNormal 另存为xls的工作簿 'ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "文件名", FileFormat:=xlExcel8 另存为PDF ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Pat...
可以使用Workbook对象的Save方法保存工作簿,其语法为: Workbook对象.Save 下面的示例代码用来保存当前工作簿: Sub SaveWB() ActiveWorkbook.Save End Sub 如果首次保存工作簿,则要使用SaveAs方法来指定工作簿的名称。其语法为: Workbook对象.SaveAs(FileName,FileFormat,Passwo...
一、保存VBA代码 启用开发工具选项卡:首先,确保Excel中的“开发工具”选项卡已启用。如果未启用,可以通过“文件”->“选项”->“自定义功能区”中勾选“开发工具”来启用。保存为启用宏的工作簿:在编辑完VBA代码后,点击“文件”->“另存为”,在保存类型中选择“Excel 启用宏的工作簿(*.xlsm...
Workbooks.SaveAs fileName End If End Sub 这个例子中,我们使用InputBox函数来显示一个输入框,让用户输入要保存的文件名。如果用户输入了一个有效的文件名,那么我们就使用SaveAs方法来保存工作簿,并且文件名就是用户输入的名称。 5.可以使用自定义对话框来让用户选择保存的文件名和位置。可以使用VBA的UserForm来创建...
excel vba保存表格的几种方法 简介 xlsm是启用宏的excel扩展名,这样excel2007才可运行VBA。工具/原料 excel2007 方法/步骤 1 直接保存。Sub SaveWb() ThisWorkbook.SaveEnd Sub 2 另存(打开的表格被重命名为SaveAsWb.xlsm)。Sub SaveAsWb() On Error Resume Next ThisWorkbook.SaveAs Filename:=...