1 新建一个Excel文件并保存。打开VBE，可以用快捷键<Alt+F11>.VBE的介绍可以参照下面的链接后者百度下找找。2 新建一个模块，输入下面的代码。Sub SaveAsMacroEnable() Dim OldFileName As String OldFileName = Left(ThisWorkbook.FullName, InStr(ThisWorkbook.FullName, ".") - 1) ActiveWorkbook.SaveAs...
Saveas 是把当前文件另存为另一个文件,所以"当前"文件就变成目标文件了,想要做一个备份,而真正的保留当前文件,请使用 SaveCopyAs,这样才可以达到楼主的目的...即:把 ThisWorkbook.SaveAs ("d:\temp\temp全省站点名单1.xls") 改为:ThisWorkbook.SaveCopyAs ("d:\temp\temp全省站点名单1.xls")...
“工具”菜单下“选项”对话框“安全性”选项卡中的“保存时从文件属性中删除个人信息”不要选中就没提示了
1、ThisWorkbook.Save 'Save相当于你手工单击 保存按钮;这个函数无参数 语法如下:expression.Save 参数expression是必需的,该表达式返回一个Workbook对象。 这种方法相当于我们在用鼠标点击“保存”按钮,这时工作薄将覆盖原来保存的文件为最新的文件 2、ThisWorkbook.SaveAs ' 另存为工作簿 把当前工作簿另存为一份新的...
Dim afnold As String ZCanSave = True afnold = Application.ActiveWorkbook.FullName If Application.Dialogs(xlDialogSaveAs).Show = False Then Application.ActiveWorkbook.SaveAs afnold Else ActiveWorkbook.Close savechanges = False End If ZCanSave = False ...
Saveas 是把当前文件另存为另一个文件,所以"当前"文件就变成目标文件了,想要做一个备份,而真正的保留当前文件,请使用 SaveCopyAs,这样才可以达到楼主的目的...即:把 ThisWorkbook.SaveAs ("d:\temp\temp全省站点名单1.xls") 改为:ThisWorkbook.SaveCopyAs ("d:\temp\temp全省站点名单1.xls")...
大家好,上节课VBA课程我们讲解了工作簿的Save方法,它是保存的意思。本节课我们介绍工作簿的SaveAs方法 ,SaveAs方法相当于Excel操作中的“另存为”命令,以指定名称保存工作簿。SaveAs方法的语法格式为: 表达式. SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AddToMru...
If Len(Dir(folder, vbDirectory)) = 0 Then MkDir folder Dim sht As Worksheet For Each sht In thisworkbook.Worksheets if sht.name<>"成绩表" then '判断表名 sht.Copy ActiveWorkbook.SaveAs folder & "\" & sht.Name & ".xlsx"ActiveWorkbook.Close end if Next Application.ScreenUpdat...
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\b.xls"
createbackup设为true后,系统会为你建立一个同名的 扩展名 为xlk的文件;你文件另存后每次改动,多会自动更新到xlk文件中.