1、关闭文件时如果文件做了修改,系统会提示保存,用下列语句就不会提示了: ThisWorkbook.Close savechanges:=False False表示不保存修改,如果改为True,则保存修改。类似的: ActiveWindow.Close savechanges:=False Windows(datfile).Close savechanges:=False 。。
Workbook对象.close(SaveChanges,Filename,RouteWorkbook) 关闭某个工作簿。其中: 所有参数均为可选参数。 参数SaveChanges指定是否保存对工作簿所作的修改。如果没有修改过工作簿,则忽略此参数。如果修改了工作簿,则使用此参数指定是否保存修改;如果参数值设置...
6、点击“运行”。7、点击“运行子过程/UserForm”就可以了。Private Sub Workbook_BeforeClose(Cancel As Boolean)ThisWorkbook.Close savechanges:=FalseEnd Sub亲 只需要在workbook 的BeforeClose 事件里面写上我上面这句ThisWorkbook.Close savechanges:=False就行哦 但是你所做的更更都不会保存哦,如...
Sub 先保存再关闭工作薄()ActiveWorkbook.Close Savechanges:=False End Sub 如果是只保存，不关闭，则使...
ThisWorkbook.Close SaveChanges:=False End Sub ``` 💡 小贴士:这样关闭工作簿,不会保存你做的任何更改哦!2️⃣ 保存并关闭工作簿: ```vba Sub SaveAndCloseWorkbook() Dim wb As Workbook Set wb = ThisWorkbook wb.Close SaveChanges:=True End Sub ...
wb.Close SaveChanges:=False MsgBox"Done!"End Sub 使用GetObject函数,获取对指定Excel文件的引用。如果Excel文件尚未打开,那么程序会在后台打开该工作簿。 注意:通过GetObject函数引用某个工作簿时,如果该工作簿已经打开,但不处于活动(Active)状态,则程序可能会报错。
wb.Close SaveChanges:=False End Sub 在上述示例中,我们使用Workbooks.Open方法打开了一个名为"file.xlsx"的工作簿,并将其赋值给了变量wb。然后可以在代码中使用wb来引用这个工作簿,进行其他操作。最后,使用wb.Close方法关闭工作簿,SaveChanges参数用于指定是否保存对工作簿的更改。
Workbooks(name1).Close SaveChanges:=False '关闭指定name1 ThisWorkbook.Close SaveChanges:=False '关闭指定工作薄 ActiveWorkbook.Close SaveChanges:=False '关闭当前活动工作薄 将
ResumeNextSetwb=Workbooks.Open(FileName:=Path,ReadOnly:=True,UpdateLinks:=False)IfErr.Number>0Thenq="Open file again with Repair option"wb.Closesavechanges:=FalseSetwb=NothingSetwb=Workbooks.Open(FileName:=Path,ReadOnly:=True,CorruptLoad:=XlCorruptLoad.xlRepairFile,UpdateLinks:=False)'try fixing...
ActiveWorkbook.Close Savechanges:=True End Sub 将上述代码中的“True”改为“False”，则直接关闭工作簿而不保存。关闭所有打开的工作簿，并提示是否保存：Sub CloseAllWorkbooks()On Error Resume Next Workbooks.Close End Sub 退出Excel，并提示对有更改的工作簿进行保存：Sub QuitExcel()Application....