1、关闭文件时如果文件做了修改,系统会提示保存,用下列语句就不会提示了: ThisWorkbook.Close savechanges:=False False表示不保存修改,如果改为True,则保存修改。类似的: ActiveWindow.Close savechanges:=False Windows(datfile).Close savechanges:=False 。。。 2、保存文件时如果存在同名文件,系统会提示是否覆盖,用...
Workbook 对象.close(SaveChanges,Filename,RouteWorkbook)关闭某个工作簿。其中：⚫ 所有参数均为可选参数。⚫ 参数 SaveChanges 指定是否保存对工作簿所作的修改。如果没有修改过工作簿，则忽略此参数。如果修改了工作簿，则使用此参数指定是否保存修改；如果参数值设置为 True，则关闭时将保存修改，此时如果工作簿...
pathname="D:\OneDrive\文档\test.xlsm"Set wb=GetObject(pathname)wb.Sheets(1).Range("A2").Value2="No 2"Application.Windows(wb.Name).Visible=True wb.Close SaveChanges:=True MsgBox"Done!"End Sub 参考资料: [1] getobject和workbooks.open哪个更好 [2] Workbooks.Open method [3] Workbook.Close m...
ThisWorkbook.Close SaveChanges:=False End Sub ``` 💡 小贴士:这样关闭工作簿,不会保存你做的任何更改哦!2️⃣ 保存并关闭工作簿: ```vba Sub SaveAndCloseWorkbook() Dim wb As Workbook Set wb = ThisWorkbook wb.Close SaveChanges:=True End Sub ``` 💡 小贴士:用这个方法,你可以在关闭工作簿...
Workbooks('test1.xlsx').Close SaveChanges:=False End Sub 其中,语句ThisWorkbook.Path获取代码所在工作簿的路径。 运行效果如下图1所示。 图1 示例代码4:拆分工作簿 下面的代码将当前工作簿中的每个工作表都保存为一个工作簿,新工作簿保存在与原工作簿相同的文件夹中,其名称为工作表的名称。 Sub SplitWorkbook...
ActiveWorkbook.Close Savechanges:=True End Sub 不提示直接不保存并关闭工作簿: Sub 先保存再关闭工作薄() ActiveWorkbook.Close Savechanges:=False End Sub 如果是只保存,不关闭,则使用 ActiveWorkbook.Save 关闭所有打开的工作簿,并先全部保存: Sub 保存且关闭所有工作簿() On Error Resume Next Workbooks.Close...
personalWorkbook.Close SaveChanges:=False Kill personalWorkbook.FullName 上述代码中,我们首先使用Workbooks对象的Open方法来引用个人工作簿。这里假设个人工作簿的文件名为"PERSONAL.XLSB",你可以根据实际情况修改。然后,通过Close方法关闭个人工作簿,SaveChanges参数设为False表示不保存对个人工作簿的修改。最后,使用Kill...
Sub mynzvba_close_Activeworkbook()ActiveWorkbook.Close SaveChanges:=False End Sub Ø本节内容参考程序文件：Chapter03-2.xlsm 9保存并关闭工作簿Close a Workbook after Saving Sub mynzvba_close_workbook()Dim wbCheck As String wbCheck = Dir(ThisWorkbook.Path & "\myFile.xlsx")If wbCheck = "" ...
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...
Workbook对象.close(SaveChanges,Filename,RouteWorkbook) 关闭某个工作簿。其中: 所有参数均为可选参数。 参数SaveChanges指定是否保存对工作簿所作的修改。如果没有修改过工作簿,则忽略此参数。如果修改了工作簿,则使用此参数指定是否保存修改;如果参数值设置...