2、另存的一些示例 1)另存为带宏的工作簿 ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "新文件名", FileFormat:=xlOpenXMLWorkbookMacroEnabled 2)另存为早期的xls的工作簿(Excel 2002 2003等) ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "新文件名", FileFormat:=xlExce...
弹窗提示“要求对象”？ActiveWorkbook.SaveAs ("E:\系统导入\" & Format(Date, "mm月dd日") & "...
在进行VBACOPY工作簿操作后，如使用ActiveWorkbook.SaveAs进行另存为时，弹窗提示通常源于路径输入不正确或格式不符。正确的路径应当使用英文双引号包围，确保完整字符串的格式。以下是改进后的VBA代码示例：假设您希望将工作簿保存至特定路径，如下所示：Dim myPath As String myPath = "C:\Users\YourNam...
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Name & "副本.xlsm" End If Saved属性 如果在保存之后又对工作簿进行了修改,那么该属性返回True。其语法为: Workbook对象.Saved 如果想要关闭修改过的工作簿而不保存修改或者出现保存修改的提示,那么可以将该属性设置为...
ActiveWorkbook.SaveAs Filename:= NewFile, _ FileFormat:=xlNormal, _ Password:="", _ WriteResPassword:="", _ ReadOnlyRecommended:=False, _ CreateBackup:=False We have to close new file and open the origin workbook: SetActBook = ActiveWorkbook ...
ActiveWorkbook.SaveAs Filename:="D:\2.xlsx" ActiveWorkbook.Close 例子2: 把一个工作簿中的每个表,单独建成新工作簿。 Dim sht As Sheets For Each sht In Sheets sht.Copy ‘没有指定复制到哪里,则会直接新建到新的工作簿 ActiveWorkbook.SaveAs fliename:="D:\" & sht.Name & ".xlsx" ...
Workbook 对象.Save 下面的示例代码用来保存当前工作簿：Sub SaveWB()ActiveWorkbook.Save End Sub 如果是首次保存工作簿，那么要使用 SaveAs 方法来指定工作簿的名称。其语法为：Workbook 对象.SaveAs(FileName,FileFormat,Password,WriteResPassword,R eadOnlyRecommended,CreateBackup,AccessMode,ConflictResolu tion,Add...
ActiveWorkbook.SaveAs Filename:="新-" & ActiveWorkbook.Name, FileFormat:=ActiveWorkbook.FileFormat End If '如果活动工作簿是以只读打开,则文件另存为 新-原有文件名,文件格式与当前工作簿的格式相同。 注意:在Excel2010版本中,如果以saveas方法保存时,记得...
SubcopySaveAs()Worksheets("模板").Copy ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path&"\小龙女.xlsx"ActiveWorkbook.Close SaveChanges:=True End Sub '方法二:复制工作表为新的工作表,写入数据,再移动工作表另存为新的工作簿 SubMoveSaveAs()wsh_num=Worksheets.CountWorksheets("模板").Copy After:=Works...
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\book1234.xls"ActiveWorkbook.Close SaveChanges:=True Exit Sub 100:ActiveWorkbook.Close False End Sub 代码解析：MyArrSheetCopy过程将“Sheet1”和“Sheet2”工作表单独保存为一个工作簿文件。第4行代码使用SaveAs方法保存活动工作簿。下面我们看看三种方法的...